Добавил:
student_tipo
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:лабораторная работа / лаб 3 / LAB_33
.PAS program lab_31;
const c=0.5;n=10;h=1;
var z,i,i0,ik:real;
begin
writeln('‚‚Ґ¤ЁвҐ t0,tk');
readln(i0,ik);
writeln('’ Ў«Ёж дгЄжЁЁ z(i)');
writeln(' i z(i)');
i:=i0;
while i<=ik do
begin
if cos((sqr(i)+1)/n)<0 then z:=sin((sqr(i)+1)/n)
else z:=c*cos((sqr(i)+1)/n);
writeln(i:6:3,' ',z:6:3);
i:=i+h;
end;
end.
const c=0.5;n=10;h=1;
var z,i,i0,ik:real;
begin
writeln('‚‚Ґ¤ЁвҐ t0,tk');
readln(i0,ik);
writeln('’ Ў«Ёж дгЄжЁЁ z(i)');
writeln(' i z(i)');
i:=i0;
while i<=ik do
begin
if cos((sqr(i)+1)/n)<0 then z:=sin((sqr(i)+1)/n)
else z:=c*cos((sqr(i)+1)/n);
writeln(i:6:3,' ',z:6:3);
i:=i+h;
end;
end.