Tekhnik Informatika Management Algoritma turbo pascal

Kamis, 06 Oktober 2011

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/

Senin, 03 Oktober 2011

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.

calculate.. bukan yang aku mau

uses wincrt; var a,c,d : integer; operator, z:char; begin repeat clrscr; Writeln('PETUNJUK:'); Writeln('1. Masukkan angka pertama'); Writeln('2. Masukkan operator (+, -, /, *)'); Writeln('3. Masukkan Angka kedua'); Writeln('PERHITUNGAN: '); Write('Masukkan angka: '); readln(a); write('Operator: '); readln(Operator); write('Angka ke dua: '); readln(c); case operator of '+': d:=a + c; '-': d:=a - c; '/': d:=a div c; '*': d:=a * c; end; writeln('Hasil: ',d); writeln; Write('Hitung lagi? (y/n) '); readln(z); until Upcase(z) <> 'Y'; end.

Ini masih salah,,, Jika ada yang bisa harap di komen yah,,, Pleess

uses wincrt; var pil:char; angka1,angka2,hasil:real; i:integer; begin repeat i:=0; writeln('KALKULATOR SEDERHANA'); writeln('a. Perkalian'); writeln('b. Pembagian'); writeln('c. Penambahan'); writeln('d. Pengurangan'); writeln('e. Keluar'); writeln; write('Pilihan Anda'); readln(pil); if pil='a' then writeln('Perkalian'); if pil='b' then writeln('Pembagian'); if pil='c' then writeln('Penambahan'); if pil='d' then writeln('Pengurangan'); if pil='e' then begin writeln('Keluar'); i:=1 end else begin writeln('Anda Salah pencet'); i:=2 end; if i=0 then begin write('Angka pertama : ');readln(angka1); write('Angka Kedua : ');readln(angka2); end; if pil='a' then begin hasil:=angka1*angka2; writeln(angka1:4:2,' x ',angka2:4:2,' = ',hasil:8:2); end; if pil='b' then begin hasil:=angka1/angka2; writeln(angka1:4:2,' / ',angka2:4:2,' = ',hasil:8:2); end; if pil='c' then begin hasil:=angka1+angka2; writeln(angka1:4:2,' + ',angka2:4:2,' = ',hasil:8:2); end; if pil='d' then begin hasil:=angka1-angka2; writeln(angka1:4:2,' - ',angka2:4:2,' = ',hasil:8:2); end; until i=1; end.

THE CALCULATE

USES WINCRT; var a,c,d : integer; operator, z:char; begin repeat clrscr; Writeln('PETUNJUK:'); Writeln('1. Masukkan angka pertama'); Writeln('2. Masukkan operator (+, -, /, *)'); Writeln('3. Masukkan Angka kedua'); Writeln('PERHITUNGAN: '); Write('Masukkan angka: '); readln(a); write('Operator: '); readln(Operator); write('Angka ke dua: '); readln(c); case operator of '+': d:=a + c; '-': d:=a - c; '/': d:=a div c; '*': d:=a * c; end; writeln('Hasil: ',d); writeln; Write('Hitung lagi? (y/n) '); readln(z); until Upcase(z) <> 'Y'; end.

Minggu, 02 Oktober 2011