Помогите вывести результаты программы в виде таблицы Опции

[Smartic]

Нужно было составить программу для расчета статического и динамического моментов электродвигателя. У меня вот что получилось:

Program ControlWork2;
Uses crt;
Const
R=2,9; {soprotivlenie}
I=4,3; {sila toka}
U=220; {napryazhenie} 
w=157; {chastota}
J=0,04; {moment inercii}
name='C:\workdir\out.txt';
Var
t,K,Md,Mc:real;
fout:text;
Function Md:real; {moment dvizheniya}
Begin
K:=(U-I*R)/w;
Md:=K*U/R-K*w/R;
End;
Function Mc:real; {moment staticheskij}
Write('Vvedite vremya t:');
Readln(t);
Mc:=J-w/t+Md;
End;
End.

А мне еще надо вывести Md,Mc,w,t в виде таблицы, а также записать файл исходных данных. Как это сделать? Подскажите, пожалуйста. Заранее огромное спасибо!

М

Тегами для подсветки синтаксиса пользоваться не забывай...

Сообщение отредактировано: volvo - 18.05.2009 8:37

[Smartic]

А почему при компиляции этой программы

Код

Program ControlWork2;
Uses crt;
var
T,K,Md,Mc,n:real;
R,I,U,W,J : real;

Procedure readfile(var R,I,U,W,J :real;var fin : text);
begin
   read(fin,R); {soprotivlenie}
   read(fin,I); {sila toka}
   read(fin,U); {napryazhenie}
   read(fin,w); {chastota}
   read(fin,J); {moment inercii}
   readln(fin);
end;

Function MomentDv(U,I,R:real):real; {moment dvizheniya}
Begin
K:=(U-I*R)/w;
MomentDv:=K*U/R-K*w/R;
End;

Function MomentStat(W,J:real):real; {moment staticheskij}
Begin
MomentStat:=W*J;
End;

Procedure Create(var fin,fout:text);
begin
  while not eof(fin) do begin
    readfile(R,I,U,W,J,fin);
    Md:=MomentDv(U,I,R);
    Mc:=MomentStat(W,J);
    T:=J*W/(Md-Mc);
    writeln (fout,T:6:4, '|', W:8, '|', Md:8:4, '|', Mc:8:4);
    writeln (T:6:4, '|', W:8, '|', Md:8:4, '|', Mc:8:4);
  end;
{Основная прога}
begin
assign(fin,'C:\Tpascal\test.txt');{входной файл}
assign(fout,'C:\Tpascal\test1.txt');{выходной файл}
reset(fin);
rewrite(fout);
Create(fin,fout);
close(fin);
close(fout);
end.

курсор останавливается на последнем "end" и выходит ошибка 85 "Ожидается ;" ?