Sabtu, 27 November 2010

Program Pascal 1


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

bookmark

Share |

Entry Popular