Лабораторная работа. Команды ветвления на языке Pascal. Решение задач на использование операторов IF - THEN – ELSE; CASE.

Лабораторная работа

Команды ветвления на языке Pascal. Решение задач на использование операторов IF - THEN – ELSE; CASE.

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

1) Условный оператор (или оператор ветвления)

If — это оператор позволяющий осуществить выбор в программе одной из двух последовательностей команд (ветвей) в зависимости от некоторого условия. Условный оператор имеет две формы:

- неполная форма:

If < условие>

Then < оператор>;

- полная форма:

If < условие>

Then < оператор1>

Else < оператор2>;

где условие — выражение булевского типа, оператор, оператор1 — оператор, который выполняется, если условие принимает значение True, оператор2 — оператор, который выполняется если условие принимает значение False. В полной форме оператора If обязательно будет выполнен один из двух операторов: оператор1 или оператор2, а затем управление будет передано следующему оператору, стоящему в тексте программы за оператором If. В неполной форме — либо будет выполнен оператор, либо управление будет передано следующему оператору, стоящему в тексте программы за оператором If.

Задание 1.

Задача 1. Даны два числа X и Y. Определить наибольшее значение этих чисел.

1) Рассмотреть программу решения задачи. Объяснить работу программы.

Program Maximum;

Var x, y, max: Real; // описание переменных

Begin

Write('X Y: ');

Readln(x, y); // ввод значений переменных X и Y

If x> y Then max: =x Else max: =y; // определение наибольшего значения и присвоение этого значения переменной MAX

Writeln('Max = ', max); // вывод на экран максимального значения переменных X и Y

End.

2) Проверить работу программы на компьютере.

3) Разработать программу решения задачи 2.

Задача 2. Даны три числа X, Y, Z. Определить наибольшее значение этих чисел.

12 Следующая ⇒