Примеры программ на Паскале.
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)-переменные целого и действительного типа
Var- раздел описание переменных,
I: integer; Y: Real;-переменные целого и действительного типа
Begin- раздел операторов
I:=1; Y:=1;-операторы присваивания
While I<=N do-Цикл с предусловием
Y:=Y*X; I:=I+1;-всё это операторы присваивания.
End;-конец функции
Begin- раздел операторов
Write-Вывод данных на экран:
Readln(Z,M);- оператор ввода данных.
F:=Step(M,Z);-операторы присваивания
Writeln(Z, ‘ в степени’, M, ‘=’,F);-Вывод данных на экран:
End;-конец
Недочеты:
ОтветитьУдалить1. "Function Step-функция в степени" - неправильно
2. "I:=1; Y:=1;-операторы присваивания" нужно раписать, что чему присваивается.
3. "While I<=N do-Цикл с предусловием" - пояснить, как работает цикл.
Задание зачтено с замечаниями.