Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
45
Добавлен:
10.02.2014
Размер:
412 б
Скачать
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.

Соседние файлы в папке лаб 3