Методические материалы для лабораторного занятия №12

Тема СРСП: Среда программирования Turbo Pascal. Стандартные процедуры и функции.

Количество часов: 2 ч.

Знакомство со средой

1. Перед тем как начать работать в системе программирования Turbo Pascal 7.0, вам желательно создать папку, в которой будут храниться файлы с исходными текстами ваших программ. Папку создайте в каталоге C:\TP7. Имя папки введите в английской раскладке клавиатуры.

2. Если на Рабочем столе нет ярлыка программы Turbo Pascal, то для удобства работы вам желательно создать ее ярлык (исполнимый файл turbo.exe расположен по адресу: C:\TP7\BIN). Для создания ярлыка щелкните правой кнопкой по значку файла turbo.exe и выберите следующие пункты из контекстного меню Отправить  Рабочий стол (создать ярлык).

3. Загрузите Turbo Pascal (TP). Если программа открывается в оконном режиме, то для того чтобы перевести ее в полноэкранный режим, нажмите комбинацию клавиш Alt+Enter.

4. Установите в качестве рабочего каталога вашу папку. Для этого выполните: File  Change Dir… Появится окно Change Directory. В области Directory Tree дважды щелкните по каталогу TP7, затем в появившейся ветке выделите ваш каталог (например, MASHA) и щелкните по кнопке Chdir. Для закрытия окна щелкните по кнопке OK.

Рис. 1. Среда Turbo Pascal 7.0

5. Под строкой меню отображается имя исходного файла. Название NONAME00.PAS говорит о том, что документ еще ни разу не был сохранен. Сохраните его, выполнив команды меню File  Save или нажав клавишу F2.

6. При первом сохранении файла появится окно Save File As.

Рис. 2. Окно сохранения файла

7. Введите имя файла: lab1.pas.

8. Щелкните по кнопке ОК.

Примечание.

2. Всем файлам, созданным в программе TP, автоматически присоединятся расширение .pas.

3. Рабочий каталог станет «каталогом по умолчанию» при открытии или сохранении файлов, но только на время сеанса работы с программой. В следующем сеансе работы, «каталогом по умолчанию» снова станет C:\TP7\BIN.

9. Введите текст простой программы, которая выводит текст «Hello, my friend!» на экран.

program Hello;

begin

write(’Hello, my friend!’);

end.

10. Сохраните файл (нажмите клавишу F2).

11. Произведите компиляцию программы: нажмите Alt+F9. Если вы сделали синтаксические ошибки, то курсор будет установлен в соответствующей строке, а внизу сообщение с указанием кода ошибки. Если ошибок нет, то появится сообщение о том, что компиляция произведена успешно (Рис. 3). Нажмите любую клавишу.

Рис. 3. Сообщение об успешной компиляции

12. Запустите программу на выполнение: нажмите Ctrl+F9.

13. Программа выполнена. Для того, чтобы открыть окно с результатом выполнения нажмите Alt+F5. Вы увидите надпись «Hello, my friend!» на черном экране.

14. Нажмите любую клавишу для возврата в основное окно.

15. Выйдите из программы ТР: выполните File  Exit или нажмите Alt+X.

Значения некоторых клавиш и сочетаний клавиш в среде тр

Клавиша (сочетание клавиш)	Назначение
Alt+F9	Компиляция
CTRL+F9	Запуск программы на выполнение
ALT+F5	Просмотр результата работы программы
F2	Сохранение файла
F3	Открытие файла
F6	Переход между открытыми файлами
Alt+F3	Закрытие файла
Alt+X	Выход из программы

Упражнение 1. Задача. Написать программу, производящую арифметические действия над целыми числами. PROGRAM arif_int; uses crt;{подключение модуля CRT} var a, b, sum, difference, product : integer;{описание переменных} begin clrscr; {процедура очистки экрана} write('a='); {вывод на экран подсказки} readln(a); {ввод значения переменной а} write('b='); {вывод на экран подсказки} readln(b); {ввод значения переменной b} {вычисление} sum:=a+b; difference:=a-b; product:=a*b; {вывод результатов на экран} writeln(a,’+’,b,’=’,sum); writeln(a,’-’,b,’=’,difference); writeln(a,’*’,b,’=’,product); readln; {Задержка экрана} end.

Упражнение 2. Задача. Написать программу, производящую арифметические действия над вещественными числами. PROGRAM arif_real; uses crt;{подключение модуля CRT} const m=6;{общее количество знаков, отводимых на запись числа} n=2;{количество знаков в дробной части} var a, b, c, d, e, f:real; begin clrscr; {процедура очистки экрана} write('a=');readln(a); write('b=');readln(b); c:=a+b; d:=a-b; e:=a*b; f:=a/b; writeln('summa =',c:m:n); writeln('raznost =',d:m:n); writeln('proizved=',e:m:n); writeln('chastnoe=',f:m:n); readln; end.

Упражнение 4. Задача. Дано трехзначное целое число. Найти сумму его цифр. PROGRAM digits_summa; uses crt;{подключение модуля CRT} var x,d1,d2,d3,s : integer; begin clrscr; write('Enter 3-digital number: '); readln(x); d1:=x div 100; d2:=x mod 100 div 10; d3:=x mod 10; s:=d1+d2+d3; writeln(d1,’+’,d2,’+’,d3,’=’,s); readln; end.

Упражнение 5. Задача. Известны катеты прямоугольного треугольника. Найти гипотенузу. PROGRAM hyp; uses crt;{подключение модуля CRT} const m=6;{общее количество знаков, отводимых на запись числа} n=2;{количество знаков в дробной части} var a,b,c:real; begin clrscr; {процедура очистки экрана} write('a=');readln(a); write('b=');readln(b); c:=sqrt(sqr(a)+sqr(b)); writeln('hypotenuza =',c:m:n); readln; end.