Tugas Mandiri UPB

1)    program list;  {untukmenampilkan list data karyawan}

uses wincrt;

type

karyawan=record

nama: string;

kelamin: string;

alamat :string;

NIK:string;

end;

var

kry: karyawan;

begin

clrscr;

write('MasukkanNama: '); readln(kry.nama);

write('MasukkanJenisKelamin: '); readln(kry.kelamin);

write('MasukkanAlamat: '); readln(kry.alamat);

write('NIKkaryawan:');readln(kry.NIK);

{untukmemasukkan data karyawan}

writeln(kry.nama);

writeln(kry.kelamin);

writeln(kry.alamat);

writeln(kry.NIK);

{untukmenampilkan data karyawan}

end.

2)    IF THEN

Program Bila nilai >= 75, maka mendapat predikat LULUS
Bila nilai < 75, maka mendapat predikat REMID

Uses wincrt;
Var
    nilai : integer;
Begin
    Write(‘masukkan nilai Anda = ’);
    Readln(nilai);

    If nilai >= 75 then
        begin
             Writeln(‘selamat’);
         Writeln(‘LULUS’);
        end
    Else Writeln(‘REMIDI’);

    Readln;
End.

3)    Program  luas

Uses crt;
Var
    P, l : integer;
    Luas : real;
Begin
    Write(‘masukkan panjang =’);
    Readln(p);
    Write(‘masukkan lebar =’);
    Readln(l);
    If p > 0    then
        Begin
            Luas := p * l;   
        End
    Else luas := 0;

    Writeln(‘Luasnya adalah :’,luas:4:0);
    Readln;
End.

4)    Kualitas Barang di masukkan
Kualitas Harga Per Kg
A/a 1000
B/b 750
C/c 500

Uses  wincrt;
Var
Berat,harga,hargaperkg:integer;
Kualitas:char;
Begin
Clrscr;
Write(‘ Massukkan Kualitas Buah [A/B/C] : ‘); readln(kualitas);
Write(‘ Berapa Kg berat yang di beli : ‘ ); readln(berat);
Case kualitas of
‘A’,’a’: hargaperkg:=1000;
‘B’,’b’: hargaperkg:=750;
‘C’,’c’: hargaperkg:=500;
Else
Begin
Hargaperkg:=0;
Writeln(‘Salah Input’);
End;
End;

uses crt;

var i:integer;

begin

 clrscr;

 for i := 1 to 5 do

 begin

 write(i);

 writeln(Muhammad irsan');

 end;

 readln;

end.

Array 2 dimensi
program nilai;

uses wincrt;

var i,n,j:integer;

A:array[1..20] of integer;

B:array[1..20] of integer;

begin

write('masukkan banyak bilangan= ');

readln(n);

writeln('masukan data :');

for i:=1 to n do

readln(A[i]);

write('bilangan yang akan ditambahkan= ');readln(j);

for i:=1 to n do

B[i]:=A[i]+j;

writeln;

for i:= 1 to n do

writeln(A[i],'+',j,'=',B[i]);

end.

Program perulangan repeat

program contoh;

    uses crt;

     var

       i:integer;

begin

   clrscr;

     writeln(' SUSUNAN NILAI 10-1');

       i:=10;

        repeat

         writeln(i);

    i:=i-1;

      until i < 1;

        readkey;

      end.

program rekor;

uses wincrt;

type
TSiswa = record
nim : string[8];
nama : string[25];
agama : string[10];
ktp : string[25];
end;

var
s : TSiswa;
umur : integer;
ts : integer;
tl : integer;

begin
clrscr;
write (’Masukkan tahun sekarang: ‘);
readln (ts);
writeln (’Isikan data anda dalam Form ini’);
write (’NIM : ‘);
readln (s.nim);
write (’NAMA : ‘);
readln (s.nama);
write (’TAHUN LAHIR : ‘);
readln (tl);
umur := (ts-tl);
write (’AGAMA : ‘);
readln (s.agama);
write (’NO.KTP : ‘);
readln (s.ktp);
writeln;
writeln (’Berikut ini informasi yang anda berikan: ‘);
writeln (’NIM : ‘, s.nim);
writeln (’NAMA : ‘, s.nama);
writeln (’Umur : ‘, umur);
writeln (’AGAMA : ‘, s.agama);
writeln (’NO.KTP : ‘, s.ktp);
READLN;
end.

array

uses wincrt;

var

matrikA : array[1..10, 1..10] of integer;

matrikB : array[1..10, 1..10] of integer;

matrikC : array[1..10, 1..10] of integer;

a,b,c,i,j,k: integer;

begin

writeln('  >>>Program Perkalian Matrik axb dan bxc<<< ');

writeln;

writeln(' a :   b:   c:   ');

gotoxy(5,3);read(a);gotoxy(10,3);read(b);gotoxy(15,3);read(c);

writeln;

begin

writeln(' Matriks A :');

for i:= 1 to a do

for j:= 1 to b do

begin

gotoxy (j*4, i+6);

readln(matrikA[i,j]);

end;

end;

writeln;

begin

writeln(' Matriks B :');

for j:= 1 to b do

for k:= 1 to c do

begin

gotoxy (k*4, j+11);

readln(matrikB[j,k]);

end;

end;

writeln;

begin

for i:= 1 to a do

    begin

        for k:=1 to c do

        begin

        matrikC[i,k]:=0;

                for j:=1 to b do

                begin

            MatrikC[i,k]:=matrikC[i,k] + matrikA[i,j] * matrikB[j,k];

        end;

    end;

end;

end;

begin

writeln(' Hasil Perkalian Matrik A ',a,'x',b,' dan Matrik B ',b,'x',c,' adalah: ');

for i:=1 to a do

    begin

        for k:=1 to c do
        begin

  

        write(matrikC[i,k]:4);

    end;

    writeln;

end;

end;

readln;

end.

Himpunan set

Program himpunan_bagian;

Uses crt;

Type

Sets = set of char;

Var A,b,

Irisan, union,

Selisih1, Selisih2 : Sets; {Variabel Untuk Menampung Satu}

Lagi : Char;{Huruf}

Procedure Input (var N :Sets; Y:Byte);

Var I : Byte;

Ch : Char;

Begin

For I := 1 to 5 do

Begin

GotoXY (22+I*3,Y); Ch:= Upcase (Readkey);

N := N + [Ch];

If I = 5 then

Begin

GotoXY (22+I*3,Y);write(ch,’)’);

