Текст программы.

Program Demowriteln; - заголовок программы

Uses Crt; - список имен, подключаемых библиотекой

модулей (в данном случае - CRT ).

{Программа вычисляет площадь прямоугольника и выводит на печать результат}

- комментарий

Var A,B,Pl : integer; - блок описания переменных (тип)

A,B - длина сторон, Pl - площадь прямоугольника }

Begin - оператор начала операторного блока

(раздел операторов).

A:=8; B:=4; Pl:=A*B; - оператор присваивания.

Writeln(‘--------------‘); - оператор вывода на экран.

35

Writeln(‘! Сторона А ! Сторона В ! Площадь !’);

Writeln(‘--------------‘);

35

Writeln’!’,A:7,B:11,Pl:11,’!’:5);

Writeln(‘--------------‘);

35

End. - оператор конца операторного блока.

Пример цветового оформления текста.

Program Text_farben;

Uses Crt;

Var i,k : integer;

Begin

For i:=0 to 7 do оператор цикла

Begin

Clrscr; процедура, с помощью которой происходит очистка экрана

TextBackGround(i); устанавливает цвет фона

Delay(2000); выполнение программы приостанавливает на t мс

For k:=0 to 15 do

Begin

TextColor(k); устанавливает текущий цвет

GotoXY(20,k+1); курсор перемещается в 20 позицию, к+1 строки экрана;

Write(‘Hi, friend!’); левый верхний угол - (1,1);

Delay(800);

End;

End;

End.

Цвет фона: Текущий цвет для текста или рисования:

0 - черный 7 цветов фона и

1 - синий 8 - темно-серый

2 - зеленый 9 - светло-синий

3 - голубой 10 - светло-зеленый

4 - красный 11 - светло-голубой

5 - фиолетовый 12 - светло-красный

6 - коричневый 13 - сиреневый

7 - св. серый 14 - желтый

15 - белый

16 - мерцание символа

5. Пример решения задачи

5.1. Индивидуальное задание.

Вычислить значение функции F(X) = COS(X+1) TGX / (LN X+2,5), где X - любое число из интервала [0..1], вводимое с клавиатуры в диалоговом режиме. Определить принадлежность отрезку [3..9].

5.2. Описание работы.

5.2.1. Выберите алгоритм решения задачи.

5.2.2. Используя таблицы, приведенные в приложении 1, выберите стандартные функции, необходимые для решения задачи. Если стандартных функций не существует, получите требуемую функцию, используя математические преобразования.

5.2.3. Выберите форму представления данных. Используйте следующие типы переменных: INTEGER, REAL, BOOLEAN, CHAR.

5.2.4. Для ввода данных используйте диалоговый режим. Результат решения задачи выведите на экран дисплея. При составлении текста программы используйте оператор присваивания, оператор ввода, оператор вывода.

Введите текст программы.

5.2.5. Для этого необходимо войти в программу-оболочку TP7, как указано выше. Загрузить в редактор Турбо-Паскаль новый (NEW) файл. Для этого нажмите одновременно клавиши [ALT]+[F] , установите курсор на подменю «NEW» и нажмите клавишу [ENTER].

5.2.6. Сохраните набранный текст программы. Нажмите клавишу [F2]. На запрос системы укажите, где и с каким именем будет сохранена ваша программа. Например, C:\PROG.PAS, если программа сохраняется на жесткий диск или A:\PROG.PAS, если программа сохраняется на дискету.

5.2.7. После того, как программа набрана, откомпилируйте ее. Нажмите одновременно клавиши [ALT]+[F9]. Если в программе есть ошибки, то в левом верхнем углу появится сообщение об ошибке, а курсор укажет место ошибки. Если в программе ошибок нет, то появится сообщение об успешной компиляции.

5.2.8. После компиляции программу необходимо выполнить. Для этого нажмите одновременно клавиши [CTRL]+[F9]. Для просмотра результатов одновременно нажмите клавиши [ALT]+[F5].

5.2.9. Убедитесь в правильности решения задачи. Введите данные, для которых легко устно просчитать результат. Выполните программу и убедитесь в правильности полученного результата.

5.2.10. Выведите полученные результаты на печать.