Общий вид основной программы
Program <имя>; {Заголовок программы}
Uses Printer; {Вызов модуля}
Var {Раздел описания переменных}
<переменная>, …, <переменная>: <тип>;
……………………………………………
<переменная>, …, <переменная>: <тип>;
Begin {Раздел операторов}
<оператор>;
…………….
<оператор>;
End.
Пример линейной программы
Составить программу вычисления площади
треугольника по формуле: 
,
где
– полупериметр; a, b,
c – стороны треугольника.
Исходные данные: a = 1; b = 2; c = 0,5.
Program Lvp;
Uses Printer;
Var
a, b, c, p, S: real;
Begin
writeln(‘Введите исходные данные’);
read(a, b, c);
p := (a + b + c) / 2;
S := sqrt(p (p – a) (p – b) (p – c));
{Вывод на экран}
writeln(‘Площадь треугольника S =’, S:5:2);
{Вывод на печать}
writeln(Lst, ‘Площадь треугольника S =’, S:5:2);
End.
При выполнении оператора read программа останавливается и переходит в режим ожидания набора исходных данных с клавиатуры. В этот момент надо набрать на клавиатуре:
1 2 0.5 [Enter]
После нажатия клавиши [Enter] программа продолжает выполнение и выведет результат сначала на экран, а затем на печать в следующем виде:
Площадь треугольника S = 3.87
4.4. Контрольные задания
1. Записать на языке Турбо Паскаль операторы присваивания
Вариант |
Математическая запись |
1 |
а)
б)
|
2 |
а)
б)
|
3 |
а)
б)
|
4 |
а)
б)
|
5 |
а)
б)
|
6 |
а)
б)
|
7 |
а)
б)
|
8 |
а)
б)
|
9 |
а)
б)
|
10 |
а)
б)
|
11 |
а)
б)
|
12 |
а)
б)
|
13 |
а)
б)
|
14 |
а)
б)
|
15 |
а)
б)
|
16 |
а)
б)
|
2. Выполнить оператор присваивания
Вариант |
Запись оператора на языке Турбо Паскаль |
Исх. данные |
Тип переменных |
1 |
y:=37DIV2MOD7/3; |
– |
y – веществ. |
2 |
a:=exp(trunc(m+1/2)ln(x+2.5E–2)); |
x = 8,9 m = 1 |
a, x – веществ. m – целая |
3 |
k:=n+trunc(m+b); |
n = –6 b = 0,8 m = 2 |
k,n,m – целые b – веществ. |
4 |
m:=aac+trunc(b); |
a = 45 b = 0,8 c = 2 |
a,c – целые b,m – веществ. |
5 |
k:=exp(trunc(xb)ln(y)); |
x = 1,2 b = 2 y = 4 |
k,x – веществ. b,y – целые |
6 |
d:=–aMODb+aDIVbc; |
a = 5 b = 2 c = 3 |
a,b,c – целые d – веществ. |
7 |
i:=trunc(k/nn+a); |
k = 99 n = 100 a = 5,87 |
i,k,n – целые a – веществ. |
8 |
f:=a+trunc(b/c)–64/sqr(a)+1; |
a = 4 b = 0,8 c = 2 |
f,b – веществ. a,c – целые |
9 |
b:=4d1E–2/cos(4d–c)+frac(57.12); |
c = 12 d = 3 |
c,d – целые b – веществ. |
10 |
k:=ab/c+frac(12.7E–1); |
a = 6 b = 2 c = 4 |
a,b,c – целые k – веществ. |
11 |
b:=exp(trunc(n/m)ln(4+sqrt(4/m))); |
m = 3 n = 2 |
n,m – целые b – веществ. |
12 |
m:=trunc(a(bDIV4)+0.57E1); |
a = 6 b = 1 |
m,a,b – целые |
13 |
a:=exp(5DIV2ln(4))–2; |
– |
a – веществ. |
14 |
z:=(4+sqrt(b+1)+24E–1c)trunc(b/4); |
b = 1 c = 10 |
b,c – целые z – веществ. |
15 |
p:=trunc(abs(b–a))DIV2–34MOD10; |
a = 4,8 b = 0,8 |
p,a,b – веществ.
|
16 |
a:=19DIV44+trunc(5.4)MOD4; |
– |
a – целая |