Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Практическая работа №7.
Тема: Операторы языка.
Наименование: Составление программ усложненной циклической структуры.
Цель работы: Закрепить практические навыки работы с системой Turbo Pascal, научиться правильно использовать различные операторы циклов; научиться составлять программы решения задач с использованием циклических структур.
Задания.
1. Программа расчета функции y=A*sin(x)-cos(x)/A; при изменении аргумента “х” в диапазоне от 0 до Pi с шагом Pi/100 и при изменении параметра “A” в диапазоне от 1 до 3 с шагом 0,5.
Таблица идентификаторов
|
Переменная |
Описание |
Тип данных |
|
y |
результат |
вещественный |
|
x |
аргумент |
вещественный |
|
a |
параметр |
вещественный |
|
i |
счетчик |
целочисленный |
|
j |
счетчик |
целочисленный |
Program tabl;
Var
y,x,a,dx: real;
i,j: integer;
Begin
Writeln(‘Расчет по формуле: y=A*sin(x)-cos(x)/A;’);
Writeln(‘----------------------------------------‘);
Writeln(‘|X| A=1.0|A=1.5|A=2.0|A=2.5|A=3.0|’);
Writeln(‘----------------------------------------‘);
dx:=pi/100;
for i:=0 to 100 do
begin {внешний цикл изменения аргумента “X”}
x:=dx*i;
Write(x:8:4);
For j:=1 to 5 do
Begin {вложенный цикл изменения параметра “A”}
A:=0.5*(j+1);
y:=A*sin(x)-cos(x)/A; Write(y:8:4)
end;
Writeln;{перевод курсора на новую строчку}
Readln {задержка прокрутки экрана до нажатия Enter}
End;
Readln;
End.
|
x |
A=1.0 |
A=1.5 |
A=2.0 |
A=2.5 |
A=3.0 |
y |
|
0 |
0 |
-1 |
-0.6 |
-0.5 |
-0.4 |
-0.3 |
|
1 |
0.31 |
-0.64 |
-0.17 |
0.14 |
0.39 |
0.61 |
|
2 |
0.62 |
-0.22 |
0.34 |
0.77 |
1.14 |
1.49 |
|
3 |
0.94 |
0.22 |
0.82 |
1.32 |
1.78 |
2.23 |
|
4 |
1.2566 |
0.64 |
1.22 |
1.74 |
2.25 |
2.75 |
|
5 |
1.57 |
1.0 |
1.5 |
2.0 |
2.5 |
3.0 |
|
… |
… |
… |
… |
… |
… |
… |
|
31.41 |
-1.0 |
-0.66 |
-0.5 |
-0.4 |
-0.33 |
2. Таблица идентификаторов
|
Переменная |
Описание |
Тип данных |
|
s |
переменная |
строковый |
|
par |
переменная |
строковый |
|
i |
счетчик |
целочисленный |
program parol;
var s,par:string; i:integer;
begin
For i:= 1 to 3 do
Begin
par:='parol';
Write('введите пароль:'); Readln (S);
If S = par Then Break
Else If i<>3 Then Continue;
Writeln('доступ к программе ЗАПРЕЩЕН’);
Writeln('нажмите Enter');
Readln;
Halt
End;
end.
3. Программа, которая выводит цифры от 9 до 0.
Таблица идентификаторов
|
Переменная |
Описание |
Тип данных |
|
x |
счетчик |
целочисленный |
var x:integer;
begin
writeln('---');
for x:=9 down to 0 do
begin
writeln(x);
end;
readln;
end.
Контрольные вопросы.
1. как программируются циклические алгоритмы с заранее неизвестным числом повторений цикла?
С помощью операторов цикла с условием while и repeat
2. напишите оператор цикла, который не выполняется ни разу.
for i:=1 to 0 do
write(i);
3. напишите оператор цикла, который выполняется неограниченное число раз.
while i>0 do
write(i);
|
|
ОПР.230105.01379.07.12 |
Лист 4 |
||||
|
Изм |
Лист |
№ докум. |
Подп. |
Дата |
нет
да
Вывод х
Х=9
Конец
I=i-1
Х=0
Ввод х
Начало
да
нет
I:=i+1
да
нет
Ввод par
нет
нет
да
I=0
Par= parol
да
I<3
конец
Ввод pi
Вывод у
y:=A*sin(x)-cos(x)/A
A:=0.5*(j+1)
j:=j+1
j≤5
I:=i+1
Вывод х
x:=dx*i
j=1
dx:=pi/100
i≤100
Начало
конец
запрещен
i=0
Начало