Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Образовательный студенческий форум _ Информатика / Программирование _ Pascal, проверьте 2 программы

Автор: Петр777 27.2.2012, 8:06

program N1;
function arccos(x:real):real;
begin
if x=0 then arccos:=pi/2
else arccos:=Arctan(Sqrt(1-sqr(x))/x);
end;

var x,y:real; i:real;
Begin
x:=0;
while x<= 1 do
begin
y:=arccos(x)-Sqrt(1-0.3*x*x*x);
writeln('x=',x:0:1,' y=',y:6:2);
x:=x+0.1;
end;
readln;
end.




uses crt;
var x,e,t,s,si:real;
i:integer;
begin
clrscr;
e:=0.0001;
repeat
write('0.1<=x<=1 x=');
readln(x);
until (x>=0.1)and(x<=1);
s:=0;
si:=1;
t:=1;
i:=0;
while abs(s-si)>e do
begin
i:=i+1;
s:=si;
t:=-t*x*x/(2*i*(2*i-1));
si:=si+t;
end;
writeln('s=',s:0:4);
write('cosx=',cos(x):0:4);
readln
end.




в первой проге зацикливается, над вывести нормально)

а во второй, хочу чтоб Ctll+F9 нажал и все данные значения подсчитал

Подскажите пожалуйста)


Эскизы прикрепленных изображений
Прикрепленное изображение Прикрепленное изображение

Автор: Julia 2.3.2012, 0:54

Больше похоже, что во вторая зацикливается. Условие цикла исправьте.

Русская версия Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)