Система программирования Турбо Паскаль. Воробьева А.П - 24 стр.

UptoLike

ВУЗ: 

НГАСУ «Сибстрин» | Новосибирск

Составители: 

Рубрика: 

49
ром описан внешний файл печати с именем Lst. Для вызова моду-
ля в программе после ее заголовка записывается предложение ис-
пользования модулей:
Uses Printer;
Внешний файл
Lst является нестандартным, поэтому его имя
должно быть непосредственно указано в операторе вывода. На-
пример, оператор
writeln(Lst, ‘K=’, 8+5:3, ‘ y=’, 7/10:5:1);
выведет результаты на печать в том же виде, что и на экран.
4.3. Структура основной программы
Программа в системе Турбо Паскаль включает в себя заго-
ловок, раздел описаний и раздел операторов
. После заголов-
ка может стоять предложение использования модулей (
Uses).
Предложение
Uses Printer может отсутствовать, если не требует-
ся вывод данных на печать.
Раздел операторов оформляется в виде составного
оператора.
Составной оператор представляет собой последова-
тельность операторов, заключенных в операторные скобки, обо-
значаемые служебными словами
Begin…End.
Конец любого предложения на языке Турбо Паскаль (описа-
ние, оператор) фиксируется точкой с запятой. Программа всегда
заканчивается точкой.
В программу могут быть включены комментарии – тексты,
поясняющие программу. Комментарии заключаются в фигурные
скобки и записываются в любом месте программы.
Общий вид основной программы
Program <имя>; {Заголовок программы}
Uses Printer; {
Вызов модуля}
Var {
Раздел описания переменных}
<переменная>, …, <переменная>: <тип>;
……………………………………………
<переменная>, …, <переменная>: <тип>;
Begin {
Раздел операторов}
<оператор>;
…………….
<оператор>;
End.
50
Пример линейной программы
Составить программу вычисления площади треугольника по
формуле:
))()(( cpbpappS −−−= ,
где
2
cba
p
+
+
= – полупериметр; 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 
ром описан внешний файл печати с именем Lst. Для вызова моду-                        Пример линейной программы
ля в программе после ее заголовка записывается предложение ис-       Составить программу вычисления площади треугольника по
пользования модулей:
                           Uses Printer;                         формуле:    S=    p( p − a )( p − b)( p − c) ,
     Внешний файл Lst является нестандартным, поэтому его имя            a+b+c
должно быть непосредственно указано в операторе вывода. На-      где p =              – полупериметр; a, b, c – стороны треугольника.
пример, оператор                                                              2
            writeln(Lst, ‘K=’, 8+5:3, ‘ y=’, 7/10:5:1);          Исходные данные: a = 1; b = 2; c = 0,5.
выведет результаты на печать в том же виде, что и на экран.          Program Lvp;
                                                                     Uses Printer;
           4.3. Структура основной программы
                                                                     Var
    Программа в системе Турбо Паскаль включает в себя заго-               a, b, c, p, S: real;
ловок, раздел описаний и раздел операторов. После заголов-
                                                                     Begin
ка может стоять предложение использования модулей (Uses).
Предложение Uses Printer может отсутствовать, если не требует-            writeln(‘Введите исходные данные’);
ся вывод данных на печать.                                                read(a, b, c);
    Раздел операторов оформляется в виде составного                       p := (a + b + c) / 2;
оператора. Составной оператор представляет собой последова-               S := sqrt(p ∗ (p – a) ∗ (p – b) ∗ (p – c));
тельность операторов, заключенных в операторные скобки, обо-         {Вывод на экран}
значаемые служебными словами Begin…End.
    Конец любого предложения на языке Турбо Паскаль (описа-               writeln(‘Площадь треугольника S =’, S:5:2);
ние, оператор) фиксируется точкой с запятой. Программа всегда        {Вывод на печать}
заканчивается точкой.                                                     writeln(Lst, ‘Площадь треугольника S =’, S:5:2);
    В программу могут быть включены комментарии – тексты,            End.
поясняющие программу. Комментарии заключаются в фигурные
скобки и записываются в любом месте программы.
                                                                      При выполнении оператора read программа останавливается
                  Общий вид основной программы
                                                                 и переходит в режим ожидания набора исходных данных с кла-
    Program <имя>;          {Заголовок программы}
    Uses Printer;           {Вызов модуля}                       виатуры. В этот момент надо набрать на клавиатуре:
    Var                     {Раздел описания переменных}                               1 2 0.5         [Enter]
      <переменная>, …, <переменная>: <тип>;                           После нажатия клавиши [Enter] программа продолжает вы-
      ……………………………………………                                          полнение и выведет результат сначала на экран, а затем на печать
      <переменная>, …, <переменная>: <тип>;                      в следующем виде:
    Begin                   {Раздел операторов}
                                                                                Площадь треугольника S = 3.87
      <оператор>;
      …………….
      <оператор>;
    End.
                              49                                                                    50

Страницы