Из Паскаля в МатКАД

[Glum]

Помогите перегнать программу из Паскаля в МатКАД

Program Zav;
const
 R= 1.35;
 m= 101  ;
 ra= 13    ;
 F= 2.2    ;
 k= 0.63    ;
 pi= 3.14;
var
 t,n: array [1..11] of real;
 w: real;
 i,v: integer;

Procedure max_t_n;
var
    max, max1: real;
begin
max:=t[1];max1:=n[1];
for i:=2 to 11 do begin
 if t[i]>max then max:=t[i];
 if n[i]>max1 then max1:=n[i];
end;
writeln(' t[',i,']= ',max:3:2,'     ','n[',i,']= ',max1:3:2);
end;

begin
writeln(' v:');
for i:=1 to 11 do begin    end;
   for v:=50 to 60 do begin
    w:=v/R;
       t[i]:=(w*sqr(R)*M)/(K*F*ra);
       n[i]:=(sqr(w)*sqr(R)*M)/( 4*pi*k*F*ra);
       writeln('t= ',t[i]:3:2,' ','n=',n[i]:3:2);    end;
writeln(' t,n: ');
max_t_n;
end.

[Npwas]

Если не ошибаюсь, то вообщето МатКад уже программа, для рассчета ф-ций и т.д. И ты просишь чего-то странного, а точнее не логичного. Просто возьми и скачай MathCAD и посчитй в нем нужные тебе ф-ции!!!

[Glum]

Сообщение от Npwas

Если не ошибаюсь, то вообщето МатКад уже программа, для рассчета ф-ций и т.д.!

Вообще-то ты ошибаешься, в Маткаде есть возможность программирования (view - toolbars - programming), операторы почти как у паскале, но намного удобней.

И ты просишь чего-то странного, а точнее не логичного

Не вижу ничего странного. В универе задали задачу которую нужно разработать в двух средах - а точнее в паскале и маткаде.

[Npwas]

Итерестно!!! Буду знать, просто с данными вещами не сталкивался!!!