Добавил:
student_tipo
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:лабораторная работа / лаб 3 / LAB_31
.PAS program lab_31;
const c=0.5;n=10;h=1;
var z,i,i0,ik,d:real;
k,j:byte;
begin
writeln('‚‚Ґ¤ЁвҐ t0,tk');
readln(i0,ik);
writeln('’ Ў«Ёж дгЄжЁЁ z(i)');
writeln(' i z(i)');
d:=(ik-i0)/h;
i:=i0;
k:=trunc(d)+1;
for j:=1 to k 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,d:real;
k,j:byte;
begin
writeln('‚‚Ґ¤ЁвҐ t0,tk');
readln(i0,ik);
writeln('’ Ў«Ёж дгЄжЁЁ z(i)');
writeln(' i z(i)');
d:=(ik-i0)/h;
i:=i0;
k:=trunc(d)+1;
for j:=1 to k 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.