История изменений

Исправление monk, 05.02.21 11:48 (текущая версия) :

А потому что это показывает, что ЯП к «знать язык врага» не относится.

Так те дети не только while читали не «уайл», а «в-хиле» и т.д. Они и программы писали в виде

program SummaMasiva;
type masiv=array[1..30,1..30] of real;
var
A,B:masiv;
S1,S2:real;
n,m:integer;

procedure Vvod(imj:char; var mas:masiv);
var
i,j:integer;
begin
writeln('Vvedite kol-vo chisel massiva ',imj);
read(n);
writeln('Vvedite massiv ',imj);
for i:=1 to n do begin
for j:=1 to n do read(mas[i,j]);
end;
end;

function Summa(var mas:masiv):real;
var
i:integer;
S:real;
begin
S:=0;
for i:=1 to high(mas)+1 do S:=S+mas[i,i];
summa:=S;
end;
BEGIN
Vvod('A',A);
S1:=summa(a);
writeln('Summa massiva A = ',S1:5:3);
Vvod('B',B);
S2:=summa(b);
writeln('Summa massiva B = ',S2:5:3);
END.

А потом, если они хотели продолжать программировать, им запрещали писать транслитом, а начинали требовать писать на английском. И приходилось «знать язык врага» или покидать профессию. В последние годы появилось прибежище в виде 1С.

Исходная версия monk, 05.02.21 11:47:

А потому что это показывает, что ЯП к «знать язык врага» не относится.

Так те дети не только while читали не «уайл», а «в-хиле» и т.д. Они и программы писали в виде

program SummaMasiva;

type masiv=array[1..30,1..30] of real;

var

A,B:masiv;

S1,S2:real;

n,m:integer;

procedure Vvod(imj:char; var mas:masiv);

var

i,j:integer;

begin

writeln('Vvedite kol-vo chisel massiva ',imj);

read(n);

writeln('Vvedite massiv ',imj);

for i:=1 to n do begin

for j:=1 to n do read(mas[i,j]);

end;

end;

function Summa(var mas:masiv):real;

var

i:integer;

S:real;

begin

S:=0;

for i:=1 to high(mas)+1 do S:=S+mas[i,i];

summa:=S;

end;

BEGIN

Vvod('A',A);

S1:=summa(a);

writeln('Summa massiva A = ',S1:5:3);

Vvod('B',B);

S2:=summa(b);

writeln('Summa massiva B = ',S2:5:3);

END.