Задачи по Pascal. Максимальное число из трех

pascalУсловие задачи :  Определить какое из трех, введенных пользователем чисел максимальное и вывести его на экран.

Сложность : легкая .

Для того чтобы решить эту задачу, мы будем делать следующее :

Мы возьмем первые два числа и для начала сравним их и которое больше мы присвоим значение максимального.
Затем мы будем сравнивать последнее число с текущим максимальным.

Теперь решение :

Для начала как всегда создадим каркас :

uses crt ;

var 
    num1 , num2 , num3, max : integer;
begin
end.

Тут мы просто объявили 4 переменные. Дальше попросим пользователя ввести 3 числа и напишем первое условие:

writeln('Введите три числа :');
write('->');readln(num1); 
write('->');readln(num2); 
write('->');readln(num3); 

if num1 >= num2 then 
           max := num1 
else max := num2 ;

Теперь у нас промежуточное максимальное число и нам осталось сравнить его с нашим последним числом :

if max < num3 then
       max := num3 ;

Вот и всё , задача готова теперь нам надо просто вывести переменную max .

Весь код программы :

uses crt ;

var 
    num1 , num2 , num3, max : integer;
begin
clrscr;
writeln('Введите три числа :');
write('->');readln(num1); 
write('->');readln(num2); 
write('->');readln(num3); 

if num1 >= num2 then 
           max := num1 
else max := num2 ;

if max < num3 then
       max := num3 ;

writeln('Максимальное из трех : ', max); {выводим результат}

readln;
end.

Вот результат :

ris1

Написать ответ

Ваш e-mail не будет опубликован. Обязательные поля помечены *