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

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

ЗАДАНИЕ №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. Нарушение авторских прав; Мы поможем в написании вашей работы!




Обзор компонентов Multisim Компоненты – это основа любой схемы, это все элементы, из которых она состоит. Multisim оперирует с двумя категориями...


Композиция из абстрактных геометрических фигур Данная композиция состоит из линий, штриховки, абстрактных геометрических форм...


Важнейшие способы обработки и анализа рядов динамики Не во всех случаях эмпирические данные рядов динамики позволяют определить тенденцию изменения явления во времени...


ТЕОРЕТИЧЕСКАЯ МЕХАНИКА Статика является частью теоретической механики, изучающей условия, при ко­торых тело находится под действием заданной системы сил...

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

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

ПУНКЦИЯ И КАТЕТЕРИЗАЦИЯ ПОДКЛЮЧИЧНОЙ ВЕНЫ   Пункцию и катетеризацию подключичной вены обычно производит хирург или анестезиолог, иногда — специально обученный терапевт...

Классификация ИС по признаку структурированности задач Так как основное назначение ИС – автоматизировать информационные процессы для решения определенных задач, то одна из основных классификаций – это классификация ИС по степени структурированности задач...

Внешняя политика России 1894- 1917 гг. Внешнюю политику Николая II и первый период его царствования определяли, по меньшей мере три важных фактора...

Оценка качества Анализ документации. Имеющийся рецепт, паспорт письменного контроля и номер лекарственной формы соответствуют друг другу. Ингредиенты совместимы, расчеты сделаны верно, паспорт письменного контроля выписан верно. Правильность упаковки и оформления....

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