Pemrograman Pascal Nested For, For To Do, For Downto
Latihan 1
• Buatlah sebuah program yang menampilkan tampilan seperti dibawah ini:
*
* *
* * *
* * * *
* * * * *
Contoh Program
Program Nested_For_1;
uses crt;
var
baris: integer;
kolom: integer;
begin
clrscr;
writeln('Nama : Farhan Misbaul Hayat');
writeln('Npm : 202143502440');
writeln('============================');
writeln('>>> Program Nested For <<<');
for baris:= 1 to 5 do
begin
for kolom := 1 to baris do
begin
write('* ');
end;
writeln();
end;
readln;
end.
Hasil
Latihan 2 • Buatlah sebuah program yang menampilkan tampilan seperti dibawah ini:
5
5 4
5 4 3
5 4 3 2
5 4 3 2 1
Contoh Program:
Program Nested_For_2;
uses crt;
var
baris: integer;
kolom: integer;
batas: integer;
begin
clrscr;
writeln('Nama : Farhan Misbahul Hayat');
writeln('Npm : 202143502440');
writeln('============================');
writeln('>>> Program Nested For <<<');
for baris:= 5 downto 1 do
begin
for kolom :=5 downto baris do
begin
write(kolom,' ');
end;
writeln();
end;
readln;
end.
Hasil
Latihan 3
• Buatlah sebuah program yang menampilkan tampilan seperti dibawah ini:
5 4 3 2 1
4 3 2 1
3 2 1
2 1
1
Contoh Program:
Program Nested_For_3;
uses crt;
var
baris: integer;
kolom: integer;
batas: integer;
begin
clrscr;
writeln('Nama : Farhan Misbahul Hayat');
writeln('Npm : 202143502440');
writeln('============================');
writeln('>>> Program Nested For <<<');
for baris:= 5 downto 1 do
begin
for kolom :=baris downto 1 do
begin
write(kolom,' ');
end;
writeln();
end;
readln;
end.
Komentar
Posting Komentar