Практикум по программированию на языке Turbo Pascal. Часть 2. Портнягина В.В - 88 стр.

UptoLike

ВУЗ: 

КамчатГТУ | Петропавловск-Камчатский

Составители: 

Рубрика: 

С помощью функции, определяющей большее из двух
чисел, найти большее из четырех чисел.
Program Lab8_6;
Uses Crt;
Var al, a2, a3, a4, x, y: Integer;
{Описание функции вычисления максимального из 2-х
чисел}
Function Max2 (a, b: Integer): Integer;
Begin {1}
If a > b Then Max2: = a
Else Max2: = b;
End; {1}
{Исполнимая часть головной программы}
Begin {2}
Write ('Введите четыре целых числа:');
ReadLn (al, a2, аЗ, a4);
{l случай – решение с использованием промежуточных
переменных}
x: = Max2 (al, a2);
у: = Мах2 (аЗ, а4);
WriteLn ('l случай:', Мах2 (х, у));
{2 случай – решение с использованием только обраще-
ний к функции}
WriteLn ('2 случай:', Мах2 (Мах2 (al, а2), Мах2 (аЗ, а4)));
{3 случай – имя функции используется в выражении как
операнд}
WriteLn ('3 случай:', 100 + Max2 (х, у));
ReadLn;
End. {2}
Протокол работы программы. Введите четыре целых
числа: 5 6 9 2.
l случай: 9
2 случай: 9
3 случай: 109
Пояснения к программе. Вычисление максимального из
двух чисел мы оформили в виде функции Мах2. В теле функ-
ции с двумя параметрами имеется оператор присваивания,
который присваивает имени функции Мах2 значение – боль-
88
    С помощью функции, определяющей большее из двух
чисел, найти большее из четырех чисел.
    Program Lab8_6;
    Uses Crt;
    Var al, a2, a3, a4, x, y: Integer;
    {Описание функции вычисления максимального из 2-х
чисел}
    Function Max2 (a, b: Integer): Integer;
    Begin {1}
    If a > b Then Max2: = a
    Else Max2: = b;
    End; {1}
    {Исполнимая часть головной программы}
    Begin {2}
    Write ('Введите четыре целых числа:');
    ReadLn (al, a2, аЗ, a4);
    {l случай – решение с использованием промежуточных
переменных}
    x: = Max2 (al, a2);
    у: = Мах2 (аЗ, а4);
    WriteLn ('l случай:', Мах2 (х, у));
    {2 случай – решение с использованием только обраще-
ний к функции}
    WriteLn ('2 случай:', Мах2 (Мах2 (al, а2), Мах2 (аЗ, а4)));
    {3 случай – имя функции используется в выражении как
операнд}
    WriteLn ('3 случай:', 100 + Max2 (х, у));
    ReadLn;
    End. {2}
    Протокол работы программы. Введите четыре целых
числа: 5 6 9 2.
    l случай: 9
    2 случай: 9
    3 случай: 109
    Пояснения к программе. Вычисление максимального из
двух чисел мы оформили в виде функции Мах2. В теле функ-
ции с двумя параметрами имеется оператор присваивания,
который присваивает имени функции Мах2 значение – боль-
                              88

Страницы