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

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.

algoritma rata-rata nilai dan juara 1

program contoh810;
uses wincrt;
var nama,namamaks:string;
       nilai,jumlahnilai,rata:real;
       banyaksiswa:byte;
       nilaimaks:real;
begin
        clrscr;
        {inisialisasi}
        banyaksiswa:=0;jumlahnilai:=0;nilaimaks:=-999;
        namamaks:=' ';
        write('nama siswa (isi "x" jika selesai) : ');
        readln(nama);
        while nama <> 'x' do
        begin
                     write('nilai ujian : ');readln(nilai);
                     banyaksiswa:=banyaksiswa+1;
                     jumlahnilai:=jumlahnilai+nilai;

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

                       writeln;write('nama siswa (isi "x" jika selesai) : ');
                        readln(nama);
                        end;
          rata:=jumlahnilai/banyaksiswa;
          writeln('nilai rata-rata : ', rata:6:2);
          writeln('nilai maksimum : ',nilaimaks:6:2);
          writeln('nama siswa juara 1 : ',namamaks);
end.

selamat mencoba

algoritma menampilkan deret angka

Algoritma untuk menampilkan deret angka (0, 2, 5, 10, 26, 37)

Program deretangka;
uses wincrt;
var
     array[1..50]:integer;
     i, n, min, kelompok, temp, tempatnya_min : integer;
begin
  writeln('Program deret angka 0, 2, 5, 10, 26, 37');
  for kelompok := 1 to n do
  begin
       min := x[kelompok];
       for i := kelompok to n do
       begin
             if (x[i] <= min) then
             begin
                   min := x[i];
                   tempatnya_min := i;
             end.
       end.
  temp := x[kelompok];
  x[kelompok] := x[tempatnya_min];
  x[tempatnya_min] := temp;
end.

daftar pustaka
http://blog.rosihanari.net/algoritma-sorting-dan-implementasinya/
diunduh (6 april: 11:22)

algoritma menentukan bilangan positif atau negatif

Apa itu bilangan positif dan negatif?
     positif adalah bilangan yang lebih besar dari pada nol (0) : {1,2,3,...)
     negatif adalah bilangan yang lebih kecil dari pada nol (0) : {-1,-2, -3,...}

1. algoritma flowchart
       

sumber : http://nurfitrianti-23.blogspot.com/2012/08/menentukan-bilangan-positif-atau-negatif.html

2. algoritma turbo pascal

Program bilangan_positif

Uses wincrt;

Var

     angka,hasil:integer;

Begin

     writeln(' menentukan bilangan positif dan negatif');

     writeln('masukan angka : ');read(angka);

     if angka >=0 then writeln (angka, 'adalah bilangan POSITIF')

     else writeln(angka, 'adalah bilangan NEGATIF');

end.

   

Menentukan bilangan ganjil / genap

cara menentukan bilangan ganjil atau genap dengan menggunakan Algoritma Flowchart dan deskripsi
   

• Deskripsi :

Deklarasi :
const n = 1, 2, 3, 4, ... , x {nilai}
Genap = real {bilangan genap}

Deskripsi :
read (n)
Genap < - n/2=0

• Flowchart :

algoritma (8,5,3,1,9,7,2)

mengurutkan angka (8,5,3,1,9,7,2) dengan menggunakan algoritma                                                                Maka langkah-langkahnya adalah sebagai berikut:
* SORTING MENGURUTKAN DATA *
* METODE BUBBLE SORT *
1. CLS
2. INPUT “BANYAK BILANGAN YANG DIURUTKAN : “, N
3. DIM BIL(N),Y(N)
4. PRINT
5. PRINT “INPUT BILANGAN YG AKAN DIURUTKAN : “
6. FOR I = 1 TO N STEP 1
7. PRINT” BILANGAN KE – “;I;” : “
8. INPUT “”,BIL( I )
9. Y( I ) = BIL( I )
10. NEXT I
11. PRINT
12. CLS
13. PRINT “DATA SEBELUM URUT : “                                                                                                                                                                                                                                                             FOR I = 1 TO N
PRINT BIL( I );
NEXT I
PRINT:PRINT
PRINT “LANGKAH PENGURUTAN : ”
FOR J= 1 TO N-1
FOR I= 1 TO N-J
IF BIL( I ) < BIL( I+1 ) THEN 151
TUKAR=BIL( I )
BIL( I ) = BIL( I+1 )
BIL( X+1 ) = TUKAR
NEXT I
PRINT “LANGKAH KE : “; J;” : ”
FOR K=1 TO N
PRINT BIL(K);
NEXT K
PRINT
NEXT J
PRINT:PRINT”SETELAH URUT : ”
PRINT”DATA”,”URUT KECIL”,”URUT BESAR”
FOR I= 1 TO N
PRINT Y( I ),BIL( I ),BIL( N+1-I)
NEXT I
END
Kemudian:
For I = 1 to N
Print Abjad$( I );
Next I
Print:Print
Print”Langkah Pengurutan”
For J = 1 to N-1
For I = 1 to N-J
If Abjad$( I ) < Abjad$( I+1 ) then 151
Tukar$ = Abjad$( I )
Abjad$( I ) = Abjad$( I+1 )
Abjad$( X+1 ) = Tukar$
Next I
Print”Langkah ke:”; J ;” : ”
For K = 1 to N
Print Abjad$(K);
Next K
Print
Next J
Print: Print”Setelah Urut : ”
Print “Data”,”Urut kecil”,”Urut besar”
For I = 1 to N
Print Y$( I ), Abjad$( I ), Abjad$( N+1-I)
Next I
End                                                                                                                                                                                                                                                                                                                                 selamat mencoba

music favorit