Belajar untuk mencari kesalahan jauh lebih baik ketimbang mencoba belajar dengan kebohongan.
 |
| Tampilan Turbo Pascal |
Kebetulan dalam program yang akan kita bahas merupakan tugas rumah yang harus diselesaikan untuk melaksanakan proses berlangsungnya pendidikan. Seperti yang kita tahu bahasa pemrogramman pascal adalah termasuk bahasa tingkat tinggi. Makanya kita dengan mudah belajar untuk mendalami apa pascal itu sendiri. Dalam kasus yang kita bahas adalah bagaimana penggunaan FOR TO DO dalam perulangan (looping) yang hasilnya berikut :
 |
| Output Program |
|
Baiklah, Tulisan ini akan saya persembahkan untuk teman kuliah saya terutama Mas. Gopur. Tidak perlu banyak cingcong. Berikut script pemrogrammannya :
Uses crt;
var
a,b,c : integer;
begin
clrscr;
for a:= 1 to 3 do
begin
for b:= 3 downto i do
begin
write(' ');
end;
for c:= 1 to i+i-1 do
begin
write('*');
end;
writeln;
end;
for a:= 3 downto 1 do
begin
for b:= 3 downto i do
begin
write(' ');
end;
for c:= i+i-1 downto 1 do
begin
write('*');
end;
writeln;
end;
readln;
end.
Demikian yang hanya bisa share, semoga bermanfaat. Salam Pascal !
