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

1. Создать с помощью TotalCommanderна на дискеh:\(z:\zf\zfилиz:\) папку (клавишаF7клавиатуры) для сохранения там файлов программ (латинскими буквами, не более 8 символов, без пробелов и точек!).

2. Загрузить FreeилиTurboPascal. Для этого выполнитьStart / All Programs / Free (Turbo) Pascal(Пуск/Все программы/Free [Turbo] Pascal) или щелкнуть дважды по соответствующему ярлыку на рабочем столе.

3. Создать новый файл: File / New(Файл/Создать). Он получает имяnoname01.pas, отображаемое в верхней части окна документа.

4. Сохранить в личной папке на диске h:\ (z:\zf\zf илиz:\) новый файл с именемФИО21.pas, лучше использовать латинские буквы. Для этогоFile / Save as…(Файл/Сохранить как…), в строкеNameввести имя диска, вложенные каталоги, имя файла, например,h:\Ivanov\isp21.pasили

и нажать Ok. Периодически сохранять файл в процессе работы (клавишаF2).

5. Набрать текст линейной программы, вычисляющей расстояние между двумя точками (x₁; y₁) и (x₂; y₂) по формуле.

Program prim_1; {имя программы}

var x1, x2, y1, y2, d: real; {описание переменных

вещественного типа}

begin {начало раздела операторов}

write('Введите координаты первой точки x1 и y1');

readln(x1, y1); {ввод значений переменных x1, y1 через

клавишу Enter}

write('Введите координаты второй точки x2 и y2');

readln(x2, y2); {ввод значений переменных x2, y2 через

клавишу Enter}

d:=sqrt(sqr(x1-x2)+sqr(y1-y2)); {расчет расстояния}

writeln('расстояние между двумя точками равно',d:5:2);

{вывод значения расстояния}

end.

6. Произвести компиляцию программы (клавиша F9). Исправить ошибки.

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

8. Посмотреть результаты (Alt + F5)

9. Выполнить задание 2.1.

Задание 2.1.Составить линейную программу, реализующую решение задачи (таблица 2.7). Сохранить файл в своей папке под именемtask21.pas. Откомпилировать программу. При наличии ошибок исправить их, запустить программу на выполнение и просмотреть результаты. Текст программы скопировать вMSWordи распечатать или записать в отчет выполнения работы.

Таблица 2.7 − Варианты задания 2.1

Вариант	Задача
1	Определить координаты середины отрезка AB по формулам ,, где координаты точекA(x1; y1), B(x2; y2) вводятся с клавиатуры
2	Рассчитать площадь треугольника по формуле Герона , где длины трех сторонa, b, c вводятся с клавиатуры, а p − полупериметр
3	Рассчитать площадь треугольника по сторонеa и проведенной к ней высоте ha, значения которых вводятся с клавиатуры
4	Найти биссектрису , проведенную к сторонеа треугольника, по трем сторонам a, b, c, длины которых вводятся с клавиатуры, и полупериметру p
5	Найти биссектрису , проведенную к сторонеb треугольника, по трем сторонам a, b, c, длины которых вводятся с клавиатуры, и полупериметру p
6	Найти биссектрису , проведенную к сторонеc треугольника, по трем сторонам a, b, c, длины которых вводятся с клавиатуры, и полупериметру p
7	Найти радиус описанной около треугольника окружности, где длины сторонa, b и c вводятся с клавиатуры, а площадь S вычисляется по формуле Герона (см. вариант 2)
8	Найти радиус окружности, вписанной в треугольник со сторонамиa, b, c, длины которых вводятся с клавиатуры, площадь S вычисляется по формуле Герона (см. вариант 2), а p − полупериметр

Окончание таблицы 2.7

