Помогите пожалуйста написать программу на паскале с использованием var
Приложения:
zzz09062006:
y = a^n
А i? Просто здесь видно, будто i := i + 1
там умножение
Если i = i * 1, то цикл никогда не завершится...
Согласен с restless
а ой
сейчас все пересмотрю
а я посмортел там +
извиняюсь
Ответы на вопрос
Ответил restIess
1
В твоей схеме содержатся ошибки, но про это мы забудем -_-
Код:
var
n, i : integer;
a, y : real;
begin
readln(a, n);
y := 1;
for i := 1 to n do
begin
y := y * a;
end;
writeln(y:5:2);
end.
Вариант с while
var
n, i : integer;
a, y : real;
begin
readln(a, n);
y := 1;
i := 1;
while i <= n do
begin
y:= y * a;
i:= i + 1;
end;
writeln(y:5:2);
end.
и одна проблема программа не выводит у если i<= n
Так у тебя в блок-схеме проверки на это тоже нет)
там просто цикл становится бесконечным и ты не получаешь результат
там же вроде стрелка 'нет' если i<= n ???
Если бы это был цикл while, то оно бы сработало, но у тебя по каким-то неизвестным причинам нарисован именно блок для for'a, а с ним это так не работает
не мог бы ты написать с while ещё пожалуйста жппжпжжпжпж
добавил в ответ
ОООООООООООООООООООООООООООООООООООООООООООООООООООООООООООГГГГГГГГГГГГГГГГГГГГГГГГГГГГГГГГГГГГГГГГГГГГГГГГГРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРРОООООООООООООООООООООООООООООООООООООООООМММММММММММММММММММММНННННННННННННННННННННННННООООООООООООООООООООООООООООООЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕ СССССССССССССССССССССССССССССССССССССССССССПППППППППППППППППППППППППППППАААААААААААААААААААААААААААААААААААССССССССССССССССССССССИИИИИИИИИИИИИИИИИИИИИИИИИИИИИИББББББББББББББББББББББББББОООООООООООООООООООО
Но лучше уточни у учителя, мб он ошибся когда составлял блок-схему и нарисовал не тот блок
хорошо))))))))))))))))))))))))
Ответил DarkTatarin
0
program test;
uses Math;
var
n, i: Integer;
a, y: Real;
begin
ReadLn(a, n);
y := 1;
i := 1;
while (i <= n) do begin
y := power(a, n);
i += 1;
end;
WriteLn(y);
end.
Если в блоке цикла неправильно написал, то напиши. Просто здесь не видно. В общем, если цикл выполняется, то y := a^n (в комментариях ты написал a^n), i := i + 1
Если там реально y := y * a, то замени 11-ую строчку на эту
Цикл while не так на блок-схемах изображается, это for
Новые вопросы