Технологии обработки информации(лекции) / Пример оформления лабораторных ПГУ

Лабораторная работа № 2 Тема: «Программирование алгоритмов разветвленной структуры»

Вариант № 7

Цель работы: изучение составного оператора, оператора условия, оператора выбора, оператора безусловного перехода и составление программ с разветвленной структурой на языке Pascal.

Дано: разработать алгоритм и составить программу, в которой пользователь вводит с клавиатуры два числа, после чего ему предоставляется следующий выбор: увеличить наименьшее из введенных чисел в 5 раз и вычислить их сумму или уменьшить наибольшее из них в 3 раза и вычислить их произведение.

Ход работы

Код программы на языке Pascal:

Program Primer2; label A;

var x, y, z : real; m : integer;

begin

write('Введите первое число '); readln(x); write('Введите второе число '); readln(y);

A : writeln('Нажмите 1 чтобы увеличить наименьшее из них в 5 раз и сложить два числа');

writeln('Нажмите 2 чтобы уменьшить наибольшее из них в 3 раза и умножить два числа');

readln(m); case m of 1 : begin

if x<y then x:=x*5 else y:=y*5; z:=x+y;

writeln('Первое число равно ', x:2:2, ' Второе число равно ', y:2:2, ' Их сумма равна ', z:2:2);

end; 2 : begin

if x>y then x:=x/3 else y:=y/3; z:=x*y;

writeln('Первое число равно ', x:2:2, ' Второе число равно ', y:2:2, ' Их произведение равна ', z:2:2); end;

else goto A;

end;

end.

Блок-схема алгоритма работы программы:

Результат выполнения разработанной программы:

Вывод: в ходе выполнения лабораторной работы были изучены составной оператор, оператор условия, оператор выбора, оператор безусловного перехода и составлена программа с разветвленной структурой на языке Pascal. Данная

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