Вариант	Задача
9	Найти высоту , опущенную на сторонуa треугольника со сторонами a, b, c, длины которых вводятся с клавиатуры, а площадь S вычисляется по формуле Герона (см. вариант 2)
10	Найти высоту , опущенную на сторонуb треугольника со сторонами a, b, c, длины которых вводятся с клавиатуры, а площадь S вычисляется по формуле Герона (см. вариант 2)
11	Найти высоту , опущенную на сторонуc треугольника со сторонами a, b, c, длины которых вводятся с клавиатуры, площадь S вычисляется по формуле Герона (см. вариант 2)
12	Вычислить площадь равнобокой трапеции с основаниямиa и b, длины которых вводятся с клавиатуры, острым углом и высотой

10. Создать новый файл: File / New(Файл/Создать). Сохранить его в личной папке на дискеh:\(z:\zf\zfилиz:\) под именемФИО22.pas. Периодически сохранять файл в процессе работы (клавишаF2).

11. Набрать текст программы, позволяющей вычислить значение функции в зависимости от условия.

Program prim_2; {имя программы}

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

x : real; {описание переменной-аргумента}

f : real; {описание вычисляемой переменной, т. е. функции)}

begin {раздел операторов}

write(Введи значение x); {вывод вспомогательной фразы}

readln(x); {ввод значения переменной x}

if (x>=-1) and (x<=3) {условие}

then f:=sqr(x)*x-sin(x) {если условие истинно}

else {если условие ложно}

if cos(x)>0 {расчет кубического корня из косинуса x}

