Написать функцию, которая сравнивает два целых числа - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Всем привет, прошу помочь, совсем скоро нужно сдавать эту задачу, но мне эта тема далась не очень. Кто чем сможет, буду очень благодарен!!! Написать функцию, которая сравнивает два целых числа и возвращает результат сравнения в виде одного из знаков: >, <, =. Продемонстрировать её работу.

Решение задачи: «Написать функцию, которая сравнивает два целых числа»

textual
Листинг программы
uses crt;
function sravn(a,b:integer):char;
begin
if a>b then sravn:='>'
else if a<b then sravn:='<'
else sravn:='='
end;
var x,y:integer;
begin
clrscr;
writeln('Введите 2 целых числа');
readln(x,y);
write(sravn(x,y));
readln
end.

Объяснение кода листинга программы

  1. В начале кода подключается библиотека crt, которая является стандартной библиотекой Turbo Pascal и используется для работы с функциями ввода-вывода.
  2. Затем определяется функция sravn, которая принимает два целых числа в качестве параметров и возвращает символ сравнения (больше, меньше или равно) в виде символа строки.
  3. Далее объявляются две переменные x и y типа integer, которые будут использоваться для хранения введенных пользователем чисел.
  4. В блоке begin программы выводится сообщение Введите 2 целых числа и с помощью функции readln считываются два целых числа из стандартного ввода.
  5. Затем вызывается функция sravn, передавая в нее значения переменных x и y. Результат выводится на экран с помощью функции write.
  6. Наконец, с помощью функции readln считывается символ новой строки, чтобы перейти на следующую строку вывода.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4.571 из 5
Похожие ответы