Labels

B.Indonesia (4) b.inggris (3) b.sunda (1) biografi (2) Biologi (7) cerita pengalaman (18) cerpen (2) Cheat Point Blank (20) Cheats (18) cracking (3) ekonomi (2) Fisika (13) games (3) Geografi (5) hari raya (1) HPO (1) informasi (11) jualan (3) kimia (20) koleksi (3) matematika (8) musik (1) ngakak (16) ninja saga (9) Pelajaran (127) Pengetahuan (52) perenungan (27) PKN (29) PLH (6) rajutan (1) rempah (1) Request (7) sejarah (8) Seni Budaya (7) Seram (2) sinopsis film (2) software (10) sosiologi (2) story telling (1) TIK (13) tugas (121) Tutorial (38)

Friday, October 19, 2012

download turbo pascal program pascal if then else , while do , case of , repeat until

bagi yang ingin mendownload turbo pascal bisa disini , ini adalah contoh program yang bisa dijadikan di tubo pascal semoga bisa membantu , turbo pascal disini bisa di download di bawah semoga bermanfaat , kalau ada pertanyaan silahkan berkomentar terima kasih ^^

Program if_then:
Uses Crt;
Var
Nilai : Real;
Begin
Write ('Jumlah Nilai :');
Readln (nilai); { Pemasukan data }
If nilai > 60 Then {seleksi kondisi variabel nilai}
Writeln('Lulus') { Dilaksanakan jika nilai lebih besar dari 60 }
Else
Writeln('Tidak lulus'); { Dilaksanakan jika variabel nilai lebih kecil dari 60 }
End.



Program case_of;
Var
x: Char ;
Begin
Write ('Nilai Numerik yang didapat :');
Readln (x);
Case x Of
'A': Writeln ('Sangat Baik’);
'B': Writeln('Baik’);
'C': Writeln('Cukup');
'D': Writeln('Kurang');
'E': Writeln('Sangat Kurang');
End;
End.



program while_do;
Uses Crt;
Var
a, b : Integer;
Begin
ClrScr;
a:=1;
b:=1;
While a < 4 Do{ loop selama a masih lebih kecil dari 4 }
Begin
a := a+1;
While b < 3 Do{ loop selama b masih lebih kecil dari 3 }
Begin
Write (a:3,b:2);
b:=b+1;
End;
End;
Readln;
End.



program repeat_until;
Var
a,b,c : Real;
Begin
Writeln('========================================');
Writeln(' sisi A sisi B Sisi C ');
Writeln (' =======================================');
a:= 1;
Repeat { perulangan luar }
b := 0;
Repeat{ perulangan dalam }
c:=Sqrt (a*a+b*b);
Writeln (a:6:2, b:9:2, c:9:2);
b:=b+5;
Until b>25; { berhenti jika b lebih besar dari 5 untuk perulangan dalam }
a:=a+1;
Until a>3; { berhenti jika a lebih besar dari 3 untuk perulangan luar }
Writeln(' =======================================');
End.

Program turbo pascal bisa di download disini : download
Reactions:

0 comments:

Post a Comment

 
Design by Free WordPress Themes | Bloggerized by Lasantha - Premium Blogger Themes | Hot Sonakshi Sinha, Car Price in India