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