Halaman

Kamis, 20 Juni 2013

tugas kursuskomputer

program kursuskomputer;
uses wincrt;
var nama,namamaks:string;
cd,vb,php,b,j:real;
jumcd,jumvb,jumphp,jumb,jumj:real;
jumlahnilai,ratacd,ratavb,rataphp,ratab,rataj:real;
banyaksiswa:byte;
nilai,nilaimaks:real;
begin
clrscr;
{inisialisasi}
banyaksiswa:=0;jumlahnilai:=0;nilaimaks:=-999;
jumcd:=0;jumvb:=0;jumphp:=0;jumb:=0;jumj:=0;
namamaks:=' ';
write('nama siswa (isi "x" jika selesai) : ');readln(nama);
while nama <> 'x' do
begin
write('nilai corel draw : ');readln(cd);
write('nilai visual basic : ');readln(vb);
write('nilai php : ');readln(php);
write('nilai blog : ');readln(b);
write('nilai joomla : ');readln(j);
banyaksiswa:=banyaksiswa+1;
jumcd:=jumcd+cd;jumvb:=jumvb+vb;jumphp:=jumphp+php;
jumb:=jumb+b;jumj:=j;
jumlahnilai:=jumlahnilai+cd+vb+php+b+j;

{mancari nilai maksimum};
if jumlahnilai > nilaimaks
then begin
nilaimaks:=jumlahnilai;
namamaks:=nama;
end;

writeln;write('nama siswa (isi "x" jika selesai) : ');
readln(nama);
end;
ratacd:=cd/banyaksiswa;
ratavb:=vb/banyaksiswa;
rataphp:=php/banyaksiswa;
ratab:=b/banyaksiswa;
rataj:=j/banyaksiswa;
writeln('nilai rata-rata corel draw : ', ratacd:6:2);
writeln('nilai rata-rata visual basic : ', ratavb:6:2);
writeln('nilai rata-rata php : ', rataphp:6:2);
writeln('nilai rata-rata blog : ', ratab:6:2);
  writeln('nilai rata-rata joomla : ', rataj:6:2);
writeln('nilai maksimum : ', nilaimaks:6:2);
writeln('nama siswa juara 1 : ', namamaks);
  end.


program PDAM but can't run


program pdam;
uses wincrt;
var  nama:array[1..25]of string[25];
     sigmapemakaian,tarifm3:real;
     sigma,bayar,total:real;
     golongan:char;
     i,banyaklangganan:byte;

procedure bacadata;
begin
     clrscr;
     {bagian membaca data}
     i:=1;{pengisian dimulai indeks}
     write('nama langganan (isi "x" jika selesai) : ');read(nama[i]);
     while nama[i] <> 'x' do
     begin
          write('jumlah pemakaian : ');read(sigma);
          inc(i);{penambahan indeks}
          write('nama langganan (isi "x jika selesai) : ');readln(nama[i]);
     end;
     banyaklangganan:=i-1;
end;

procedure hitung;
begin
     {bagian menghitung};
     sigmapemakaian:=0;
     for i:=1 to banyaklangganan do
     sigmapemakaian:=sigmapemakaian+sigma;
     end;
     begin
          if golongan = 'A' then
              tarifm3:=300
          else if golongan = 'B' then
                 tarifm3:=250;
               if golongan = 'C' then
                 tarifm3:=100
     end
     bayar:=sigmapemakaian*tarifm3
     total:=bayar+bayar[i]
     end;

procedure cetak;
begin
     {bagian cetak hasil}
     clrscr;
     writeln('daftar pembayaran langganan PDAM ');
     writeln('bulan juni 2013');
     writeln('===========================================================================================');
     writeln('nama langganan');
     write('jumlah pemakaian');
     write('golongan');
     write('bayar');
     writeln('==========================================================================================');
     for i:=1 to banyaklangganan do
     begin
          gotoxy(3,4+i);write(nama[i]);
          gotoxy(33,4+i);write(sigma);
          gotoxy(43,4+i);write(golongan);
          gotoxy(53,4+i);write(bayar);
     end;
     writeln;writeln('==================================================================================');
     writeln('total pembayaran : ',total:6:2);
     end;
     begin {program utama}
           bacadata;
           hitung;
           cetak;
     end.

ada yang salah pada pgogram diatas,,,ko gak mau jalan yaaa

Sabtu, 01 Juni 2013

algoritma array dengan {procedure bacadata + hitungdata + cetak]


program contoh103;
uses wincrt;
var  nama:array[1..25]of string[25];
     nilai:array[1..25]of real;
     jumlahnilai,rata:real;
     i,banyaksiswa:byte;

procedure bacadata;
begin
     clrscr;
     {bagian membaca data}
     i:=1;{pengisian dimulai indeks}
     write('nama siswa (isi "x" jika selesai) : ');read(nama[i]);
     while nama [i] <> 'x' do
     begin
          write('nilai ujian : ');readln(nilai[i]);

          inc(i);{penambahan indeks}
          write('nama siswa (isi "x" jika selesai) : ');readln(nama[i]);
     end;
     banyaksiswa:=i-1;
end;

procedure hitungrata;
begin
     {bagian menghitung nilai rata-rata}
     jumlahnilai:=0;
     for i:=1 to banyaksiswa do
     jumlahnilai:=jumlahnilai+nilai[i];
     rata:=jumlahnilai/banyaksiswa;
end;

procedure cetak;
begin
     {bagian cetak hasil}
     clrscr;
     writeln('daftar nilai ujian pascal ');
     writeln('=====');
     writeln('nama siswa ujian');
     writeln('=====');
     for i:=1 to banyaksiswa do
     begin
          gotoxy(3,4+1);write(nama[i]);
          gotoxy(33,4+1);write(nilai[i]:6:2);
     end;
     writeln;writeln('=====');
     writeln('nilai rata-rata : ',rata:6:2);
     end;
     begin {program utama}
           bacadata;
           hitungrata;
           cetak;
     end.