Langkah-langkah Program Pascal.
uses crt;
var f,g,h:integer;
begin
clrscr;
writeln (‘ini adalah Program Pascal’);
writeln;
write (‘masukan angka yang anda inginkan :’);
readln (f);
for g:=1 to f do
begin
for h:=1 to 2 do
begin
write (g:2,h:4);
writeln;
writeln;
end;
end;
readln;
end.
o Maka tampilannya seperti ini:
o Kemudian tekan tombol secara bersamaan Ctrl+F9 untuk menjalankan program Pascal, maka tampilan Outputnya seperti ini:
Langkah-langkah Program Pascal.
Uses crt;
Var o,p,q,r,s,t,u:integer;
begin
clrscr;
write (‘masukan nilai yang anda inginkan : ‘);
readln (r);
writeln;
for p:= 1 to r do
begin
for s:=1 to p do
begin
write (s:2);
end;
writeln;
end;
for q := r – 1 downto 1 do
begin
for u := 1 to q do
begin
write (u:2);
end;
writeln;
end;
readln;
end.
o Maka tampilannya seperti ini:
o Kemudian tekan tombol secara bersamaan Ctrl+F9 untuk menjalankan program Pascal, maka tampilan Outputnya seperti ini:
Tidak ada komentar:
Posting Komentar