tugas pascal

tugas rata-rata

uses wincrt;
var
npm: array[1..20] of string[10];
nama,ket: array[1..20] of string[25];
nilai_uts,nilai_uas,n_quis,n_tugas: array[1..20] of real;
rata,had: array[1..20] of real;
byk,i: integer;
n_had : array[1..20] of integer;
begin
clrscr;
write('Isi Beberapa data array yang diperlukan :');readln(byk);
For i := 1 to byk do
begin
clrscr;
write('DATA KE =');writeln(i);
writeln('___________________');
write('NPM =');readln(npm[i]);
write('NAMA =');readln(nama[i]);
write('Nilai UTS =');readln(nilai_uts[i]);
write('Nilai UAS =');readln(nilai_uas[i]);
write('Nilai QUIS =');readln(n_quis[i]);
write('Nilai TUGAS =');readln(n_tugas[i]);
write('JUMLAH HADIR =');readln(n_had[i]);
had[i]:=(n_had[i]*100)/14;
rata[i]:=(nilai_uts[i]+nilai_uas[i]+n_quis[i]+n_tugas[i]+had[i])/5;
if (rata[i]>=60) then
           ket[i]:= ('LULUS')  else
           ket[i]:= ('TIDAK LULUS');
end;

{cetak variabel array}
clrscr;
writeln('       NPM           NAMA           N_RATA-RATA        KET');
writeln('      ======================================================');
For i:= 1 to byk do
begin
writeln(npm[i]:10,'',nama[i]:15,'            ',rata[i]:3:2,' ',ket[i]:15);
end;
readln;
end.


GOTOXY
uses
   wincrt;
var
       nim :string[10];
       nama:string[40];
       ket :string[15];
       nil_hadir,nil_quis,n_tugas,n_uts,n_uas          :integer;
       rata:real;
begin
       clrscr;
       gotoxy(20,3);write('#==================================================#');
       gotoxy(20,8);write('#             PROSES NILAI MAHASISWA               #');
       gotoxy(20,5);write('#--------------------------------------------------#');
       gotoxy(20,6);write('#   NPM          :                                 #');
       gotoxy(20,7);write('#   NAMA         :                                 #');
       gotoxy(20,8);write('#   N. KEHADIRAN :                                 #');
       gotoxy(20,9);write('#   N. QUIS      :                                 #');
       gotoxy(20,10);write('#   N.  TUGAS    :                                 #');
       gotoxy(20,11);write('#   N.  UTS      :                                 #');
       gotoxy(20,12);write('#   N.  UAS      :                                 #');
       gotoxy(20,13);write('#--------------------------------------------------#');
       gotoxy(20,14);write('#   RATA-RATA    :                                 #');
       gotoxy(20,15);write('#   KETERANGAN   :                                 #');
       gotoxy(20,16);write('#==================================================#');
       gotoxy(39,6);readln(nim);
       gotoxy(39,7);readln(nama);
       gotoxy(39,8);readln(nil_hadir);
       gotoxy(39,9);readln(nil_quis);
       gotoxy(39,10);readln(n_tugas);
       gotoxy(39,11);readln(n_uts);
       gotoxy(39,12);readln(n_uas);
       rata := (nil_hadir*0.1)+(nil_quis*0.1)+(n_tugas*0.15)+(n_uts*0.25)+(n_uas*0.4);
       if (rata>=60) then
           ket:= ('lulus')  else
           ket:= ('tidaklulus');
       gotoxy(39,14);write(rata:3:2);
       gotoxy(39,15);write(ket);
end.

 REPEAT
uses wincrt;
 var i:integer;
begin
 i:=0;
 repeat
 begin
 i:=i+1;
 writeln(i);
end;
until i=10
end.

SUHU
uses wincrt;
 var f,r:real;
     c:integer;
begin
  writeln('----------------------------------');
  writeln(' CELCIUS     FAHRENHEIT    REAMUR ');
  writeln('----------------------------------');
   for c:=28 to 35 do
   begin
   f:=(c*1.8+32);
   r:=(c*0.8);                                   
   writeln(c,'            ',f:2:2,'          ',r:2:2);
  end;
end.

