Составьте и запишите ДВЕ КОМПЬЮТЕРНЫХ программы на языке программирования
Паскаль для решения следующей задачи: возвести число Х в степень У.
Функцию POWER использовать нельзя!!!
НЕЛЬЗЯ использовать POWER(X,Y)!!!
Нужно составить ДВЕ программы для возведения заданного пользователем целого числа
в заданную пользователем целую степень (это задание 8 к пар. 39).
Каждая из ДВУХ программ должна иллюстрировать ЛЮБЫЕ ДВА из
ТРЁХ СУЩЕСТВУЮЩИХ ВИДОВ ЦИКЛОВ (с предусловием, с постусловием и с параметром).
То есть следует выбрать два из трёх видов циклов и в Паскале создать к ним две
программы.
Тип данных для вывода результата лучше использовать LONGINT (т.к. пределы вычислений будут в пределах от -2 147 483 648… до … 2 147 483 647). Прошу помогите срочно не понимаю тему (((
Паскаль для решения следующей задачи: возвести число Х в степень У.
Функцию POWER использовать нельзя!!!
НЕЛЬЗЯ использовать POWER(X,Y)!!!
Нужно составить ДВЕ программы для возведения заданного пользователем целого числа
в заданную пользователем целую степень (это задание 8 к пар. 39).
Каждая из ДВУХ программ должна иллюстрировать ЛЮБЫЕ ДВА из
ТРЁХ СУЩЕСТВУЮЩИХ ВИДОВ ЦИКЛОВ (с предусловием, с постусловием и с параметром).
То есть следует выбрать два из трёх видов циклов и в Паскале создать к ним две
программы.
Тип данных для вывода результата лучше использовать LONGINT (т.к. пределы вычислений будут в пределах от -2 147 483 648… до … 2 147 483 647). Прошу помогите срочно не понимаю тему (((
More Questions From This User See All
Answers & Comments
program prost;
uses crt;
var y, i: word;
x: LongInt;
begin
readln(x);
readln(y);
for i := 2 to y do
x:=x*x;
writeln(x);
end.
Цикл с постусловием:
program prost;
uses crt;
var x: LongInt;
y, i: word;
begin
i := 0;
readln(x);
readln(y);
repeat
x := x*x;
Inc(i)
until i <> y;
writeln(x);
end.