then f:=exp(1/3*ln(cos(x))

else if cos(x)<0

then f:=-exp(1/3*ln(abs(cos(x)))

else f:=0;

writeln(x=,x:3:2,  f=,f:4:3) {вывод результатов}

end.

12. Произвести компиляцию программы (клавиша F9). При наличии ошибок исправить их. Запустить программу на выполнение (Ctrl + F9) и просмотреть результаты (Alt + F5).

13. Выполнить задание 2.2.

Задание 2.2.Составить программу, вычисляющую значение функции в зависимости от значения вводимой с клавиатуры переменной (таблица 2.8). Откомпилировать программу. При наличии ошибок исправить их, запустить программу на выполнение и просмотреть результаты. Текст программы скопировать вMSWordи распечатать или записать в отчет о выполнении лабораторной работы.

Таблица 2.8 − Варианты задания 2.2

Вариант	Функция	Вариант	Функция
1		7
2		8
3		9
4		10
5		11
6		12

14. Создать новый файл: File / New(Файл/Создать). Сохранить его в личной папке на дискеh:\(z:\zf\zfилиz:\) под именемФИО23.pas. Периодически сохранять файл в процессе работы (клавишаF2).

15. Набрать в окне ФИО23.pasтекст программы табулирования функции, т. е. вычисления значения функциипри изменении аргументаvrна диапазоне от -1 до 4, т. е., с шагом 0,4, гдес = 12. Использовать циклwhile…doс предусловием.

Program prim_3;

var a, b, c : integer; {описание целых переменных}

vr, hvr, fn1, fn: real; {описание вещественных переменных}

begin

a:=-1; b:=4; {границы диапазона изменения переменной}

hvr:=0.4; {шаг изменения переменной vr}

c:=12; {значение константы c}

vr:=a; {переменной vr присваивается начальное значение}

while vr<=b do {условием выхода из цикла указывается

достижение переменной vr правой границы диапазона}

begin {составной оператор}

fn1:=sin(vr)/cos(vr); {расчет тангенса vr}

fn:=(sqr(fn1)*fn1+c)/sqrt(sqr(vr)+sqr(c)); {расчет

значения функции fn}

writeln('vr=',x:4:2,' fn=',y:7:3); {вывод

текущего значения переменной vr и функции fn}

vr:=vr+hvr {увеличение значения переменной vr

на величину шага}

end

end.

16. Произвести компиляцию программы (клавиша F9). При наличии ошибок исправить их. Запустить программу на выполнение (Ctrl + F9) и просмотреть результаты (Alt + F5).

17. Создать новый файл: File / New(Файл/Создать). Сохранить его в личной папке на дискеh:\(z:\zf\zfилиz:\) под именемФИО24.pas. Периодически сохранять файл в процессе работы (клавишаF2).

18. Набрать в файле ФИО24.pasтекст программы табулирования функции, т. е. вычисления значения функциипри изменении аргументаvrна диапазоне от -1 до 4 с шагом 0,4, гдес = 12. Использовать циклrepeat…untilс постусловием.

Program prim_4;

var a, b, c : integer; {описание целых переменных}

vr, hvr, fn1, fn: real; {описание вещественных переменных}

begin

a:=-1; b:=4; {границы диапазона изменения переменной}

hvr:=0.4; {шаг изменения переменной vr}

c:=12; {значение переменной c}

vr:=a; {переменной vr присваивается начальное значение}

repeat {начало цикла с постусловием}

fn1:=sin(vr)/cos(vr); {расчет тангенса vr}

fn:=(sqr(fn1)*fn1+c)/sqrt(sqr(vr)+sqr(c)); {расчет

значения функции fn}

writeln('vr=',x:4:2,' fn=',y:7:3); {вывод

текущего значения переменной vr и функции fn}

vr:=vr+hvr {увеличение значения переменной vr

на величину шага}

until vr>b {условием выхода из цикла является превышение

переменной vr значения правой границы диапазона}

end.

19. Произвести компиляцию программы (клавиша F9). При наличии ошибок исправить их. Запустить программу на выполнение (Ctrl + F9) и просмотреть результаты (Alt + F5).

20. Создать новый файл: File / New(Файл/Создать). Сохранить его в личной папке на дискеh:\(z:\zf\zfилиz:\) под именемФИО25.pas. Периодически сохранять файл в процессе работы (клавишаF2).

21. Набрать в файле ФИО25.pasтекст программы табулирования функции, т. е. вычисления значения функциипри изменении аргументаvrна диапазоне от -1 до 4 с шагом 0,4, гдес = 12. Использовать циклfor…to…doс известным числом повторений.

Program prim_5;

var a, b, c : integer; {описание целых переменных}

vr, hvr, fn1, fn: real; {описание вещественных переменных}

begin

a:=-1; b:=4; {границы диапазона изменения переменной}

hvr:=0.4; {шаг изменения переменной vr}

c:=12; {значение переменной c}

vr:=a; {переменной vr присваивается начальное значение}

n:=round((b-a))/hvr)+1; {количество повторений цикла}

for i:=1 to n do

begin

fn1:=sin(vr)/cos(vr); {расчет тангенса vr}

fn:=(sqr(fn1)*fn1+c)/sqrt(sqr(vr)+sqr(c)); {расчет

значения функции fn}

writeln('vr=',x:4:2,' fn=',y:7:3); {вывод

текущего значения переменной vr и функции fn}

vr:=vr+hvr {увеличение значения переменной vr

на величину шага}

end

end.

22. Произвести компиляцию программы (клавиша F9). При наличии ошибок исправить их. Запустить программу на выполнение (Ctrl + F9) и просмотреть результаты (Alt + F5).

23. Выполнить задание 2.3.

Задание 2.3.Составить три варианта программы табулирования функции − вычисления значений функции при изменении аргумента на некотором диапазоне с постоянным шагом (таблица 2.9) − с использованием каждого из трех операторов цикла. Произвести компиляцию, получить и просмотреть результаты. Текст каждой из программ скопировать вMSWordи распечатать или записать в отчет о выполнении работы.

Таблица 2.9 − Варианты задания 2.3

Вариант	Диапазон, шаг	Значение параметра	Функция
1
2
3
4
5
6
7
8

Окончание таблицы 2.9

Вариант	Диапазон, шаг	Значение параметра	Функция
9
10
11
12