Набор и выполнение программ в среде TurboPascal(msdos)

1 Создание каталогов для работы в TurboPascal(TP).

1.1 Из оболочки NortonCommanderнажимаемALT + F1, выбираем локальный дискD(С) и подтверждаем выбор клавишейEnter(Ввод).

1.2 На диске D (С) выбираем каталог TP, нажимаем Enter.

1.3 В каталоге TP находим подкаталог BIN и нажимаем Enter.

1.4 Находим каталог своей группы (например, ZFMT11 − заочный факультет, группаMT11) и заходим туда клавишейEnter. В случае отсутствия этого каталога его следует создать (клавишаF7).

1.5 Создаем подкаталог LAB2 для дальнейшего сохранения файлов лабораторной работы.

2 Форматирование дискеты и копирование основных файлов среды TP.

2.1 Вставляем чистую дискету в дисковод.

2.2 В командной строке печатаем …>formata: и нажимаем клавишуEnter(Ввод).

2.2 Нажимаем ALT + F2и выбираем дискA.

2.3 Копируем на дискету основные файлы среды TP:turbo.tp,turbo.tph,turbo.tpl,turbo.exe.

2.4 Нажимаем ALT + F2и выбираем локальный дискD.

2.5 Вынимаем дискету из дисковода.

Студенту достаточно скопировать указанные файлы с дискеты на локальный диск на домашнем компьютере, чтобы работать в среде TPдома.

3. Копирование основных файлов и запуск среды TP.

3.1 Из каталога BIN в подкаталог своей группы (например, ZFMT11) копируем файлы средыTP:turbo.tp,turbo.tph,turbo.tpl,turbo.exe.

3.2 Запускаем стартовый файл turbo.exeнажатием клавишиEnter. Появляется интегрированная средаTP.

4. Решение первой задачи лабораторной работы.

Задача 1.Подсчитать значения функции, где, переменнаяизменяется с шагом.

4.1 Напечатаем программу решения задачи на языке Pascal:

Program lab2_1;

var a, t, p : real;

begin

a:=1.6; t:=1;

while t<=2 do

begin

p:=sin(a/t);

writeln(t:3:1,p:9:4);

t:=t+0.2

end

end.

4.2 Сохраним программу в подкаталогеLAB2 каталогаZFMT11 под именемlab2_1.pas. Для этого выполним команды главного менюFile/Save as…, введем имя файла

ZFMT11\LAB2\lab2_1

и нажмем клавишу Enter.

4.3 Выполним компиляцию программы (F9).

4.4 Запустим программу на выполнение (Ctrl + F9).

4.5 Просмотрим полученный результат (Alt + F5).

4.6 Изменить раздел операторов программы lab2_1.pas,используя оператор циклаrepeat…untilследующим образом:

begin

a:=1.6; t:=1;

repeat

p:=sin(a/t);

writeln(t:3:1,p:9:4);

t:=t+0.2

until t>2

end.

4.7 Выполнить компиляцию программы, запустить программу на выполнение и просмотреть полученный результат.

4.8 Изменить программу lab2_1.pas,используя оператор циклаfor…to…doследующим образом:

Program lab2_1;

var a, t, p : real; i, n : integer;

begin

a:=1.6; t:=1; n:=round((2-1)/0.2)+1;

for i:=1 to n do

begin

p:=sin(a/t);

writeln(t:3:1,p:9:4);

t:=t+0.2

end

end.

4.9 Выполнить компиляцию программы, запустить программу на выполнение и просмотреть полученный результат.

Задание 1.Составить программу на языкеPascalдля решения задачи: подсчитать значения функции, где, переменнаяизменяется с шагом. Сохранить программу под именемlab2_2.pasи выполнить ее.

5. Решение второй задачи лабораторной работы.

Задача 2.Ввести числаy₁,y₂, …,y₆и значениеz = 2,34. Для каждогоy_iвычислить и вывести на экран значения. Найти сумму элементовy_iи минимальное среди значенийa_i.

5.1 Напечатаем программу решения задачи на языке Pascal:

Program lab2_3;

var z, sumy, mina : real;

i : byte;

y, a : array[1..6] of real;

begin

z:=2.34;

writeln('Введи y[i]=');

for i:=1 to 6 do readln(y[i]);

for i:=1 to 6 do

begin

a[i]:=sqrt(y[i]+z/(2+y[i]));

writeln(y[i]:3:1,a[i]:7:3)

end;

sumy:=0;

for i:=1 to 6 do sumy:=sumy+y[i];

mina:=a[1];

for i:=1 to 6 do

if a[i]<mina then mina:=a[i];

writeln('Сумма y[i]=',sumy:4:1,' mina=',mina:7:3);

end.

5.2 Сохраним программу в подкаталогеLAB2 каталогаZFMT11 под именемlab2_3.pas. Для этого выполним команды главного менюFile/Save as…, введем имя файла

ZFMT11\LAB2\lab2_3

и нажмем клавишу Enter.

5.3 Выполним компиляцию программы (F9).

5.4 Запустим программу на выполнение (Ctrl + F9).

5.5 Просмотрим полученный результат (Alt + F5).

Задание 2.Составить программу на языкеPascalдля решения задачи: Ввести числаx₁,x₂, …,x₆и значениеy = 3,45. Для каждогоx_iвычислить и вывести на экран значения. Найти произведение элементовz_iи максимальное среди значенийz_i.