WHILE LINGKARAN
uses wincrt;
var
  r:integer;
  pi,l:real;
begin
  writeln('jari-jari    Luas');
  r:=1;
  while r<14 do
  begin
   pi:=22/7;
   l:=pi*(r*r);
 
 writeln(r,'          ',l:2:2);
 r:=r+3;
 end;
end.

WHILE
uses wincrt;
 var i:integer;
begin
 i:=1;
 while i<21 do
 begin
 writeln(i);
 i:=i+3;
end;
end.


ARRAY PASIEN
uses wincrt;
var
nama       : array[1..20] of string [15];
alm,pg_jwb : array[1..20] of string[30];
jns_pasien : array[1..20] of string[1];
ket_jenis  : array[1..20] of string[5];
kelas_kamar: array[1..20] of string[1];
b_kons, b_obat, l_inap : array [1..20] of longint;
b_kamar, bkamar1, breg, tobi : array [1..20] of real;
byk,i:integer;
Begin
Clrscr;
Write('Isi berapa banyak data array yang diperlukan:');Readln(byk);
For i := 1 to byk Do
Begin
clrscr;
write('DATA KE =');writeln(i);
Gotoxy(5,3);Write('======================================================');
    Gotoxy(5,4);Write('|                Biaya Rawat Inap Pasien             |');
    Gotoxy(5,5);Write('------------------------------------------------------');
    Gotoxy(5,6);Write('| Nama Pasein    :                                   |');
    Gotoxy(5,7);Write('| Alamat         :                                   |');
    Gotoxy(5,8);Write('| Penanggung Jwb :                                   |');
    Gotoxy(5,9);Write('| JnsPasien[A/U] :                                   |');
    Gotoxy(5,10);Write('| Kelas[A/B/C/D] :                                   |');
    Gotoxy(5,11);Write('| Lama Inap      :                                   |');
    Gotoxy(5,12);Write('-----------------------------------------------------');
    Gotoxy(5,13);Write('| B. Registrasi  :                                   |');
    Gotoxy(5,14);Write('| B. Obat        :                                   |');
    Gotoxy(5,15);Write('| B. Konsultasi  :                                   |');
    Gotoxy(5,16);Write('| B. Sewa Kamar  :                                   |');

    Gotoxy(24,6);Readln(nama[i]);
    Gotoxy(24,7);Readln(alm[i]);
    Gotoxy(24,8);Readln(pg_jwb[i]);
    Gotoxy(24,9);Readln(jns_pasien[i]);
    if (jns_pasien[i]='A') then
        ket_jenis[i]:='ASKES' else
        if (jns_pasien[i]='U') then
           ket_jenis[i]:='Umum' else
           ket_jenis[i]:='';
    Gotoxy(28,9);Writeln(ket_jenis[i]);
    Gotoxy(24,10);Readln(kelas_kamar[i]);
    Gotoxy(24,11);Readln(l_inap[i]);

    if (jns_pasien[i]='A') then
        breg[i]:=0 else
        if (jns_pasien[i]='U') then
           breg[i]:=20000 else
           breg[i]:=20000;

    Gotoxy(24,13);Writeln(breg[i]:10:2);
    Gotoxy(24,14);Readln(b_obat[i]);
    Gotoxy(24,15);Readln(b_kons[i]);


    if (jns_pasien[i]='A') then
        if (kelas_kamar[i]='A') then
           b_kamar[i]:=(l_inap[i]*400000)*(50/100) else
        if (kelas_kamar[i]='B') then
           b_kamar[i]:=(l_inap[i]*300000)*(50/100) else
        if (kelas_kamar[i]='C') then
           b_kamar[i]:=(l_inap[i]*200000)*(50/100) else
        if (kelas_kamar[i]='D') then
           b_kamar[i]:=(l_inap[i]*100000)*(50/100) else
           b_kamar[i]:=0;
    if (jns_pasien[i]='U') then
        if (kelas_kamar[i]='A') then
           b_kamar[i]:=(l_inap[i]*400000) else
        if (kelas_kamar[i]='B') then
           b_kamar[i]:=(l_inap[i]*300000) else
        if (kelas_kamar[i]='C') then
           b_kamar[i]:=(l_inap[i]*200000) else
        if (kelas_kamar[i]='D') then
           b_kamar[i]:=(l_inap[i]*100000) else
           b_kamar[i]:=0;

    Gotoxy(24,16);Writeln(b_kamar[i]:10:2);
    tobi[i]:=breg[i]+b_kons[i]+b_obat[i]+b_kamar[i];
    Gotoxy(5,17);Write('------------------------------------------------------');
    Gotoxy(5,18);Write('| Total Biaya   :                                    |');
    Gotoxy(5,19);Write('======================================================');
    Gotoxy(24,18);Writeln(tobi[i]:10:2);
   end;
