Помогите разобраться

[puporev]

Ты как-то раздели вычисления и ввод в таблицу, а то ты вводишь строку, потом read(n); После считывания n ппрограмма переводит автоматическо курсор на новую строку. Т.е. нужно:
Read(N);//кстати лучше readln(n);
Ploshad(xe,xp1,yp1,xp,xo,yo,N,Smr,S mt,Sms);
Write('| ');
Write(n:8);
Write(' | ');
Write(Smr:8:4); и так далее

[rainbow]

puporev, так не пойдет, надо чтобы таблица выглядела следующим образом:

---------------------------------------------------------------
| Число разбиений    |                        Результат                  |
|                            |----------------------------------------|
|           n                |         A     |         B        |        C        |
|-------------------------------------------------------------|
|           20               | 1489.8402|   1531.9325  |  1401.7447   |
|           40               | 1449.8110|   1481.9889  |  1429.1024   |
|

И при том значения n=20 и n=40 вводились вручную с клавиатуры, сразу в таблицу.
Потому что этих значений n может быть бесконечно много, а таблица должна заполняться сразу.

[puporev]

Напиши так. Если где-то позиция не совпадет чуть, подгонишь.

begin
ClrScr;
Writeln('Результат вычислений сводится в таблицу');
Writeln('В таблице:');
Writeln('колонка A-результат вычисления по методу прямоугольников');
Writeln('колонка B-результат вычисления по методу трапеций');
Writeln('колонка С-результат вычисления по методу Симпсона');
Writeln('вычисления площадей производятся в сумме областей A и B');
Writeln('Введите n и нажмите любую клавишу или ESC для выхода');
Writeln;
Writeln('------------------------------------------------------------');
Writeln('| Число разбиений |              Результат                 |');
Writeln('|                 |----------------------------------------|');
Writeln('|       n         |      A     |      B      |     C       |');
Writeln('|----------------------------------------------------------|');
Perem(xe,xo,yo,xp,yp,xp1,yp1); 
i:=0;
repeat
Write('|       ');
Read(N);
Ploshad(xe,xp1,yp1,xp,xo,yo,N,Smr,Smt,Sms); 
gotoXY(19,14+i);
Write('|');
Write(Smr:8:4);
gotoXY(32,14+i);
Write('|');
Write(Smt:8:4);
gotoXY(44,14+i);
Write('  |  ');
Write(Sms:8:4);
gotoXY(58,14+i);
Writeln('  |');
inc(i);
c:=Readkey;
until c=#27;
Writeln('------------------------------------------------------------');
readkey
end.

[rainbow]

Так нормально, но почему то значение Smr вообще никуда не записывается, ни в таблицу, ни на экране его нету.

[puporev]

Ну значит чего-то напартачил. Раньше-то у тебя выводило, да и у меня выводило, правда я твои формулы не знаю, поэтому применял свои, но как у тебя. Если совсем не пойдет, выкладывай прект, посмотрю.

[rainbow]

Сейчас выложу, правда очень длинный он у меня получился:
QQQ.ZIP

[puporev]

Вообще программа не работает ошибка 207. Вроде и рекурсии нет, а переполнение стека. У тебя нормально работает именно этот архив?

[rainbow]

Нормально, у меня правда Turbo Pascal 7.1 стоит.

[puporev]

Дак у меня и в консоли Делфи вылетает, значит дело не в памяти. Не могу проверить.

[rainbow]

А у меня и под версией 7.0 нормально робит, я из под Dos box под Vista x64 запускаю.