Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

ЗАДАНИЕ №8





(повышенной сложности)

написать функцию, обеспечивающую ввод с клавиатуры целого положительного двузначного числа. При нажатии пользователем какой-либо клавиши соответствующий ей символ должен появиться на экране только в том случае, если этот символ является цифрой. Функция должна позволять пользователю редактировать введенное число при помощи клавиши Back Space. Если пользователь ввел хотя бы одну цифру, то при нажатии клавиши Enter функция должна завершать работу и возвращать введенное пользователем число вызвавшей её процедуре.

Решение:

Uses Crt;

Var

a: integer; {число введенное пользователем}

{ функция GetInt предназначена для ввода целого положительного числа, состоящего из одной или двух цифр. Во время ввода для редактирования может использоваться Back Space. При нажатии Enter функция возвращает исходное число. }

function GetInt: integer;

const

KB=8; {код клавиши Back Space}

KE=13; {код клавиши Enter}

Var

ch: char; {символ}

dec: byte; {код символа}

buf: array [1..2] of char; {введенные цифры}

n: integer; {кол-во введенных цифр}

x, y: integer; {положение курсора}

begin

buf[1]: =’ ‘;

buf[2]: =’ ‘;

n: =0;

repeat

ch: =Readkey;

dec: =ord (ch);

if (ch> =’0’) and (ch< =’9’) and (n< 2)

then

begin

write (ch);

n: =n+1;

buf[n]: =ch

end

else

if (dec=KB) and (n> 0)

then

begin

n: =n-1;

x: =whereX;

y: =whereY;

GoToXY (x-1, y);

write (‘ ‘);

GoToXY (x-1, y);

end;

until (n> 0) and (dec=KE);

{преобразуем введенную строку в число}

if n=2

then GetInt: = (ord (buf[1])-48)*10+ord(buf[2])-48

else GetInt: =ord (buf[1])-48

end;

begin

ClrScr;

writeln (‘***Демонстрация работы функции GetInt***’);

writeln;

writeln (‘функция GetInt предназначена для ввода целого положительного числа’);

writeln (‘состоящего из одной или двух цифр’);

writeln (‘Во время ввода для редактирования может использоваться < Back Space> ’);

writeln (‘При нажатии < Enter> функция возвращает введенное число’);

write (‘à ’);

a: =GetInt;

writeln;

write (‘Вы ввели число ‘, a);

readln

end.

Задание для самостоятельного решения:

1. написать программу с использованием функции. Найти НОД двух натуральных чисел

примечание: если a=b, то НОД (а, b)=a

если a> b, то НОД (a, b)==НОД (a-b, b)

если a< b, то НОД(a, b)=НОД(a, b-a)

2. используя процедуру и функцию составить программу нахождения суммы и количества элементов в каждом столбце матрицы, удовлетворяющих условиям:

ü положительных, лежащих выше главной диагонали;

ü кратные к1 или к2.

3. используя функцию написать программу. Дана последовательность слов. Напечатать все слова в алфавитном порядке.

4. (повышенной сложности)

написать функцию для решения квадратного уравнения. Параметрами функции должны быть коэффициенты и корни уравнения. Значение функции должно использоваться для передачи в вызывающую ее программу информации о наличии корней уравнения: 2 – два разных корня, 1 – корни одинаковые, 0 – уравнение не имеет решения. Кроме того, функция должна проверять корректность исходных данных. Если исходные данные неверные, то функция должна возвращать – 1!








Дата добавления: 2014-11-10; просмотров: 690. Нарушение авторских прав; Мы поможем в написании вашей работы!




Картограммы и картодиаграммы Картограммы и картодиаграммы применяются для изображения географической характеристики изучаемых явлений...


Практические расчеты на срез и смятие При изучении темы обратите внимание на основные расчетные предпосылки и условности расчета...


Функция спроса населения на данный товар Функция спроса населения на данный товар: Qd=7-Р. Функция предложения: Qs= -5+2Р,где...


Аальтернативная стоимость. Кривая производственных возможностей В экономике Буридании есть 100 ед. труда с производительностью 4 м ткани или 2 кг мяса...

Эндоскопическая диагностика язвенной болезни желудка, гастрита, опухоли Хронический гастрит - понятие клинико-анатомическое, характеризующееся определенными патоморфологическими изменениями слизистой оболочки желудка - неспецифическим воспалительным процессом...

Признаки классификации безопасности Можно выделить следующие признаки классификации безопасности. 1. По признаку масштабности принято различать следующие относительно самостоятельные геополитические уровни и виды безопасности. 1.1. Международная безопасность (глобальная и...

Прием и регистрация больных Пути госпитализации больных в стационар могут быть различны. В цен­тральное приемное отделение больные могут быть доставлены: 1) машиной скорой медицинской помощи в случае возникновения остро­го или обострения хронического заболевания...

Трамадол (Маброн, Плазадол, Трамал, Трамалин) Групповая принадлежность · Наркотический анальгетик со смешанным механизмом действия, агонист опиоидных рецепторов...

Мелоксикам (Мовалис) Групповая принадлежность · Нестероидное противовоспалительное средство, преимущественно селективный обратимый ингибитор циклооксигеназы (ЦОГ-2)...

Менадиона натрия бисульфит (Викасол) Групповая принадлежность •Синтетический аналог витамина K, жирорастворимый, коагулянт...

Studopedia.info - Студопедия - 2014-2025 год . (0.011 сек.) русская версия | украинская версия