Pascal !!!

Terima kasih telah melihat blog saya, kali ini saya akan membagikan info tentang PASCAL...sekedar perkenalan saja, aya akan memberitahukan cara tentang MENGHITUNG LUAS SEGITIGA DENGAN PASCAL dan MENENTUKAN GENAP-GANJIL...untuk mempersingkat waktu ini lah scriptny....(Ingat y Bray jangan lupa ini menggunakan Program TPW=Turbo Pascal for Window)..

1. MENGHITUNG LUAS SEGITIGA

Script :

Uses winCRT;
Var
      Alas,Panjang:Integer;
      Luas:Real;
      SL:Char;
BEGIN
     ClrScr;
     WriteLn('Mencari Panjang Segitiga');
WriteLn;
Write('Masukkan Alas =  ');ReadLn(Alas);
Write('Masukkan Panjang =  ');ReadLn(Panjang);

Luas:=(Alas*panjang)/2;

WriteLn;

WriteLn('Luasnya Adalah ',Luas:4:2);

SL:=ReadKey;
END.

Pic : 

http://zfhaikhacker.blogspot.com

2. PROGRAM Genap - Ganjil


SCRIPT :

program genap_ganjil;

uses

winCrt;

var

a : integer;

begin

write('masukan nilai :');

readln(a);

if a mod 2=0 then writeln('bilangan genap')

else

if a mod 2=1 then writeln('bilangan ganjil')

else

end.

PIC:

Demikian Yang dapat saya sampaikan tentang pascal, terima kasih !!!
haha Met belajar !!