Turbo Pascal для начинающих

         

Факультатив


188. Написать функцию для решения квадратного уравнения. Параметрами функции должны быть коэффициенты и корни уравнения. Значение функции должно использоваться для передачи в вызывающую ее программу информации о наличии корней уравнения: 2 — два разных корня, 1 — корни одинаковые, 0 — уравнение не имеет решения. Кроме того, функция должна проверять корректность исходных данных. Если исходные данные неверные, то функция должна возвращать -1.
189. Написать функцию, обеспечивающую ввод с клавиатуры целого положительного двухзначного числа. При нажатии пользователем какой-либо клавиши соответствующий ей символ должен появляться на экране только в том случае, если этот символ является цифрой. Функция должна позволять пользователю редактировать введенное число при помощи клавиши <BackSpace>. Если пользователь ввел хотя бы одну цифру, то при нажатии клавиши <Enter> функция должна завершать работу и возвращать введенное пользователем число вызвавшей ее процедуре.



Содержание раздела