Program Input Data Mahasiswa

program Input_Data_Mahasiswa;
uses wincrt;
type tbl_mhs=record
nim :longint;
nama :string;
nilai,i,n:integer;
huruf :char;
end;





 var
  mhs:array[1..10]of tbl_mhs;
  a,b,ke,jum:integer;
  tukar     :tbl_mhs;
  pilih     :char;
  posisi    :array[1..10]of integer ;
nama : array [1..10]of string;
nilai : array [1..5] of integer;
predikat: array [1..5] of string;
ket : array [1..5] of string;

  begin
    clrscr;
    writeln('     Program Inputan Data Mahasiswa antiQista     ');
    writeln;
    write('Masukkan Banyaknya Mahasiswa = ');readln(jum);

repeat
ke:=ke+1;
writeln;
writeln('Inputkan Data Mahasiswa Ke ',ke,' ');
write('NIM   : ');readln(mhs[ke].nim);
write('NAMA  : ');readln(mhs[ke].nama);
write('NILAI : ');readln(mhs[ke].nilai);
 if mhs[ke].nilai >= 90 then mhs[ke].huruf := 'A' else
 if mhs[ke].nilai >= 75 then mhs[ke].huruf := 'B' else
 if mhs[ke].nilai >= 50 then mhs[ke].huruf := 'C' else
 if mhs[ke].nilai >= 40 then mhs[ke].huruf := 'D' else
 mhs[ke].huruf := 'E' ;

Untuk SouceCode yang lengkap, kalian bisa download di sini :D
=> download

READMORE

program pascal kalkulator

{kalkulator}
uses wincrt;
var a,b:integer;
    hasil1:longint;
    hasil2:real;

begin

writeln('kalkulator mini');
write('masukkan bilangan bulat a= ');readln(a);
write('masukkan bilangan bulat b= ');readln(b);
hasil1:=a+b;
writeln('hasil ',a,' + ',b,' = ',hasil1);
hasil1:=a-b;
writeln('hasil ',a,' - ',b,' = ',hasil1);
hasil1:=b-a;

writeln('hasil ',b,' - ',a,' = ',hasil1);
hasil1:=a*b;
writeln('hasil ',a,' * ',b,'= ',hasil1);
hasil2:=a/b;
writeln('hasil ',a,'/ ',b,' = ',hasil2:4:2);
hasil2:=b/a;
writeln('hasil ',b,'/ ',a,' = ',hasil2:4:2);
hasil2:=sqrt(a);
writeln('hasil akar a= ',hasil2:4:2);
hasil2:=sqrt(b);
writeln('hasil akar b= ',hasil2:4:2);
hasil2:=sqr(a);
writeln('hasil pangkat a= ',hasil2:4:2);
hasil2:=sqr(b);
writeln('hasil pangkat b= ',hasil2:4:2);

end.

READMORE

program mencari L, K, dan V bangun ruang

{menghitung luas, keliling dan volume bangunan dan bangun ruang}
uses wincrt;
const phi=3.14;
var a,t,r,ras,ts,p,l,tb,aal,tal,aspal,tsl,tl:integer;
    hasil:real;

begin
writeln;
writeln('-==================================================================-');
writeln('menghitung luas
, keliling dan volume bangun datar dan bangun ruang');
writeln('by: Muhammad Targiono, NIM: 111 051 035');
writeln('-==================================================================-');
writeln;
write('masukkan alas
segitiga siku-siku   = ');readln(a);
write('masukkan tinggi segitiga siku-siku = ');readln(t);
writeln;
write('masukkan jari-jari lingkaran     = ');readln(r);
writeln;
write('masukkan jari-jari alas silinder = ');readln(ras);
write('masukkan tinggi silinder         = ');readln(ts);
writeln;
write('masukkan panjang balok = ');readln(p);
write('masukkan lebar balok   = ');readln(l);
write('masukkan tinggi balok  = ');readln(tb);
writeln;
write('masukkan panjang alas limas segitiga biru = ');readln(aal);
write('masukkan tinggi alas limas segitiga  = ');readln(tal);
write('masukkan tinggi sisi limas segitiga  = ');readln(tsl);
write('masukkan tinggi limas segitiga       = ');readln(tl);
write('-------------------------------------------------------------------');
writeln;
hasil:=1/2*a*t;
writeln('luas segitiga siku-siku ',1/2:4:2,'*',a,'*',t,' = ',hasil:4:2);
writeln;
hasil:=phi*r*r;
writeln('luas lingkaran     ',phi:4:2,'*',r,'*',r,'  = ',hasil:4:2);
hasil:=2*phi*r;
writeln('keliling lingkaran ',2,'*',phi:4:2,'*',r,'  = ',hasil:4:2);
writeln;
hasil:=(2*phi*ras)*(ras+ts);
writeln('luas silinder ',2,'*',phi:4:2,'*',ras,'*(',ras,'+',ts,') = ',hasil:4:2);
hasil:=phi*ras*ras*ts;
writeln('volume silinder ',phi:4:2,'*',ras,'*',ras,'*',ts,'   = ',hasil:4:2);
writeln;
hasil:=(2*p*l)+(2*p*tb)+(2*l*tb);
writeln('luas permukaan balok (',2,'*',p,'*',l,')+(',2,'*',pk,'*',tbu,')+(',2,'*',l,'*',tb,') = ',hasil:4:2);
hasil:=p*l*tb;
writeln('volume balok         ',p,'*',l,'*',tb,'   = ',hasil:4:2);
writeln;
hasil:=(1/2*aal*tal)+3*(1/2*aal*tsl);
writeln('luas permukaan limas segitiga (',1/2:4:2,'*',aal,'*',tal,')+',3,'*(',1/2:4:2,'*',aak,'*',tsl,') = ',hasil:4:2);
hasil:=1/3*(1/2*aal*tal)*tl;
writeln('volume limas segitiga          ',1/3:4:2,'*(',1/2:4:2,'*',aal,'*',tal,')*',tl,'      = ',hasil:4:2);
writeln;
writeln('=============================___selesai___==========================');
readln;
end.

READMORE

program pascal kalkulator

{kalkulator}
uses wincrt;
var a,b:integer;
    hasil1:longint;
    hasil2:real;

begin
writeln('kalkulator mini');

write('masukkan bilangan bulat a= ');readln(a);
write('masukkan bilangan bulat b= ');readln(b);
hasil1:=a+b;
writeln('hasil ',a,' + ',b,' = ',hasil1);
hasil1:=a-b;
writeln('hasil ',a,' - ',b,' = ',hasil1);
hasil1:=b-a;

writeln('hasil ',b,' - ',a,' = ',hasil1);
hasil1:=a*b;
writeln('hasil ',a,' * ',b,'= ',hasil1);
hasil2:=a/b;
writeln('hasil ',a,'/ ',b,' = ',hasil2:4:2);
hasil2:=b/a;
writeln('hasil ',b,'/ ',a,' = ',hasil2:4:2);
hasil2:=sqrt(a);
writeln('hasil akar a= ',hasil2:4:2);
hasil2:=sqrt(b);
writeln('hasil akar b= ',hasil2:4:2);
hasil2:=sqr(a);
writeln('hasil pangkat a= ',hasil2:4:2);
hasil2:=sqr(b);
writeln('hasil pangkat b= ',hasil2:4:2);

end.

READMORE