История изменений
Исправление den73, (текущая версия) :
так в сях просто переобозначили: begin = {, end = }. Разумно, на мой взгляд поступили с точки зрения сокращения часто используемых слов. Кстати, вот идейка, сделать в современных средах разработки прослоечку, которая будет превращать begin/end в « и » на этапе отображения текста, а при сохранении - обратно. Ща опробую:
Program Stepen_chisla;
Var
Z, А : Real; M : integer;
Function Step (N: integer; X:real): real;
Var
I: integer; Y: Real;
Begin
I:=1; Y:=1;
While I<=N do
Begin
Y:=Y*X; I:=I+1;
End;
Step:=Y;
End; {Конец функции}
Begin
Write(‘Введи степень и возводимое число’); Readln(Z,M);
F:=Step(M,Z);
Writeln(Z, ‘ в степени’, M, ‘=’,F);
End.
.Program Stepen_chisla;
Var
Z, А : Real; M : integer;
Function Step (N: integer; X:real): real;
Var
I: integer; Y: Real;
«
I:=1; Y:=1;
While I<=N do «
Y:=Y*X; I:=I+1;
»;
Step:=Y;
»; {Конец функции}
«
Write(‘Введи степень и возводимое число’); Readln(Z,M);
F:=Step(M,Z);
Writeln(Z, ‘ в степени’, M, ‘=’,F);
».
Исходная версия den73, :
так в сях просто переобозначили: begin = {, end = }. Разумно, на мой взгляд поступили с точки зрения сокращения часто используемых слов. Кстати, вот идейка, сделать в современных средах разработки прослоечку, которая будет превращать begin/end в « и » на этапе отображения текста.