3. Составной оператор
Если при некотором условии надо выполнить определенную последовательность операторов, то их объединяют в один составной оператор.
Составной оператор начинается с зарезервированного слова Begin и заканчивается словом End, между которыми размещаются требуемые операторы, отделенные друг от друга символом «точка с запятой». После Begin ставятся пробелы, а после End – символ «точка с запятой». Операторы, входящие в составной оператор, выполняются последовательно (если среди них нет операторов перехода).
Пример составного оператора:
Begin
I:=8;
C:=16;
writeln (I*C:10)
End;
4. Программы с линейной структурой
-
программы с линейной структурой являются простейшими и используются, как правило, для реализации обычных вычислений по формулам;
-
в программах с линейной структурой инструкции выполняются последовательно, одна за другой;
-
алгоритм программы с линейной структурой может быть представлен следующим образом:
Пример программы расчета площади прямоугольника по известным его сторонам.
|
program primer; var a, b, s: real; {a, b - стороны, s - площадь} begin readln (a, b); s:= a*b; write (‘для сторон a= ’, a:10:2, ‘b= ‘, b:10:2, ‘-‘); writeln (‘площадь прямоугольника s=’, s:12:4) end.
|
Задание для срс:
1. Написать инструкции вывода значений переменных а, b и с. Значение каждой переменной должно быть выведено на отдельной строке.
|
|
writeln(a:6:2); writeln(b:6:2); writeln(c:6:2); |
2. Написать инструкции вывода значений дробных переменных x1 и x2. На экране перед значением переменной должен быть выведен поясняющий текст, представляющий собой имя переменной, за которым следует знак «равно».
|
|
writeln(‘x1=’,x1:6:2,’ x2=’,x2:6:2);
|
3. Написать программу, которая выводит на синем фоне серыми буквами четверостишие: Буря мглою. Небо кроет, Вихри снежные крутя. То как зверь она завоет, То заплачет, как дитя. А.С. Пушкин
|
|
uses Crt; begin TextBackGround(Blue); {цвет фона} TextColor(LightGray); {цвет символов} ClrScr; {очистить экран} writeln (‘Буря мглою небо кроет’); writeln (‘Вихри снежные крутя.’); writeln (‘То как зверь она завоет,’); writeln (‘То заплачет, как дитя.’); writeln; writeln (‘ А.С.Пушкин’); readln; {чтобы стихотворение не исчезло с экрана} end.
|
4. Написать программу вычисления сопротивления электрической цепи, состоящей из параллельно соединенных сопротивлений. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом). |
|
Вычисление сопротивления электрической цепи при параллельном соединении элементов. Введите исходные данные: Величина первого сопротивления (Ом) – 15 Величина второго сопротивления (Ом) – 20 Сопротивление цепи: 8.57Ом. |
{Вычисление сопротивления электрической цепи,
Состоящей из двух параллельно соединенных элементов.}
var
r1, r2: real; {сопротивление элементов цепи}
r: real; {суммарное сопротивление цепи}
begin
writeln (‘Вычисление сопротивления электрической цепи’);
writeln (‘при параллельном соединении элементов.’);
writeln (‘Введите исходные данные: ’);
write (‘Величина первого сопротивления (Ом) – ’);
readln (r1);
writeln (‘Величина второго сопротивления (Ом) – ’);
readln (r2);
r:=r1*r2/(r1+r2);
writeln;
writeln (‘Сопротивление цепи:’, r:6:2, ‘Ом’);
readln;
end.