Contoh Program Looping Menggunakan For to do

Contoh Program Looping Menggunakan For to do

program segitiga_angka;
Uses crt;
const
akhir = 5;

var
baris,kolom, k : integer;
m           : char;

begin
clrscr;
begin
repeat
writeln ('Segitiga Angka');
writeln ('~~~~~~~~~~~~~~');
write ('Masukan Angka : ');readln(kolom);
for baris := 1 to kolom do
begin
for k := 1 to baris do
write(baris, ' ');
writeln;
end;
write ('Mau Ulang Lagi (Y/N) : ');readln(m)
until upcase (m) <> 'Y';
end;
end.

OUTPUT

Download .PAS nya dibawah ini :
Tusfiles