Показать сообщение отдельно
  #4  
Старый 10.11.2010, 20:47
Moonlight Moonlight вне форума
Прохожий
 
Регистрация: 19.10.2010
Сообщения: 14
Репутация: 10
По умолчанию

нужно написать програму для обчисления!

Код:
я зделал прогу, но она на  h=0,6 выбивает ошибку!(((( в чём проблема?

uses
  SysUtils;
var x1,x2,h,x,y:real;
begin

write('Введите начало интервала x1=');
readln(x1);
write('Введите конец интервала x2=');
readln(x2);
write('Введите шаг табуляции  h=');
readln(h);
x:=x1;
while x<=x2 do
 begin
  y:= x*cos(x)/sin(x);
    writeln('x=',x:4:1,'  y=',y:6:2);
   end;
  x:=x+h;
 end;
readln
end.
Admin: Пользуемся тегами! + не забываем про вменяемые заголовки тем. При рецедиве - бан!
Ответить с цитированием