Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 107075
28.10.2007, 09:49
0.00 руб.
0 1 1
Компьютеры Программирование
Доброе утро!

Можно ли решить задачу: <i>
Дана функция x=a*sin(k*t+2)*cos(k*t). Составить алгоритм для расчета этой функции, если а изменяется от 5 до 7 с шагом 0.12, t изменяется от 4.2 до 6.2 с шагом 0.17 а k=1,2,3,...,12.
</i> тремя способами:
1. используя только цикл <b>while</b>;
2. используя только цикл <b>for</b>;
3. используя только цикл <b>repeat</b>.

Обсуждение

Неизвестный
28.10.2007, 10:12
общий
это ответ
Здравствуйте, Ezhik!
Цикл while
program wwhile;
var a,t,k,y:real;
begin
a:=5;
while a<7 do
begin
t:=4.2;
while t<6.2 do
begin
k:=1;
while k<=12 do
begin
y:=a*sin(k*t+2)*cos(k*t);
writeln(a:1:4,‘ ‘,t:1:4,‘ ‘,k:1:2,‘ ‘,y:4:8);
k:=k+1;
end;
t:=t+0.17;
end;
a:=a+0.12;
end;
readln;
end.

Цикл repeat
program Project2;
var a,t,k,y:real;
begin
a:=5;
repeat
t:=4.2;
repeat
k:=1;
repeat
y:=a*sin(k*t+2)*cos(k*t);
writeln(a:1:4,‘ ‘,t:1:4,‘ ‘,k:1:2,‘ ‘,y:4:8);
k:=k+1;
until k>12;
t:=t+0.17;
until t>6.2;
a:=a+0.12;
until a>7;
readln;
end.
Форма ответа