Структура «следование»

Структура «следование» имеет вид:

где S₁, ..., S_N — операторы.

На языках программирования она реализуется как последовательность операторов, следующих один за другим:

< оператор1>

…

<операторN>.

Пример 4.1

Program Pr1; {Заголовок программы}

Uses crt; {Список подключаемых модулей}

Var {Раздел описания переменных}

S: string; {Переменная S строкового типа}

Begin {Начало операторной части программы}

Clrscr; {Процедура очистки текстового экрана}

WriteLn('Как вас зовут?'); {Процедура вывода на экран}

ReadLn(S); {Считываем с клавиатуры переменную S}

Clrscr; {Очистка экрана}

Gotoxy(25,12); {Устанавливаем курсор в точку с координатами}

TextColor(2); {Установка цвета шрифта}

Writeln('Здравствуйте');

Gotoxy(28,13);

TextColor(12);

Writeln(S); {Вывод значения переменной S на экран}

Readln; {Задержка выхода из программы}

End. {Конец программы}

Пример 4.2 Структура следование.

Задача: По введенному радиусу вычислить площадь круга и длину окружности с заданным радиусом.

program radius;

uses crt;

const pi=3.14;

var r,s,c:real;

begin

clrscr;

write('Введите радиус - ');readln(r);

c:=2*pi*r;

s:=pi*sqrt(r);

writeln('Длина окружности равна ',c:10:3);

writeln('Площадь круга равна ',s:10:3);

readln;

end.

Структура «развилка»

Структура «развилка» имеет вид:

где Р – логическое выражение (условие), S₁, S₂ — операторы или группы операторов.

Такой вид развилки называется полной условной конструкцией.

На языках программирования данная структура реализуется так.

Бейсик	Паскаль	Си
IF <выражение> THEN <оператор1> ELSE <оператор2> END IF	if <выражение> then <оператор1> else <оператор2>;	if (<выражение>) <оператор1>; else <оператор2>;

Здесь <выражение> — логическое выражение (условие), <оператор> — это либо один оператор, либо группа операторов. В Паскале группа операторов заключается в операторные скобки begin — end, в Си — в фигурные скобки {}.

Структура развилка используется также в неполной форме. Такой вид развилки называется неполной условной конструкцией.

Структура неполной развилки имеет вид:

где Р — логическое выражение (условие), S — оператор или группа операторов.

Она реализуется следующим образом.

Бейсик	Паскаль	Си
IF <выражение> THEN <оператор1> END IF	if <выражение> then <оператор1>;	if (<выражение>) <оператор1>;

Пример 4.3

Задача: Определить поместиться ли вода в бак. (Параметры бака и объем имеющейся воды нужно вводить с клавиатуры).

program bak;

uses crt;

var V,Vb,a,b,h:real;

begin

clrscr;

write('Введите длину бака - ');

readln(a);

write('Введите высоту бака - ');

readln(b);

write('Введите ширину бака - ');

readln(h);

write('Введите объем имеющейся воды - ');

readln(V);

Vb:=a*b*h;

if Vb>=V

then writeln('Вода в данный бак поместится ')

else writeln('Вода в данный бак не поместится ');

readln;

end.