Задания для практического занятия:
1. Создать новый файл: File / New (Файл / Создать). Сохранить его в личной папке на диске z:\ под именем ФИО23.pas. Периодически сохранять файл в процессе работы (клавиша F2).
2. Набрать в окне ФИО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.
3. Произвести компиляцию программы (клавиша F9). При наличии ошибок исправить их. Запустить программу на выполнение (Ctrl + F9) и просмотреть результаты (Alt + F5).
4. Создать новый файл: File / New (Файл / Создать). Сохранить его в личной папке на диске z:\ под именем ФИО24.pas. Периодически сохранять файл в процессе работы (клавиша F2).
5. Набрать в файле ФИО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.
6. Произвести компиляцию программы (клавиша F9). При наличии ошибок исправить их. Запустить программу на выполнение (Ctrl + F9) и просмотреть результаты (Alt + F5).
7. Создать новый файл: File / New (Файл / Создать). Сохранить его в личной папке на диске z:\ под именем ФИО25.pas. Периодически сохранять файл в процессе работы (клавиша F2).
8.Набрать в файле ФИО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.
9. Произвести компиляцию программы (клавиша F9). При наличии ошибок исправить их. Запустить программу на выполнение (Ctrl + F9) и просмотреть результаты (Alt + F5).