ЛАБОРАТОРНАЯ РАБОТА № 3. Тема:Основные приемы работы в инструментальной среде TurboPascal 7.0»

Тема: Основные приемы работы в инструментальной среде TurboPascal 7.0»

Цель работы: Овладение практическими навыками работы среде TurboPascal 7.0

Пояснения к работе

 

Система программирования TurboPascal представляет собой совокупность системных программ, предназначенных для создания, отладки и выполнения Паскаль-программ. Разработка программы на TurboPascal проходит в три этапа: создание текста программы; компиляция, исполнение откомпилированной программы. В соответствии с этими функциями система TurboPascal включает в себя три главных компонента: редактор текстов, компилятор, исполнительную систему.

С помощью встроенного в систему текстового редактора можно формировать в памяти любые тексты, не только программы на Паскаль. Текст программы, созданный редактором, можно сохранить на диске в виде файла формата

< Имя_файла>.pas (имя файлу задавать по правилам DOS)

Загрузка системы TurboPascal выполняется файлом

BPascal \ BIN \ tpx.exe

Развернуть окно на весь экран Ctrl\Enter

Выход из системы File \ Exit

 

Последовательность выполнения

1. Загрузите TPascal, разверните окно на весь экран.

2. Используя клавиатуру, введите текст программы для следующего задания: Ввести радиус окружности R. Вычислить длину окружности и площадь круга с радиусом R.

 

Var

R: Integer;

S, L: Real;

Begin

Write(‘VVod R’);

Readln(R);

L: = 2 * 3.14 * R;

S: = 3.14 * R * R;

Writeln(‘L=’, L);

Writeln(‘S=’, S);

End.

1. Загрузите программу на выполнение, для этого выполните Ctrl/F9 или Run / Run
2. Введите любое целое число и нажмите Enter,
3. Для просмотра результата отобразите окно вывода Debug / Output
4. Для того, чтобы это окно закрепить на экране выполните Window / Title
5. Загрузите программу еще несколько раз, вводите разные числа, просмотрите результат вычисления
6. Сохраните программу
7. Введите текст другой программы в новом окне (File / New) для следующего задания:

Вычислить значение выражения

Var

X, Y: Real;

Begin

Write(‘Vvod x ’);