Практическая работа № 3

Название: Изучение интерфейса Турбо Паскаль 7.0

Цель работы: Научиться составлять и тестировать программы на языке Паскаль в интегрированной среде программирования Турбо Паскаль 7.0

Задание: Выполнить на компьютере задания и представить отчет с текстами программ и ответами на контрольные вопросы.

Выполните следующие действия:

Откройте файл «Справочные материалы» и ознакомьтесь с его содержимым.
Запустите Turbo Pascal (Turbo.exe).
Наберите тексты и отладьте три нижеследующие программы.
Только после этого приступайте к выполнению заданий «Программы с линейной структурой» на оценку.

Программа № 1. Создадим программу вычисления экспоненты числа
№	Задание	Порядок выполнения
	Набрать текст программы №1 (см. ниже)
	Сохранить ее под именем Prog1 на диске в личной папке	FileChange dir…Drives QOKF2 и в поле Save file as набрать Prog1
	Запустить программу на выполнение	Ctrl+F9
	Просмотреть результат работы программы	Alt+F5
	Вернуться в текстовый редактор	Нажмите любую клавишу
{Учебная программа Вычисление экспоненты числа } Program Prog1;
program Prog1;
Var t: integer;
Y: real;
Begin
t:=2;
y:= exp(2*t);
Write ('y=',y);
End.

Программа № 2. Создадим программу вычисления суммы двух целых чисел.

№	Задание	Порядок выполнения
	Открыть новое окно	F10  File  Enter New  Enter
	Набрать текст программы №2	Переключить РУС/ЛАТ Shift+Ctrl+Scroll Lock
	Сохранить ее под именем Prog2 на диске	Нажать функциональную клавишу F2 и в поле Save file as набрать Prog2
	Запустить программу на выполнение	Ctrl+F9
	Просмотреть результат работы программы	Alt+F5
	Ввести значения А и В	Ввод числа 23  Enter, Ввод числа 8  Enter
	Вернуться в текстовый редактор	Нажмите любую клавишу
	Перейти к окну 1	Alt+1
	Перейти к окну 2	Alt+ 2

{Учебная программа Вычисление суммы двух целых чисел}

program Prog2; {Заголовок программы}

var {Описание раздела переменных}

А,В, Summa: integer; {Переменные А,В,Summa – целые}

begin {Начало программы}

Writeln('Введите значение целого числа А =');{Вывод запроса на экран}

Read(A); {Ввод значения А с клавиатуры}'

Writeln('Введите значение целого числа В =');

Read(В);

Summa:= А + В; {Вычисление переменной Summa}

Writeln('Сумма чисел ' ,А, ' и ',В,' = ',Summa); {Вывод ответа}

end. {Конец программы}

Программа № 3. Создадим программу, которая в цикле подсчитывает значение y, и осуществим ее пошаговое выполнение
№	Задание	Порядок выполнения
	Открыть новое окно	F10  File  Enter New  Enter
	Набрать текст программы №3
	Сохранить ее под именем Prog3 на диске	Нажать функциональную клавишу F2 и в поле Save file as набрать Prog3
	Открыть окно Watch	F10  Debug  Enter  Watch  Enter
	Занести в окно Watch переменные i, у	Ctrl+F7  i  Enter  Ctrl+F7 y  Enter
	Запустить программу на пошаговое выполнение	F7
	Выйти из среды программирования, закрыв все окна	Alt + x
Program Prog3;
program Prog3;
Var i: integer;
Y: real;
Begin
For i:=1 to 10 do
y:= i/2;
End.

1 / 31 2 3 > Следующая >>>

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]