Задание 8 (повышенной сложности)

Напишите функцию, обеспечивающую ввод с клавиатуры целого положительного числа от 1 до 99 . При нажатии пользователем какой-либо клавиши соответствующий ей символ должен появиться на экране только в том случае, если этот символ является цифрой. Функция должна позволять пользователю редактировать введенное число при помощи клавиши 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!