End else

Begin

GotoXY (22+I*3,Y);write(ch,’,’);

End;

End;

End;

Procedure InputData;

Var I : Byte;

Begin

GotoXY (25,1); Write(‘Operasi Himpunan’);

GotoXY (25,2); Write(‘=============’);

GotoXY (10,8); Write(‘Himpunan A : (‘); Input (A,8);

GotoXY (10,10); Write(‘Himpunan B : (‘); Input (B,10);

End;

{Procedure Untuk Cetak Isi Sets ke Layar}

Procedure Cetak (N:Sets; Y:Byte);

Var I : Char;

Begin

GotoXY (30, Y);

For I := #00 to #255 do {Utk Penjelasan baca note pada hal}

If N * [I] then write ( ‘ ’ , I , ‘ ’) ; {Berikutnya}

Write ( ‘ ) ’ ) ;

End;

Procedure Tampilkan;

Begin

GotoXY (10,15) ;Write(‘ Intersection (A,B) =(‘);;

Goto XY (10,17) :Write(‘ Union (A,B) =(‘);

Goto XY (10,19) :Write(‘ Defference (A,B) =(‘);

Goto XY (10,21) :Write(‘ Defference (B,A) =(‘);

End;

Procedure Proses;

Begin

Union := A + B ; {Sets Untuk Union}

Irisan := A * B ; {Sets Untuk Intersection}

Selisih1 := (A-B) ; {Sets Untuk Difference A-B}

Selisih2 := (B-A) ; {Sets Untuk Difference B-A}

Tampilkan;

Repeat

GotoXY(20,23); Write(‘Coba Lagi ( Y/T ) : ‘ ) ;

Lagi :=UpCase (ReadKey);

Until Lagi In [ ‘Y’,’T,’];

End;

Begin {Program Utuma}

While Lagi( ) ‘T’ do

Begin

A := [ ];

B := [ ]; {Set Dikosongkan, Agar pada saat Program}

Clrscr;

Inputdata; Proses;

Readln;

End;

End.

Program fungsi

uses crt;

function Luaspersegipanjang ( p:integer; l:integer ):real;

var luas:real;

begin

clrscr;

luas:= p*l;

luaspersegipanjang:=luas;

end;

var p,l:integer;

luas:real;

begin

writeln('PROGRAM FUNGSI LUAS PERSEGI PANJANG');

writeln('----------------------------------------------------');

write('Masukkan Nilai p : '); readln(p);

write('Masukkan Nilai l : '); readln(l);

write('');

write('Luas persegi panjang adalah ', luaspersegipanjang(p,l):0:0); 

readln;

end.