Учеба и наука

• Всего ответов: 1


Валентина
3-й в
411 отзыв
program pr;
var x,y:real;
a,b,h:real; 
begin
writeln('vvedite a,b,h');
readln(a,b,h);
x:=a;
writeln('---------------------------');
writeln('X':8,'Y':8);
writeln('---------------------------');  
while x<=b do
begin
y:=exp(x) — arctan(sqrt(1-sqr(x*х))/(x*х));
writeln(x:8:2,y:8:2);
x:=x+h; 
end;
readln
end. 
a=0.5
b=1.5
h=0.1
Буду благодарна, если отметите как лучший 
декабрь 10, 2012 г.
Ответ понравился автору
Лучший ответ по мнению автора

Похожие вопросы