Contoh Program Pascal Perulangan While Do

. Published on 6:37 PM. 0

CONTOH PERULANGANG WHILE DO

Program Deret;

Uses crt;

Var

masukkandata,hasil,counter : Integer;

O : Char;

Begin

Repeat;

Clrscr;

Write ('masukkan : ');

Readln (masukkandata);

hasil := 1;

counter := 0;

Write ('keluaran : ');

While (counter < masukkandata) do

Begin

counter := counter+1;

Write (' ',hasil);

hasil := hasil+ hasil;

End;

writeln();

readln(O);

until(O='N') or (O='n');

readln;

End.

SEMOGA BERMANFAAT

TERIMAH KASIH TELAH MENGUNJUNGI APOTIK-ILMU

Learning