Pascal: przeróbka programu, na instrukcje for

[extreme_program 0]

Witam

Potrzebuje przerobić program poniżej na taki z instrukcją iteracyjną for.

Oblicz wartość 2 do potęgi n, gdzie n jest elementem wejścia.

program Untitled;
var
n, i, p: integer;
begin
readln(n);
if n = 0 then write(2 do, 0, '=', i);
else
begin
i:= 0;
p:= 1;
repeat
p:= p * 2;
i:= 1 + 1
until
i = n;
writeln('2 do', n, '=', p)
end
end.

 

Jeśli ktoś z Was wie jak to zrobić, to proszę aby napisał, dopiero zaczynam z pascalem i nie jestem jeszcze w temacie...

[Dżi-Aj-Dżo 11]

jak zaczynasz to zacznij, nie widze zebys zaczynal

[extreme_program 0]

jak zaczynasz to zacznij, nie widze zebys zaczynal

zacząłem tylko nie działa, dlatego pytam jak to napisać..

Edytowane 21 Września 2013 przez extreme_program

[Mistic92 68]

Po co chcesz go przerabiać, napisz od zera bo ten nijak ma się do tego co chcesz zrobić. 

[szatkus 282]

Po co chcesz go przerabiać, napisz od zera bo ten nijak ma się do tego co chcesz zrobić. 

 

Spójrz jeszcze raz. Jak dla mnie to można bez problemu przerobić na pętle for:

repeat
  p := p * 2;
  i := 1 + 1 // to chyba literówka
until
  i = n;

@@extreme_program, jak następnym razem będziesz prosił o pomoc to rób wcięcia i wrzuć to do znacznika code, bo tego się czytać nie da.