Kali ini saya akan berbagi ilmu sedikit tentang pascal mohon maaf jika ada kekurangan..
langsung aja gan disini saya membantu agan semua tentang membuat program jam pasir dengan pascal biasanya anak Teknik Informatika udah gak asing lagi dengan Aplikasi ini..
Sebelumnya jika tidak punya aplikasinya bisa download Disini
Scriptn Membuat Jam Pasir di Pascal di bawah ini :
Program Jam Pasir;
uses wincrt;
var
N,i,j,k : integer;
begin
writeln;
write ('Masukkan Batas : ');readln(N);
writeln;
for i := (N-1) downto 1 do
begin
for k := (N-1) downto i do
begin
write (' ');
end; // For
for j := i downto 1 do
begin
write (j,' ');
end;// For
for j := 1 to (i-1) do
begin
write(j,' ');
end;
writeln(' ');
end;// For Awal 1
for i := 1 to N do
begin
for k := (N-1) downto i do
begin
write (' ');
end;//For
for j:= 1 to i do
begin
write(j,' ');
end;//For
for j:=(i-1) downto 1 do
begin
write(j,' ');
end;
writeln(' ');
end;// End For Awal 2
readln;
end.
uses wincrt;
var
N,i,j,k : integer;
begin
writeln;
write ('Masukkan Batas : ');readln(N);
writeln;
for i := (N-1) downto 1 do
begin
for k := (N-1) downto i do
begin
write (' ');
end; // For
for j := i downto 1 do
begin
write (j,' ');
end;// For
for j := 1 to (i-1) do
begin
write(j,' ');
end;
writeln(' ');
end;// For Awal 1
for i := 1 to N do
begin
for k := (N-1) downto i do
begin
write (' ');
end;//For
for j:= 1 to i do
begin
write(j,' ');
end;//For
for j:=(i-1) downto 1 do
begin
write(j,' ');
end;
writeln(' ');
end;// End For Awal 2
readln;
end.
Ini Hasilnya gan.. :
Silahkan dicoba gan..
Membuat Jam Pasir di Pascal mudah bukan hehe
Silahkan Jika Ada yang Ditanyakan ? EmoticonEmoticon