Contoh Program Pascal

Input nama:

uses crt;

begin

clrscr;

writeln(‘nama = mario’);

writeln(‘npm = 32108390’);

write(‘kelas = 1 db 15’);

readln;

end.

Output :

Nama = mario

Npm = 32108390

Kelas = 1 db 15

Program berjalan

Uses crt;

Var a:string;

I:integer;

Begin

Clrscr;

Write(‘masukan nama anda : ‘);

Readln(a);

Clrscr;

For i:=1 to 100 do

Begin

Clrscr;

Write(‘harap tunggu’);

Write(i,’%’);

Delay(100);

End;

For i:=1 to 24 do

Begin

Clrscr;

Gotoxy(1,i);

Textcolor(i);

Writeln(a);

Delay(300);

End;

For i:=1 to 74 do

Begin

Clrscr;

Gotoxy(i,24);

Textcolor(i);

Writeln(a);

Delay(300);

End;

For i:=24 downto 1 do

Begin

Clrscr;

Gotoxy(74,i);

Textcolor(i);

Writeln(a);

Delay(300);

End;

For i:=74 downto 1 do

Begin

Clrscr;

Gotoxy(i,1);

Textcolor(i);

Writeln(a);

Delay(300);

End;

Readln;

End.

Output

Masukan nama anda : (misal mario)

Maka output akan muncul nama aibie dan berjalan dari kiri atas kepaling bawah, lalu akan bergeser kekanan, lalu keatas, lalu kekiri atau tempat awal lagi

Segitiga cermin

Uses crt;

Var x,y,k,L,nilai:integer;

Begin

Clrscr;

Write(‘masukan jumlah deret : ‘);

Readln(nilai);

For x:=1 to nilai do

Begin

For y:=1 to x do

Begin

Write(‘ ‘,y);

End;

Writeln;

End;

For k:=nilai downto 1 do

Begin

For L:=1 to k do

Begin

Write(‘ ‘,L);

End;

Writeln;

End;

Readln;

End.

Output

Masukan jumlah deret : (misal 5)

Maka output:

1

12

123

1234

12345

12345

1234

123

12

1