Mau punya buku tamu seperti ini? Klik di sini (Info Blog)

[tutup]

program case1; uses wincrt; var nama, alamat:string; nrp:string[8]; keterangan:string[2]; grade, pilih: char; nilai, nilai2, nilai3:integer; nilaiak:real; begin writeln('1. masukkan data mahasiswa --ATAU-- 2. keluar'); write('pilihan anda: '); readln(pilih); case pilih of '1': begin write('masukkan nama anda: '); readln(nama); write('masukan NIM anda: '); readln(nrp); write('masukan alamat anda: '); readln(alamat); write('masukan nilai tugas: '); readln(nilai); write('masukan nilai UTS: '); readln(nilai2); write('masukan nilai UAS: '); readln(nilai3); if (nrp='11') then keterangan:= 'S1' else if (nrp='31') then keterangan:='D3'; if (nilai >= 80) then grade :='A' else if (nilai >= 70) then grade :='B' else if(nilai >= 60) then grade:='C' else grade:='D'; nilaiak:= (2*nilai2+nilai+nilai3)/4; writeln('data mahasiswa yang diinputkan'); writeln('nama: ', nama); writeln('NIM: ', nrp); writeln('program studi: ',keterangan); writeln('alamat: ',alamat); writeln('nilai akhir: ',nilaiak:0:0); writeln('grade: ',grade); if grade='A' then writeln('LULUS') else if grade='B' then writeln('LULUS') else if grade='C' then writeln('LULUS') else writeln('TIDAK LULUS'); end; '2': begin writeln('anda mengakhiri program!'); Exit; end; else begin writeln('pilihan anda salah!'); Exit; end; end; writeln('====== By Agustiawan ======='); end.

http://www.nusinau.com/category/computer/programming/pascal/

http://www.nusinau.com/perulangan-dalam-pascal/ http://turbopascal32.blogspot.com/ http://khazanna032.wordpress.com/2011/09/11/karakteristik-sistem/ http://khazanna032.wordpress.com/2011/09/23/program-perkalian-matrix-turbo-pascal/ http://turbopascal.blogspot.com/

Entahlah tui tiau ki

Program Kalkulator; uses wincrt; var pil:integer; a,b,c:real; ulang:char; {Tampilan Menu Utama} Procedure Menu; Begin gotoxy(30,5); writeln('----------------------------'); gotoxy(30,6); writeln(' MENU UTAMA '); gotoxy(30,7); writeln('----------------------------'); gotoxy(30,8); writeln('1. Penjumlahan '); gotoxy(30,9); writeln('2. Pengurangan '); gotoxy(30,10);writeln('3. Perkalian '); gotoxy(30,11);writeln('4. Pembagian '); gotoxy(30,12);writeln('5. Kuadrat Bilangan '); gotoxy(30,13);Writeln('6. Akar Bilangan '); gotoxy(30,14);writeln('7. Pembuat Program '); gotoxy(30,15);writeln('8. Keluar Program '); gotoxy(30,16);writeln('----------------------------'); gotoxy(30,17);writeln(' Pilih : '); gotoxy(30,18);writeln('----------------------------'); gotoxy(42,17);Readln(pil); End; {Program Penjumlahan} Procedure Penjumlahan; begin gotoxy(22,1);write('-==PROGRAM PENJUMLAHAN==-'); gotoxy(22,2);Write('Masukkan Nilai Pertama : '); Readln(a); gotoxy(22,3);write('Masukkan Nilai Kedua : '); Readln(b); c:=a+b; gotoxy(22,4);writeln('Hasil : ',c:2:2); End; {Program Pengurangan} Procedure Pengurangan; begin gotoxy(22,1);write('-==PROGRAM PENGURANGAN==-'); gotoxy(22,2);Write('Masukkan Nilai Pertama : '); Readln(a); gotoxy(22,3);write('Masukkan Nilai Kedua : '); Readln(b); c:=a-b; gotoxy(22,4);writeln('Hasil : ',c:2:2) End; {Program Perkalian} Procedure Perkalian; Begin gotoxy(22,1);write('--==PROGRAM PERKALIAN==--'); gotoxy(22,2);Write('Masukkan Nilai Pertama : '); Readln(a); gotoxy(22,3);write('Masukkan Nilai Kedua : '); Readln(b); c:=a*b; gotoxy(22,4);writeln('Hasil : ',c:2:2) End; {Program Pembagian} Procedure Pembagian; Begin gotoxy(22,1);write('--==PROGRAM PEMBAGIAN==--'); gotoxy(22,2);Write('Masukkan Nilai Pertama : '); Readln(a); gotoxy(22,3);write('Masukkan Nilai Kedua : '); Readln(b); if (b<>0) then begin c:=a/b; gotoxy(22,4);writeln('Hasil : ',c:2:2) ; end else begin gotoxy(22,4);Writeln('Tidak bisa dibagi Nol!') end; End; {Program Untuk menghitung kuadrat dari suatu bilangan} Procedure Kuadrat; Begin gotoxy(22,1);write('-=KUADRAT BILANGAN=-'); gotoxy(22,2);Write('Masukkan Bilangan : '); Readln(a); b:=sqr(a); gotoxy(22,3);writeln('Kuadrat dari ',a:2:2, ' adalah : ',b:2:2); End; {Program untuk Menghitung akar} Procedure Akar; Begin gotoxy(23,1);write('-==AKAR BILANGAN==-'); gotoxy(22,2);Write('Masukkan Bilangan : '); Readln(a); b:=sqrt(a); gotoxy(22,3);writeln('Akar dari ',a:2:2,' adalah ',b:2:2) End; {Narsis, Untuk Menampilkan yg nama pembuat program} Procedure Pembuat; begin gotoxy(18,1);write('------========================------'); gotoxy(18,2);write(' Program ini dibuat oleh : '); gotoxy(18,3);write('------========================------'); end; {PROGRAM UTAMA} Begin ulang :='Y'; while (ulang = 'Y') or (ulang = 'y') do begin clrscr; Menu; clrscr; case pil of 1 : Penjumlahan; 2 : Pengurangan; 3 : Perkalian; 4 : Pembagian; 5 : Kuadrat; 6 : Akar; 7 : Pembuat; 8 : donewincrt; end; {Jika terjadi kesalahan pemilihan} if (pil>8 ) or (pil<1) then begin gotoxy(27,3);writeln('Pilihan Anda Salah!'); end; gotoxy(15,5);writeln('=========================================='); gotoxy(15,6);writeln('Apakah Anda ingin mencoba lagi? (Y/T) : '); gotoxy(15,7);writeln('=========================================='); gotoxy(55,6);Readln(ulang); end; donewincrt; End.