Я всегда был увлечен программированием и решил проверить свои навыки, написав программу на Pascal, которая сможет определить, верно ли введены числа по возрастанию или нет. Я начал с определения трех переменных⁚ a, b и c, которые будут хранить значения роста трех спортсменов.
Далее, я использовал операторы ввода-вывода для получения значений роста от пользователя и вывода соответствующего сообщения. Воспользовался функцией ReadLn для считывания трех чисел с клавиатуры и присвоения их значениям переменных a, b и c.После этого я использовал оператор условия if-else для проверки введенных значений. Если переменные a, b и c введены по возрастанию, то программа выводит сообщение ‘По росту.’, в противном случае ⎯ ‘Не по росту!’.
Вот как выглядит моя программа⁚
pascal
program checkOrder;
var
a, b, c⁚ integer;
begin
WriteLn(‘Введите рост трех спортсменов⁚’);
ReadLn(a, b, c);
if (a < b) and (b < c) then
WriteLn('По росту.')
else
WriteLn(‘Не по росту!’);
end.
Я запустил программу и ввел рост трех спортсменов ⸺ 165, 170 и 172. После этого программа вывела сообщение ‘По росту.’, что означает, что числа были введены по возрастанию.
Программирование всегда интересно, и написание такой программы позволяет упражниться в использовании условных операторов и операторов ввода-вывода на языке Pascal.