Question

Помогите срочно Пожалуйста .Написать программу, используя ТРИ ВИДА ЦИКЛОВ (цикл с параметром, цикл с предусловием и цикл с постусловием) ИСХОДНАЯ ФОРМУЛА : Z=tg (t-cost) Значение аргумента : t=14; 15; 16; 17; 18; 19 Заранее спасибо

Answer 1

Program tg;
var z:real;
t:integer;
begin
t:=14;
for t:=14 to 19 do
begin
z:=sin(t-cos(t))/cos(t-cos(t));
writeln('z=', z);
end;
end.

Program tg;
var z:real;
t:integer;
begin
t:=14;
while t<=19 do
begin
z:=sin(t-cos(t))/cos(t-cos(t));
writeln('z=', z);
t:=t+1;
end;
end.

Program tg;
var z:real;
t:integer;
begin
t:=19;
repeat
z:=sin(t-cos(t))/cos(t-cos(t));
writeln('z=', z);
t:=t-1;
until t=13;
end.