Senin, 17 November 2008

Kumpulan Rumus Pascal

Tingkat 1 _________________________________



If (Syarat) Then

(yang dilakukan saat syarat terpenuhi);



Keterangan :

Pernyataan Logika yang jika syaratnya terpenuhi, akan dikerjakan satu perintah. Jika syarat tidak terpenuhi, tidak dikerjakan sesuatu.


Contoh :




If A:=10 Then

WriteLn('Selamat. Anda benar.');





Tingkat 2 _________________________________



If (Syarat) Then

(yang dilakukan saat syarat terpenuhi)

Else

(yang dilakukan saat syarat tidak terpenuhi);




Keterangan :

Pernyataan Logika yang jika syaratnya terpenuhi, akan dikerjakan satu perintah. Jika syarat tidak terpenuhi, akan dikerjakan satu perintah lainnya.


Contoh :



If A:=10 Then

WriteLn('Selamat. Anda benar.')

Else

WriteLn('Anda belum beruntung.');





Tingkat 3 _________________________________



If (Syarat) Then

Begin

(yang dilakukan saat syarat terpenuhi);

(...);

End

Else

(yang dilakukan saat syarat tidak terpenuhi);




Keterangan :

Pernyataan Logika yang jika syaratnya terpenuhi, akan dikerjakan beberapa perintah. Jika syarat tidak terpenuhi, akan dikerjakan satu perintah lainnya.


Contoh :






If B<>0 Then

Begin

H:=A/B;


WriteLn;

WriteLn('Harga H = ',H:13:2);

End

Else

WriteLn('Harga H Imajiner.');





Tingkat 4 _________________________________



If (Syarat) Then

Begin


(yang dilakukan saat syarat terpenuhi);

(...);

End

Else

Begin

(yang dilakukan saat syarat tidak terpenuhi);

(...);

End;



Keterangan :


Pernyataan Logika yang jika syaratnya terpenuhi, akan dikerjakan beberapa perintah. Jika syarat tidak terpenuhi, akan dikerjakan beberapa perintah lainnya.


Contoh :






If B<>0 Then

Begin

H:=A/B;

WriteLn;


WriteLn('Harga H = ',H:13:2);

End

Else

Begin

WriteLn;

WriteLn('Harga H Imajiner.');

WriteLn('Harga B tidak boleh NOL.');

WriteLn('Silahkan coba lagi.');

End;






Tingkat 5.A _________________________________



If (Syarat1) Or (Syarat2) Then

Begin

(yang dilakukan saat salah satu syarat terpenuhi);

(...);

End


Else

Begin

(yang dilakukan saat kedua syarat tidak terpenuhi);

(...);

End;



Keterangan :

Pernyataan Logika yang jika salah satu syaratnya terpenuhi, akan dikerjakan beberapa perintah. Jika kedua syarat tidak terpenuhi, akan dikerjakan beberapa perintah lainnya.



Contoh :






If (B<0) c="0)">

Begin

WriteLn;

WriteLn('Harga H Imajiner.');

WriteLn('Harga B tidak boleh kurang dari NOL dan.');


WriteLn('Harga C tidak boleh NOL.');

End

Else

Begin

H:=SQRT(B)/C;

WriteLn;

WriteLn('Harga H = ',H:13:2);

End;




Tingkat 5.B _________________________________



If (Syarat1) And (Syarat2) Then

Begin

(yang dilakukan saat Kedua syarat terpenuhi);

(...);

End

Else


Begin

(yang dilakukan saat salah satu / kedua syarat tidak terpenuhi);

(...);

End;



Keterangan :

Pernyataan Logika yang jika kedua syaratnya terpenuhi, akan dikerjakan beberapa perintah. Jika salah satu syarat tidak terpenuhi, akan dikerjakan beberapa perintah lainnya.


Contoh :







If (B>=0) And (C<>0) Then

Begin

H:=SQRT(B)/C;

WriteLn;

WriteLn('Harga H = ',H:13:2);

End

Else


Begin

WriteLn;

WriteLn('Harga H Imajiner.');

WriteLn('Harga B tidak boleh kurang dari NOL dan.');

WriteLn('Harga C tidak boleh NOL.');

End;




Tingkat 5.C* _________________________________



Rumus Umum, sama seperti Tingkat 5.A




Keterangan :

Pernyataan Logika yang memadukan model-model di atas. Hasil yang diperoleh dari pernyataan seperti ini akan menampilkan hasil yang lebih akurat dan efisien.


Contoh :






If (B<0) c="0)">

Begin

WriteLn;


If B<0>

WriteLn('Harga B tidak boleh kurang dari NOL.');

If C=0 Then

WriteLn('Harga C tidak boleh NOL.');

WriteLn('Harga H Imajiner.');

End

Else

Begin


H:=SQRT(B)/C;

WriteLn;

WriteLn('Harga H = ',H:13:2);

End;




Tingkat 5.D* _________________________________



Rumus Umum, sama seperti Tingkat 5.B



Keterangan :

Pernyataan Logika yang memadukan model-model di atas. Hasil yang diperoleh dari pernyataan seperti ini akan menampilkan hasil yang lebih akurat dan efisien.



Contoh :






If (B>=0) And (C<>0) Then

Begin

H:=SQRT(B)/C;

WriteLn;

WriteLn('Harga H = ',H:13:2);


End

Else

Begin

WriteLn;

If B<0>

WriteLn('Harga B tidak boleh kurang dari NOL.');

If C=0 Then

WriteLn('Harga C tidak boleh NOL.');


WriteLn('Harga H Imajiner.');

End;



tebakan :
uses crt;
var
x,tebakan,jumlah : integer;
lagi : char;
begin
randomize;
lagi:='Y';
while(lagi='Y') or (lagi='y') do
begin
clrscr;
writeln('Komputer akan mengeluarkan 1 angka random');
writeln('yang nilainya antara 0 - 1000');
writeln('anda menebak berapa angka random tersebut !');
writeln('silahkan menebak....Very Happy');
writeln;

x:= random(1001);

jumlah:=0;
tebakan:=-1;
while (tebakan <> x) do

begin

tebakan:=0;
gotoXY(1,15);
writeln('tebakan anda?');readln(tebakan);
gotoXY(1,15);DelLine;

if tebakan <>
begin
gotoXY(1,12); write(tebakan:4,'======> salah,kurang besar!!');
end;


if tebakan > x then
begin
gotoXY(1,12);write(tebakan:4,'======> salah,kurang kecil!!');
end;


jumlah:=jumlah+1;

end;

GotoXY(1,12);
write(tebakan:4,'======> benar, ',jumlah,'kali anda menebak !!');
GotoXY(1,22);
write('Menebak yang lain lagi (Y/T)?');
readln(lagi);
end;
end.