Помогите отредактировать программу, 207 ошибка Опции

[Sane]

ясно, поймите меня правильно я 2 дня назад только начал изучать паскаль. И ваши советы приму во внимание. Спасибо за помощь.

[Sane]

Надо протабулировать функцию и аргументы но не при всех a она работает, если нет то выдаёт 207 ошибку. Что надо здесь добавить ? (исх. функция с аргументами в файле)

program tabulirovanie;

  uses crt;
  var y,a,b,x,t:real;
begin

begin
     writeln ('enter ishodniye danniye');
  write ('a=');readln (a);
    x:=1;
    repeat
       t:=2;
     repeat
      y:=sqrt((t+(1)*exp(-a*x*t))*cos(t-a));
      writeln ('x=',x:2:1,' t=',t:2:1,'   y=',y:4:5);
   t:=t+0.3;
    until (t>3);
    x:=x+0.2;
    until  (x>2.1)
    end;
    readln;
    clrscr;
end.

М

Тег Кода надо не только открывать, но и закрывать volvo

Сообщение отредактировано: volvo - 8.11.2006 17:09

[volvo]

Что надо здесь добавить ?

Функцию правильно записать:

y:=sqrt(t+1)*exp(-a*x*t)*cos(t-a);

Все нормально работает... Только лишний Begin .. End есть в программе...

[Sane]

попробуйте при а=5

[volvo]

Здесь по-твоему, удаленный отладчик? А сам ты попробовать не хотел бы?

[Sane]

Нет я просто непонимаю что мне надо сделать чтоб она не выдавала ошибку. При a=3 она работает а при a=5 нехочет. Почему так ? Просто если несложно объясните.

[volvo]

Просто если несложно объясните.

Сложно объяснить того, что НЕ происходит... У меня вот это:

enter ishodniye data:
a = 5
x=1.0 t=2.0  y=-0.00008
x=1.0 t=2.3  y=-0.00002
x=1.0 t=2.6  y=-0.00000
x=1.0 t=2.9  y=-0.00000
x=1.2 t=2.0  y=-0.00001
x=1.2 t=2.3  y=-0.00000
x=1.2 t=2.6  y=-0.00000
x=1.2 t=2.9  y=-0.00000
x=1.4 t=2.0  y=-0.00000
x=1.4 t=2.3  y=-0.00000
x=1.4 t=2.6  y=-0.00000
x=1.4 t=2.9  y=-0.00000
x=1.6 t=2.0  y=-0.00000
x=1.6 t=2.3  y=-0.00000
x=1.6 t=2.6  y=-0.00000
x=1.6 t=2.9  y=-0.00000
x=1.8 t=2.0  y=-0.00000
x=1.8 t=2.3  y=-0.00000
x=1.8 t=2.6  y=-0.00000
x=1.8 t=2.9  y=-0.00000
x=2.0 t=2.0  y=-0.00000
x=2.0 t=2.3  y=-0.00000
x=2.0 t=2.6  y=-0.00000
x=2.0 t=2.9  y=-0.00000

программа выдала при A=5... А какого ты от нее результата ждешь?

[Sane]

у меня вот так:

[volvo]

Sane, ну я же тебе сказал, что сделать в посте №23:

Функцию правильно записать:

Нет, ты опять по-своему все делаешь... Ну, как знаешь.

[Sane]

всё ок. Извени просто изменения не записал и закрыл паскаль и запустил потом. Спасибо за помощь.