строго по алгоритму (скриншот блок-схемы) написать программу с разными циклами

@xeaton · Регистрация: 09.06.2012

Виталий, еще раз повторяю. ВСЕ ВАРИАНТЫ программы должны ПОЛНОСТЬЮ соответствовать алгоритму. Посмотрите, какие переменные в алгоритме? Какие в программе? Какое условие у вас написано в алгоритме? Какое в решении ? Что за условия-условия-условия в решениях задачи? Никаких условий (кроме одного, которое отвечает за цикл) в алгоритме нет – значит их не должно быть в программе. Еще раз повторяю ВСЕ ВАРИАНТЫ решения задачи вы должны писать СТРОГО ПО АЛГОРИТМУ – открываете алгоритм и, смотря на него, пишете программу, ничего не выдумывая, не добавляя, не исправляя. Это же проще,чем то, что вы наваяли. Исправляйте. После - запускайте и проверяйте, что все варианты дают один и тот же результат.

Вот что сказал мне препод в последний раз
Народ выручайте

скриншот блок-схемы, по нему нужно сделать 3 задачки с разными циклами while do, repeat until, for
моя задача звучит так: Дано действительное число a, натуральное число n, вычислить a^n

Вот как сделал одногруппник свое задание (2 программы из них не правильные, не знаю какие именно) но думаю суть понятна, моя программа не должна сильно отличаться от его, эти программы он писал по своей блок схеме с другим условием задания
через while-do
Programm z;

Pascal

uses crt;
var n,a,i:integer;
s,t:real;
begin
writeln ('введите n,a');
readln (n,a);
s:=0
i:=0
t:=1/так и не разобрал что там написано
while i>n do
begin
s:=s+t;
t:=t*t;
i:=i+1;
end;
writeln (s);
readln;
end.

через repeat

Pascal

Programm z;
uses crt;
var n,a,i:integer;
s,t:real;
begin
clrscr;
writeln ('введите n,a');
readln (n,a);
s:=0
i:=0
t:=1/так и не разобрал что там написано
repeat
s:=s+t;
t:=t*t;
i:=i+1;
until i>n;
writeln (s);
readln;
end.

через for

Pascal

Programm z;
uses crt;
var n,a,i:integer;
s,t:real;
begin
writeln ('введите n,a');
readln (n,a);
s:=0
i:=0
t:=1/так и не разобрал что там написано
For i to N do
begin
s:=s+t;
t:=t*t;
end;
writeln (s);
readln;
end.

@xeaton · 10.01.2013, 23:44 **[ТС]**

друзья хелп

Добавлено через 2 часа 25 минут
народ у меня получилось сделать с while do циклом вроде паскаль все правильно считает)

Pascal

var
a,n: integer;
b: real;
i: byte;
begin
write('Введите число: ');
readln(a);
write('Введите степень: ');
readln(n);
b:=1; 
i:=1;
while i<= n do
begin
b:=b*a;
i:=i+1
end;
writeln (b);
end.

Добавлено через 8 минут
с циклом for вроде считает правильно но коряво написано, помогите исправить

Pascal

readln(a);
write('Введите степень: ');
readln(n);
b:=1; 
i:=1;
for i:=1 to n do
begin
b:=b*a;
end;
write;
end.

@Alles · 11.01.2013, 00:27

С for все нормально, только в 11й строке вывод дописать:

код

Pascal

var
   a,n,b,i: integer;
begin
readln(a);
write('Ââåäèòå ñòåïåíü: ');
readln(n);
b:=1;
i:=1;
for i:=1 to n do
begin
b:=b*a;
end;
write(b);
end.

Добавлено через 11 минут
Вот repeat..until:

Код

Pascal

var
   a,n,b,i: integer;
begin
readln(a);
write('Ââåäèòå ñòåïåíü: ');
readln(n);
b:=1;
i:=1;
repeat
b:=b*a;
i:=i+1;
until i>n;
write(b);
end.

@xeaton · 11.01.2013, 15:35 **[ТС]**

Сообщение от Alles

С for все нормально, только в 11й строке вывод дописать:

код

Pascal

var
   a,n,b,i: integer;
begin
readln(a);
write('Ââåäèòå ñòåïåíü: ');
readln(n);
b:=1;
i:=1;
for i:=1 to n do
begin
b:=b*a;
end;
write(b);
end.

Добавлено через 11 минут
Вот repeat..until:

Код

Pascal

var
   a,n,b,i: integer;
begin
readln(a);
write('Ââåäèòå ñòåïåíü: ');
readln(n);
b:=1;
i:=1;
repeat
b:=b*a;
i:=i+1;
until i>n;
write(b);
end.

Огромнейшее спасибо

Опции темы