If ...... then .... else

Perintah if then else adalah perintah untuk melakukan perbandingan.

Contoh:

Uses crt;

Var nama:string;

Begin

Clrscr;

Write(‘Ketik Nama anda: ‘);readln(nama);

If nama=’’ then (‘Masukan nama terlebih dahulu’);

End.

Contoh:

Uses crt;

Var umur:byte;

Begin

Clrscr;

Write(Ketik umur Anda: ‘);readln(umur);

Writeln(‘umur yang anda masukan: ‘,umur);

If umur in [0..16] then

Begin

Writeln(‘termasuk golongan remaja’);

End

Else

Begin

Writeln(‘termasuk golongan dewasa’);

End;

Readln;

End.

Kembali ke Contoh Program Turbo Pacal

GOTO

Perintah goto adalah perintah untuk membuat lompatan dalam program . tetapi pada awal program harus diberitahu nama-nama percabangan yang akan dibuat dengan perintah label.bisa dalam huruf atau angka.

Contoh:

Uses crt;

Var nama:array[1..100] of string;

No,i:byte;

Kar :char;

Label awal,10;

Begin

Awal:

Clrscr;

No:=1;

10:

Write(‘ketik nama ‘,no,’:’); readln(nama[no]);

Write(‘isi nama lagi(Y.T_?’);kar:=readkey;

Writeln;

If upcase(kar)=’Y’ then begin inc(no);goto 10; end;

Fir i:= 1 to no do

Begin

Writeln(‘Nama ‘,i,’: ‘,nama[i]);

End;

Write(‘Mau diulang(Y/T)?’);kar:=readkey;

If upcase(kar)=’Y’ then goto awal;

End.

Kembali ke Contoh Program Turbo Pacal 

FOR ..TO/DOWN..DO

For to/down do adalah perintah untuk membuat pengulangan sebanyak angka yang diberikan pada variable awal dan akhir. To digunakan untuk angka menaik sedangkan down digunakan untuk angka yang menurun.

Contoh:

Uses crt;

Var i:integer;

Begin

Clrscr;

For i:=1 to 3 do writeln(‘Kalimat dicetak sebanyak tiga kali’);

For  i:=1 to 10 do writeln(‘No: ‘,i);

For i:=500 to 600 do

Begin

Sound(i); delay(10); nosound;

End;

For i:=600 down 500 do

Begin

Sound(i); delay(10); nosound;

End;

Readln;

End.
Kembali ke Contoh Program Turbo Pacal 

CASE..OF..ELSE...END

Case of else adalah perintah untuk memilih kelompok data.

Contoh:

Uses crt;

Var kar:char;

Begin

Clrscr;

Write(‘Tekan sembarang tombol’);kar:=readkey;

Writeln;

Case kar of

‘A’..’Z’,’a’..’z’:write(‘Anda telah memasukan huruf’);

‘0’..’9’:writeln(‘Anda telah memasukan angka’);

‘+’,’-‘,’*’,’/’:writeln(‘Anda telah memasukan operator’);

Else

Writeln(‘Anda telah menekan karakter khusus’);

End;

Readln;

End.

Kembali ke Contoh Program Turbo Pacal 

With ...do

Perintah with ...do adalah perintah untuk memeasukkan sekelompok data kedalam sebuah variable. Pada umumnya perintah digunakan untuk memasukkan data data ke dalam sebuah file bertype

 Contoh

Uses crt;

Type

Saya =record

Nama :string[15];

Umur:byte;

Alamat:string[20];

End;

Var

Datasaya:saya;

Begin

Clrscr;

With datasaya do

Write(‘Ketikan Nama : ‘);readln(nama);

Write(‘Ketikan Umur: ‘);readln(umur);

Write(‘Ketikan Alamat: ‘);readln(alamat);

Clrscr;

Writeln (‘Selanjutnya data-data sudah dapat’);

Writeln(‘disimpan kedalam file’);

Writeln;

Writeln(‘Nama: ‘,nama);

Writeln(‘Umur: ‘,umur);

Writeln(‘Alamat: ‘,alamat);

Readln;

End;

End.

Kembali ke Contoh Program Turbo Pacal 

While...do

While...do adalah perintah untuk melakukan pengulangan tetapi dengan menggunakan persyaratan . selama tidak dipenuhi ......kerjakanlah ini ....

Contoh:

Uses crt;

Var sandi1,sandi2:string;

Begin

Clrscr;

Sandi1:=’aku’;

Writeln(‘Silahkan Masukan Password’);

While sandi 1<>sandi2 do readln(sandi2);

Writeln(‘Sandi yang anda masukan benar’);

Readln;

End.

Contoh:

Uses crt;

Begin

Clrscr;

Writeln(‘Tekan sembarang tombol untuk memulai’);

While not keypressed do

Begin

Sound(600);

Delay(30);

Nosound;

End;

End.

Kembali ke Contoh Program Turbo Pacal