Program Record berurut di Pascal

Kali ini dapet tugas lagi dari Pak Edi untuk mencoba-coba ngurutin data yang diinputkan pada program Record kemarin,dan akhirnya selesai juga tugasnya. Inti dari program ini adalah kita membuat tampilan untuk menginputkan data nama,nim,nilai satu persatu dan keluarannya namanya harus sesuai abjad. Misal mahasiswa 1 nama Budi,mahasiswa 2 Adi,maka keluarannya nama Adi dahulu baru kemudian Budi. Lebih jelasnya liat program dibawah ini.

uses wincrt;
type rec_mhs = record
             nama:string;
             nim:string;
             nilai:integer;
             end;
var mhs:array[1..10] of rec_mhs;
    n,i,j:integer;

procedure input_data;
begin
     for i:= 1 to n do
     begin
          writeln('Mahasiswa',i);
          write('Nama  :');readln(mhs[i].nama);
          write('Nim   :');readln(mhs[i].nim);
          write('Nilai :');readln(mhs[i].nilai);
          writeln;
     end;
end;

procedure urut;
var t:string;
begin
     for i:= 1 to n-1 do
         for j:= 1+i to n do
             if mhs[i].nama>mhs[j].nama then
             begin
             t:=mhs[i].nama;
             mhs[i].nama:=mhs[j].nama;
             mhs[j].nama:=t;
             end;
end;

procedure cetak;
begin
for i:= 1 to n do
writeln(i:2,mhs[i].nama:6,mhs[i].nim:8,mhs[i].nilai:10);
end;

begin
write('Masukkan Jumlah Mahasiswa :');readln(n);
input_data;
urut;
writeln('No    Nama   No.mhs    Nilai');
cetak;
end.

Read More

Program Perkalian Matrik dengan Pascal

Kali ini gue mau mosting mengenai perkalian matrik di Turbo Pascal. Katanya juga nie buat quiz besok dikampus. Sebenarnya masih keganggu mengenai masalah yang kemarin,tapi ya sudahlah.

Dan ini contoh syntaxnya

uses wincrt;

type matrik = array [1..50,1..50]of integer;
var
   a,b,c:matrik;
   i,j,k,x,y,z:integer;


procedure cetak;
begin
for i:= 1 to x do
for j:= 1 to y do
begin
     write('Matrik A [',i,',',j,'] =');
     readln(a[i,j]);
end;
writeln;
for i:= 1 to y do
for j:= 1 to z do
begin
     write('Matrik B [',i,',',j,'] =');
     readln(b[i,j]);
end;
end;

procedure kali;
begin
for i:= 1 to x do
for j:= 1 to z do
for k:= 1 to y do
c[i,j]:= c[i,j]+ a[i,k]*b[k,j];
end;

procedure hasil;
begin
writeln('Hasil dari perkalian Matrix A dengan Matrix B adalah : ');
Writeln;
for i:=1 to x do
begin
for j:=1 to z do
write(c[i,j],' ');
writeln;
end;
writeln;
readln;
end;

begin
writeln('Ordo matrik A');
write('Baris =');
readln(x);
write('Kolom =');
readln(y);
writeln;
writeln;
writeln('Ordo matrik B');
writeln('Baris =',y);
write('Kolom =');
readln(z);
cetak;
writeln;
kali;
writeln;
hasil;
end.

Read More

Tugas Algoritma dan Pemrograman II - 2

Buatlah program yang menambahkan bilangan sampai berjumlah 100 serta rata-ratanya.(Repeat-until dan while-do)

Program dengan kondisi While-do

uses wincrt;
var data,jml,i:integer;
    rata:real;
begin
     jml:=0;
     i:=0;
     while jml<100 do
           begin
                write('Data ke-',i+1,'= ');
                readln(data);
                jml:=jml+data;           
                 i:=i+1;     
            end;
     rata:=jml/i;
     writeln('Jumlanya     =',jml);
     writeln('Rata-ratanya = ',rata:0:2);
     
end.

Program dengan kondisi Repeat-until

uses wincrt;
var data,i,jml:integer;
    rata:real;
begin
     repeat
     write('data ke-',i+1,'= ');
     readln(data);
     jml:=jml+data;
     i:=i+1;
     until
     jml>=100;
     rata:=jml/i;
     writeln('Jumlahnya    =',jml);
     writeln('Rata-ratanya =',rata:0:2);
end.

Read More

Tugas Algoritma dan Pemrograman II-1

Soal :
Buatlah program pascal yang jika inputan dimasukkan adalah 600000 dan tampil data seperi dibawah
Harga  : 600000
Diskon: 60000
Bayar  : 540000
Bonus  : LAPTOP
Dengan syarat

JAWAB

Berikut ini source code pascalnya,,original bikin ndiri.hehe

Maaf jika cuman saya kasih screenshotnya saja soalnya kalo dibuat teksarea jadi tidak karuan hasilnya

Read More