Рассмотрим использование условного оператора if на примере поиска максимума среди двух чисел.

ЗАДАЧА 3.1. Пользователь вводит два числа, нужно найти максимальное значение.

Блок-схема алгоритма поиска максимума среди двух чисел приведена на рис. 1.20 из первой главы, поэтому не будет подробно останавливаться на его описании, а приведем сразу пример такой программы.

 

program example_5;
{$mode objfpc}{$H+}
uses
Classes, SysUtils,Crt var
a,b,max:integer; {$IFDEF WINDOWS}{$R example_5.rc}{$ENDIF}
begin
Write('Введите первое число a='); ReadLn(a); Write('Введите второе число b='); ReadLn(b); If (a>b) then max:=a; else max:=b; Write('максимум равен ',max); ReadKey; end.