Помогите перевести прогу в фортран

  • Автор темы DrAkEcheb
  • Дата начала
D

DrAkEcheb

#1
Помогите перевести программку из Паскаля в Фортран... я уже совсем отчаялся(((

USES CRT;
const n=4;
var
mas: array[1..n,1..n] of string;
r,c:integer;
tip:string;

procedure chteniemas;
var
f: text;
i: integer;
str: string;

begin
assign(f,'input.txt');
reset(f);
r:=1; c:=1;
while not eof(f) do begin
readln(f,str);
for i:=1 to length(str) do
if str<>' ' then mas[r,c]:=mas[r,c]+str
else inc©;
inc®;
c:=1;
end;
close(f);
end;

procedure sum;
var
a,b,i,err,x,y:integer;
begin
write('vvedite stroki dlia slogenia cherez probel: '); readln(a,:rolleyes:;
writeln('rezultat:');
for i:=1 to n do begin
val(mas[a,i],x,err);
val(mas[b,i],y,err);
write(x+y,' ');
end;
writeln;
end;

procedure razn;
var
a,b,i,err,x,y:integer;
begin
write('vvedite stroki dlia raznosti cherez probel: '); readln(a,B);
writeln('rezultat:');
for i:=1 to n do begin
val(mas[a,i],x,err);
val(mas[b,i],y,err);
write(x-y,' ');
end;
writeln;
end;

procedure umn;
var
a,b,i,err,x:integer;
begin
write('vvedite stroku dlia umnogenia i chislo cherez probel: '); readln(a,B);
writeln('rezultat:');
for i:=1 to n do begin
val(mas[a,i],x,err);
write(x*b,' ');
end;
writeln;
end;


begin
CLRSCR;
chteniemas;
for r:=1 to n do begin
for c:=1 to n do
write(' ',mas[r,c]);
writeln;
end;
write('vvedite tip operatsii(sum,razn,umn): ');
readln(tip);
if tip = 'sum' then sum;
if tip = 'razn' then razn;
if tip = 'umn' then umn;


readln;
end.