5.5.3 Примеры программ линейной структуры

В общем случае в программе линейной структуры необходимо выполнить:

• ввод исходных данных с клавиатуры, диска и т.п. устройств;

• расчёты в соответствии с логикой задачи;

• вывод на экран результатов расчётов.

Пример задачи. Найти площадь поверхности и объем шара, если известно, что длина его радиуса равна а.

Решение. Так как в задаче не указаны конкретные значения радиуса, то, следовательно, его значения могут быть самого общего типа – вещественные числа, а значения - произвольные. Ввод этих значений в программу проще всего выполнить с клавиатуры.

Далее, согласно известным формулам для площади и объёма шара, выполним расчёты площади и объёма. В заключение, программа должна вывести на экран значения площади и объёма шара, сопроводив эти числа поясняющим текстом.

На рис. 5.1 приведено окно с программой линейной структуры, решающей эту задачу.

Рис. 5.1. Пример программы линейной структуры

На рис. 5.2 приведено окно выполнения программы на рис. 5.1.

Рис. 5.2. Окно исполнения программы с рис. 5.1

Лекция 6. Операторы ветвления (выбора)

6.1 Оператор ветвления if

Оператор ветвления IF (иногда его называют оператором выбора или условным оператором) имеет следующую структуру:

If <выражение типа Boolean >

then <оператор(ы) 1>

else <оператор(ы) 2>;

Условный оператор в виде блок-схемы можно изобразить так, как это показано на рисунке 6.1. На этом рисунке В – это логическое выражение, чаще всего оно содержит операции отношения. Если В истинно, то выполняются действия 1, в ином случае – действие 2. Действие – это один или несколько операторов языка Object Pascal.

Да

Нет

then часть:

Действие1

else часть:

Действие 2

Рис.6.1. Блок-схема оператора IF

Приведённая выше конструкция оператора IF называется схемой с полным ветвлением. Возможна схема и неполного ветвления, когда отсутствует else – часть:

if <выражение типа Boolean > then <оператор(ы)>;

Блок-схема оператора IF с неполным ветвлением представлена на рис. 6.2. Пример полного ветвления:

if a > b then a:= 75 else b:= 75;

Пример неполного ветвления:

if (a < 0) or (b < 0) then a:= -934;

Рис.6.2. Блок-схема оператора IF с неполным ветвлением

Если возникает необходимость в then или else части выполнить несколько операторов, то они объединяются в один составной оператор.

Пример:

if (a < d) or (b < d) then

begin

writeln('d= ', d);

r:= d;

m:= a;

end

else

begin

writeln('l= ' , l);

r := l;

m: = t ;

n: = у;

end;

Заметим, что операторы if могут быть вложенными в друг друга. Решение следующей задачи использует именно такую конструкцию.

Задача. С клавиатуры вводятся три целых числа, вывести их на экран в порядке возрастания.

program р6_1;

var

a, b, c, xl, х2, хЗ : integer;

begin

WriteLn('Введите три числа: a, b, c');

Readln(a, b, c);

{ Сначало располагаем по возрастанию числа a и b }

if a < b then begin

x1 := a; x2 := b;

end

else begin

x1 := b; x2 := a;

end;

{ Далее, располагаем в порядке возрастания ещё и c }

if c < х1 then begin

x3 := x2; x2 := x1; x1 := c;

end

else { в else части помещается вложенный оператор if }

if c < x2 then begin

x3 := x2; x2 := c;

end

else x3 := c;

Writeln('Числа в порядке возрастания: ', x1, ' ' , x2, ' ' , x3);

end.