CONTOH PROGRAM PASCAL REPEAT UNTIL
Program Deret;
Uses crt;
Var
InputData,Total,Ctr : Integer;
R : Char;
Begin
Repeat;
Clrscr;
GotoXY (20,7); Write ('Masukkan Nilai : ');
Readln (InputData);
Delay (100);
Total := 1;
Ctr := 0;
GotoXY (20,8); Write ('Output : ');
Delay (100);
While (Ctr < InputData) do
Begin
Ctr := Ctr+1;
Write (' ',Total);
Total := Total + Total;
End;
Writeln ();
GotoXY (20,10); Writeln ('Ingin Menghitung lagi (Yes / No)');
Delay (100);
Read (R);
Until (R='N') or (R='n');
Readln();
End.
SEMOGA BERMANFAAT
No comments:
Post a Comment