В ПОМОЩЬ СТУДЕНТУ
И ШКОЛЬНИКУ
Горбачев Л.И. Основы программирования в среде Turbo Pascal.
8. Программа. Структура программы.
8.7. Раздел операторов.
В программе на языке Паскаль раздел операторов является основным, так как именно в нем с предварительно описанными переменными, константами, значениями функций выполняются действия, позволяющие получить результат, ради которого создавалась программа.
Раздел операторов начинается с ключевого слова
BEGIN (начало), далее следуют операторы языка, отделенные друг от друга точкой с
запятой. Заканчивается раздел словом END (конец), после которого должна стоять
точка:
begin
< оператор >
...
< оператор
>
end.
Операторы выполняются строго последовательно в том
порядке, в котором они записаны в тексте программы в соответствии с синтаксисом
и правилами пунктуации. Слова begin и end являются аналогом открывающей и
закрывающей скобки в обычных арифметических выражениях. Для наглядности будем
далее использовать запись Begin и End для глобального блока и begin и end для
локальных блоков.
Пример заголовка программы вместе с разделом
описаний.
program Pr1;
{ Модуль Crt - поддержка текстового режима дисплея
}
uses CRT;
{ Константы }
const K1 = 10;
K2 = 'Константа';
{
Описание типов данных }
type
{ Перечисление }
Pr = (T1, T2, T3, T4,
T5);
{ Ограниченные типы переменных }
Gr1 = 1..10; Gr2 = 1..K1; Gr3 =
T2..T4;
{ Описание переменных }
var A, B : Pr; Z : Char;
X, Y : Gr1; C
: Gr2; D : Gr3;
Num : integer;
begin { Раздел операторов
}
...................
end.
Пример заголовка программы вместе с
разделом описаний.
program Pr2;
label 10, 15; { Описание меток }
const
Pi = 3.14159; { Описание константы }
var { Описание переменных }
X :
0..20;
Z : 'A'..'F'; { Ограниченные переменные }
A, B : boolean; {
Логические переменные }
C : Char; { Символьная переменная
}
begin
................
end.
Пример: Заголовок программы
решения квадратного уравнения с разделом описаний переменных.
program
KvUr;
uses CRT;
var a, b, c : real; { коэффициенты уравнения }
x1, x2 :
real; { корни уравнения }
d : real; { дискриминант }
Begin { начало
раздела операторов }
...
End. { конец раздела операторов }
Пример:
Заголовок программы нахождения большего из двух введенных чисел с разделом
описаний переменных.
program Numbers;
uses CRT;
var a, b :
real;
Begin { начало раздела операторов }
...
End. { конец раздела
операторов }
Пример: Составьте программу для вычисления
выражения:
где a = 1.03; b = 2.91E-3; x = 5.27E+2
program primer;
uses CRT;
var A, B, C, w, X : real;
Begin
ClrScr;
A := 1.03; B := 2.91E-03; X := 527;
w := Exp(7 * Ln(A)); w := Abs(w);
w := Ln(w) / Ln(10);
{ C - промежуточный результат }
C := Exp(3 * Ln(X)); C := ArcTan(C);
C := C * Pi * A / Sqrt(Abs(A + X));
C := C * (B - Cos(A / B)); w := W + C;
WriteLn('A=', A:5:3,' B=', B:5:3, ' X=', X:5:3);
Write('w=', w:5:8);
ReadLn
End.
Пример: Программа вычисления площади поверхности (S) и объема (V) парника длиной l = 10 м, имеющего поперечное сечение в форме полукруга радиуса r = 2 м.
Program Parnik;
Uses CRT;
Const Pi = 3.1415926;
Var l, r, S, V : real;
Begin
ClrScr;
l := 10;
r := 2;
S := Pi * r * (r + l);
V := 0.5 * Pi * r * r * l;
WriteLn('Площадь: ', S, ' Объем: ', V);
ReadLn
End.
| Главная |
| Новости |
| TurboPascal |
| Учебное пособие |
| Лекции |
| Исходники |
| Математика |
| Книги |
| Лекции |
| Шпоры |
| ЦТ и ЕГЭ |
| Физика |
| Шпоры |
| ЦТ и ЕГЭ |
|
Литература |
| Другое |
| Мой родной край |
| Фотогалерея |
| Форум |
| Ссылки |
© Copyright(c) 2004 Amro Group. All rights reserved