clrscr;
Writeln('    NAMA     JENIS PASIEN    TOTAL BAYAR');
writeln('==========================================');
For i:= 1 to byk Do
Begin
Writeln(nama[i]:10,' ',jns_pasien[i]:10,' ',tobi[i]:2:2);                                                                  
end;
Readln;
end.

LUAS LINGKARAN
uses wincrt;
var
  r:integer;
  pi,l:real;
begin
  pi:=22/7;
  write('Jari Lingkaran=');readln(r);
  l:=pi*(r*r);
 write('Luas lingkaran=',l:2:2);
end.


uses wincrt;
var
  r:integer;
  pi,l,k:real;
begin
  pi:=22/7;
  write('Jari Lingkaran=');readln(r);
  l:=pi*(r*r);
  k:=2*pi*r;
 writeln('Luas lingkaran=',l:2:2);
 writeln('Keliling Lingkaran=',k:2:2);
end.

LOOP
uses wincrt;
 var a,t:integer;
     luas:real;
begin
  writeln('-------------------------');
  writeln(' ALAS     TINGGI    LUAS ');
  writeln('-------------------------');
   for a:=5 to 15 do
   begin
     t:=6;
     luas:=(a*t)/2;
   writeln(a,'         ',t,'        ',luas:4:2);
  end;
end.

NILAI RATA-RATA
uses wincrt;
var
 ktm : string[10];
 nama : string[30];
 n_uts,n_uas,n_quis,n_had:integer;
   rata,had:real;
begin
  write('NAMA=');readln(nama);
  write('KTM=');readln(ktm);
  write('NILAI QUIS=');readln(n_quis);
  write('NILAI UTS=');readln(n_uts);
  write('NILAI UAS=');readln(n_uas);
  write('KEHADIRAN=');readln(n_had);
   had:=(n_had*100)/14;
   rata:=(n_quis+n_uts+n_uas+had)/4;
    writeln('NILAI RATA-RATA=',rata:2:2);
end.

GAJI
uses wincrt;
var
 nip : String[10];
 nama : string[30];
 gol : string[3];
 status : string[2];
 gapok, gp :real;
begin
  write('nip_karyawan=');readln(nip);
  write('nama_karyawan=');readln(nama);
  write('status=');readln(status);
  write('golongan=');readln(gol);
    if(gol='A') then
    gp:=1200000 else
     if(gol='B') then
     gp:=1050000 else
     gp:=850000;
     gapok:=gp;
  write('gaji pokok=',gapok:7:2);
end.


HOTEL

uses wincrt;
var LM,HK:longint;
TOTBAYAR,DISC,BAYAR:real;
begin
  write('LAMA MENGINAP=');readln(LM);
  write('HARGA KAMAR=');readln(HK);
  TOTBAYAR:=LM*HK;
  write('TOTAL BAYAR=',TOTBAYAR:7:2);
  IF(TOTBAYAR>=300000) THEN
  DISC:=(10/100*TOTBAYAR) ELSE
     IF(TOTBAYAR>=500000) THEN
     DISC:=(15/100*TOTBAYAR) ELSE
        IF(TOTBAYAR>=800000) THEN
        DISC:=(20/100*TOTBAYAR) ELSE
        DISC:=0;
 writeln('DISCON=',DISC:2:2);
 BAYAR:=TOTBAYAR-DISC;
 writeln('TOTAL BAYAR-DISCON=',BAYAR:7:2);
end.

Posted in: artikel baru kami