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

[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;
Const
R=2.9; {soprotivlenie}
I=4.3; {sila toka}
U=220; {napryazhenie}
w=157; {chastota}
J=0.04; {moment inercii}
Var
t,K,Md,Mc,n:real;
Function D(K:real):real; {moment dvizheniya}
Begin
K:=(U-I*R)/w;
Md:=K*U/R-K*w/R;
End;
Function S(w:real):real; {moment staticheskij}
Begin
Mc:=w*J;
End;
begin
t:=J*W/(D(K)-S(w));
writeln (t:6:4, '|', W:8:1, '|', D(K):8:4, '|', S(w):8:4;);
End;
End.

Теперь при компиляции курсор останавливается на 3-й снизу строке и выходит следующее сообщение: error: 89 ")" expected. В чем ошибки?