2.2. Программирование линейных алгоритмов

В данном разделе представлены примеры программ, в основе которых лежит алгоритм линейной структуры, т.е. алгоритм, в котором действия выполняются последовательно друг за другом без разветвлений. Обычно в задачах такого типа первое действие - ввод исходных данных, затем следуют необходимые расчеты, и в заключении - вывод результатов. Примеры оформления ввода и вывода данных приведены в табл. 2.2.1.

Пример 2.2.1. Составить программу определения площади и объема сферы.

.

VAR R, S, V:real;

B EGIN

{Ввод исходных данных}

write(’Введите радиус сферы R=’); readln(R);

{Расчет площади и объема сферы}

S:=4Pisqr(R);

V:=4/3Piexp(3ln(R));

{Вывод результатов}

writeln(’Площадь сферы, S=’,S:12);

writeln(’Объем сферы, V=’,V:12);

END.

Пример 2.2.2. Рассчитать давление углекислого газа, предположив, что его поведение подчиняется уравнению Редлиха – Квонга:

,

если известны температура газа T (K) и занимаемый им объем V (м³). Параметры a и b определяются по формулам:

; ,

где Т_кр(К) и Р_кр(Па) – критические температура и давление.

_a=0.4274802327, _b=0.08664035.

CONST

{Описание констант}

R=8.314;

Sa=0.4274802327;

Sb=0.08664035;

Tk=31.0 + 273.15;

Pk=7.39  101325;

VAR T, V, P, a, b:real;

BEGIN

writeln(’Введите значения температуры (Т) и объема (V)’);

readln (T,V);

a:=Sasqr(R)exp(2.5ln(Tk))/Pk;

b:=SbRTk/Pk;

P:=RT/(V-b)-a/(sqrt(T)T(V+b));

writeln(’Давление газа равно P=’, P:7:0);

END.

Таблица 2.2.1

Примеры оформления ввода данных с клавиатуры и

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

(Переменные a,b,c,x - типа real, а i - integer)

Операторы	Вид на экране
Ввод данных
1. Ввод одной или нескольких переменных без пояснения
Readln(a); Readln(a,c,x);	2.3 2.3 4.6E-3 4
2. Ввод одной переменной с пояснением в строчку
Write(‘Imin=’); Readln(Imin);	Imin=27
3. Ввод нескольких переменных в строчку
Write(‘Введите a,b,c: ’); Readln(a,b,c);	Введите a,b,c: 8 3.123 4.44
4. Ввод нескольких переменных в столбик
Writeln(‘ a b c’); Readln(a,b,c);	a b c 8 3.765 2E-4
Вывод данных
1. Вывод одной переменной
Writeln(‘a=’,a:6:3)	a=34.284
2. Вывод нескольких переменных в строчку
Writeln(‘a=’,a:6:3,’ b=’,b:10,’ i=’,i:3);	a=34.284 b= 1.063E+02 i=127
3. Вывод нескольких переменных в столбик
Writeln(‘a=’,a:6:3); Writeln(‘b=’,b:10); Writeln(‘i=’,i:3);	a=34.284 b= 1.063E+02 i=127

Продолжение табл. 2.2.1.

4. Вывод нескольких переменных в виде таблицы с заголовком
Writeln(‘ a b i’); Writeln((a:6:3,’ ‘,b:10,’ ‘,i:3);	a b i 34.284 1.063E+02 127