Задание и порядок выполнения работы

При подготовке к лабораторной работе требуется:

1. Изучить основные команды редактора и режимы компилирования системы turbo pascal.

2. Ответить на контрольные вопросы.

3. Заготовить последовательность команд, необходимых для выполнения задания.

В лаборатории:

1. Выяснить у преподавателя имя диска и структуру каталогов, в которых расположены файлы системы turbo pascal.

2. Загрузить на исполнение систему программирования turbo pascal.

3. В режиме редактирования осуществить набор, а при необходимости и редактирование текста программ, представленных в разделе Примеры.

4. Записать текст программы на диск (Ctrl+K W), проверить его наличие на диске (Ctrl+K R) с помощью команд редактора turbo-системы.

5. Установить режим компиляции Memory, осуществить компиляцию и запуск программы на исполнение, получить численный результат.

6. Вызвать Help системы turbo pascal (F1); выйти из подсистемы Help (Esc).

7. Установить курсор на один из операторов языка turbo pascal и получить помощь по данному оператору (Ctrl+ F1). Выйти изHelp (Esc).

8. Вызвать последний квант подсказки Help (Alt+F1).

9. Выделить какой-либо участок текста программы и скопировать его в указанное преподавателем место, после чего скопированный участок программы удалить.

10. Установить режим компиляции Disk, скомпилировать программу на диск (получить на диске файл с расширением .EXE).

11. Выйти из системы turbo pascal в Windows.

12. Перейти в каталог, где расположены исполняемые файлы, и вызвав его содержимое, убедиться в наличии скомпилированного файла.

13. Продемонстрировать преподавателю работу программы.

14. Оформить отчет и защитить работу.

Примеры

1) Написать программу знакомства.

program znakomstvo;uses crt;var s:string [12];begin clrscr; writeln('dobruy den, menya zovut Mike'); writeln('a kak zovut tebya?'); readln(s); writeln('ochen priyatno, ', s);end.

2) Написать программу нахождения суммы, разности, произведения, двух вещественных чисел.

program s5;uses crt;var x,y:real;begin clrscr; writeln('enter first number'); readln(x); writeln('enter second number'); readln(y); writeln('summa= ',x+y); writeln('raznost= ',x-y); writeln('proizvedenie= ',x*y);end.

3) Вычислить площадь треугольника по трем сторонам.

program Plochad;uses crt;var A,B, C, D, P, S :real; {A, B, C – стороны треугольника} {D – значение наибольшей из сторон} {P - полупериметр} {S - площадь} begin clrscr; writeln('vvedite dlini storon A, B, C'); readln(A, B, C); {вычисление полупериметра} P:= (A+B+C)/2; {нахождение наибольшей из сторон} D:= A; if D<B then D:=B; if D<C then D:=C; {проверка условия: A, B, C – стороны треугольника или нет} {и вычисление площади треугольника} if P>D then begin {вычисление площади} S:= sgrt(P*(P-A)*(P-B)*(P-C)); writeln('Plochad S=', S); end else writeln('storoni',A,’ ,’,B,’ ,’,C,’ ne yavlyayutsya storonami treygolnika ’)end.

Контрольные вопросы

1. Каким образом осуществляется запуск системы turbo pascal?

2. Назначение, состав системы turbo pascal?

3. Компоненты интегрированной среды turbo pascal?

4. Назначение окон в системе turbo pascal?

5. Какова структура меню системы turbo pascal?

6. Назначение строки статуса?

7. Укажите основные средства экранного редактирования.

8. Укажите режимы работы компилятора. В чем состоит различие между ними?

9. Каким образом осуществляется запись программ на диск?

10. Как осуществить выход из системы turbo pascal в Windows?