skip to main
|
skip to sidebar
<p>&amp;amp;amp;amp;amp;lt;script language=JavaScript src="http://ads.admaxasia.com/servlet/ajrotator/373729/0/vj?z=admaxasia2&amp;amp;amp;amp;amp;amp;dim=280658&amp;amp;amp;amp;amp;amp;abr=$scriptiniframe"&amp;amp;amp;amp;amp;gt;&amp;amp;amp;amp;amp;lt;/script&amp;amp;amp;amp;amp;gt;&amp;amp;amp;amp;amp;lt;noscript&amp;amp;amp;amp;amp;gt;&amp;amp;amp;amp;amp;lt;a href="http://ads.admaxasia.com/servlet/ajrotator/373729/0/cc?z=admaxasia2"&amp;amp;amp;amp;amp;gt;&amp;amp;amp;amp;amp;lt;img src="http://ads.admaxasia.com/servlet/ajrotator/373729/0/vc?z=admaxasia2&amp;amp;amp;amp;amp;amp;dim=280658&amp;amp;amp;amp;amp;amp;abr=$imginiframe" width="1000" height="60" border="0"&amp;amp;amp;amp;amp;gt;&amp;amp;amp;amp;amp;lt;/a&amp;amp;amp;amp;amp;gt;&amp;amp;amp;amp;amp;lt;/noscript&amp;amp;amp;amp;amp;gt;</p>
"GUDANG
ILMU"
"Rio Rizky"
HOME
Blog Catalog
Feed Burner
Exchange Link
Comment Box
Ayo Daftar
Kamis, 05 November 2009
Program Cek kelulusan dalam bahasa Pascal
Senin, 27 April 2009
Program Cek kelulusan dalam bahasa Pascal
program cek_kelulusan_siswa;
uses crt;
var
nama : string[25];
kelas : string[5];
no_absen : string[3];
n_tugas : byte;
n_u_hari : byte;
n_u_umum : byte;
rerata : real;
lulus : boolean;
predikat : string[20];
begin
clrscr;
writeln('====================================================');
writeln('| Program Mengecek Kelulusan Siswa |');
writeln('====================================================');
writeln;
writeln('Input Data Siswa');
writeln('----------------');
write('Nama : '); readln(nama);
write('Kelas : '); readln(kelas);
write('No Absen : '); readln(no_absen);
write('Nilai Tugas : '); readln(n_tugas);
write('Nilai Ulangan Harian : '); readln(n_u_hari);
write('Nilai Ulangan Umum : '); readln(n_u_umum);
rerata:=(n_tugas + 2 * n_u_hari + 3 * n_u_umum)/6;
if rerata >=70 then lulus:=true
else lulus:= false;
clrscr;
writeln('====================================================');
writeln('| Program Mengecek Kelulusan Siswa |');
writeln('====================================================');
writeln;
writeln(' Siswa dengan');
writeln('----------------');
writeln('Nama : ',nama);
writeln('Kelas : ',kelas);
writeln('No Absen : ',no_absen);
writeln('Nilai Tugas : ',n_tugas);
writeln('Nilai Ulangan Harian : ',n_u_hari);
writeln('Nilai Ulangan Umum : ',n_u_umum);
writeln('Rata - rata : ',rerata:0:2);
if lulus then
begin
if rerata < 80 then predikat:='memuaskan' else if rerata <90 then predikat:='sangat memuaskan' else predikat:='dengan pujian'; writeln('Dinyatakan Lulus dengan ',predikat); end else writeln('Dinyatakan Tidak Lulus'); readln; end.
Label: Contoh coding program dalam turbo pascal
0 komentar:
:))
:)]
;))
;;)
:D
;)
:p
:((
:)
:(
:X
=((
:-o
:-/
:-*
:|
8-}
~x(
:-t
b-(
:-L
x(
=))
Posting Komentar
Posting Lebih Baru
Posting Lama
Beranda
Langganan:
Posting Komentar (Atom)
so cool
Purworejo, jawa tengah, Indonesia
Lihat profil lengkapku
"Blink
182"
Do'a
"Do'a merupakan upaya seorang hamba kepada Tuhannya (Allah SWT) dalam mengeluhkan atau mengadukan permasalahan hidup yang di hadapi, memohn terkabulnya suatu harapan, serta meminta perlindungan dari segala macam marabahaya.
Arsip Blog
▼
2009
(45)
►
Desember
(1)
►
Des 01
(1)
▼
November
(21)
▼
Nov 05
(2)
Program Cek kelulusan dalam bahasa Pascal
Mengenal Turbo Pascal—Awan Sundiawan 1 1. Mengena...
►
Nov 04
(4)
►
Nov 03
(12)
►
Nov 02
(2)
►
Nov 01
(1)
►
Oktober
(23)
►
Okt 31
(5)
►
Okt 30
(12)
►
Okt 29
(6)
Daftar Blog Saya
Pingin Belajar
Harga HP Oppo U3 Maret 2015
aku..kau..kami..mereka
MY engagement day....
ABi 's hOmE..
Chelsea Bongkar Celengan, Carletto Telanjang
hidup bahagia
Daftar tim peserta Piala Dunia 2010
blink 182
'Berpesan-pesan'
"Jalin silaturahim panjangkan umur, murah rezeki"
* Love Eve's Cakes *
Rio Rizky's Comment Activity
detikInet
berlangganan
Postingan
Atom
Postingan
Komentar
Atom
Komentar
Sobat
Facebook Badge
Rio Rizky
Create your badge
0 komentar: