Struktur & Organisasi Data 2 "Tugas"

  Struktur & Organisasi Data 2

Kalkulator Pascal 

2 KA 12

Nama Kelompok :

1.      Dhavi Indra Destiawan              (11111986)

2.      Dwi Rejeki                                   (12111260)

3.      Harry Gumilang . S                    (13111245)

4.      Keni Gumay                                (13111928)

5.      Runy Afina Putri                         (16111498)

6.      Septian Hidayat                           (16111690)

7.      Widi Nur Astuti                           (17111380)

8.      Yuni Puspa Rahayu                    (17111665)

SISTEM INFORMASI

FAKULTAS ILMU KOMPUTER DAN TEKNOLOGI INFORMASI

UNIVERSITAS GUNADARMA

ATA 2012/2013

Coding

Program Calculator;

uses crt;

const

Kol = 10; kol2=35;

Var

Bil1,Bil2,Bil3,Pilih : Integer;

procedure masukkan;

begin

clrscr;

gotoxy(kol2,4);writeln('----------------------');

gotoxy(kol2,5);writeln(' Masukan Bilangan ');

gotoxy(kol2,6);writeln('----------------------');

gotoxy(kol2,7);writeln('Bilangan 1 : ');

gotoxy(kol2,8);writeln('Bilangan 2 : ');

gotoxy(kol2,9);writeln('----------------------');

gotoxy(kol2,10);writeln('Hasil Operasi : ');

gotoxy(kol2,11);writeln('----------------------');

gotoxy(kol2+20,7);readln(bil1);

gotoxy(kol2+20,8);readln(bil2);

end;

Procedure Tambah;

begin

masukkan;

bil3 := bil1 + bil2;

gotoxy(kol2+20,10);writeln(bil1,'+',bil2,'=',bil3);

readln;

end;

Procedure Kurang;

begin

masukkan;

bil3 := bil1 - bil2;

gotoxy(kol2+20,10);writeln(bil1,'-',bil2,'=',bil3);

readln;

end;

Procedure Kali;

begin

masukkan;

bil3 := bil1 * bil2;

gotoxy(kol2+20,10);writeln(bil1,'*',bil2,'=',bil3);

readln;

end;

Procedure bagi_bulat;

begin

masukkan;

bil3 := bil1 div bil2;

gotoxy(kol2+20,10);writeln(bil1,'div',bil2,'=',bil3);

readln;

end;

Procedure Sisa_bagi;

begin

masukkan;

bil3 := bil1 mod bil2;

gotoxy(kol2+20,10);writeln(bil1,'mod',bil2,'=',bil3);

readln;

end;

(* Program Utama *)

begin

repeat

clrscr;

gotoxy(kol,4); writeln('--------------------------');

gotoxy(kol,5); writeln('Operasi Bilangan Bulat');

gotoxy(kol,6); writeln('--------------------------');

gotoxy(kol,7); writeln('1. Penambahan');

gotoxy(kol,8); writeln('2. Pengurangan');

gotoxy(kol,9); writeln('3. Perkalian');

gotoxy(kol,10);writeln('4. Pembagian Integer {Div} ');

gotoxy(kol,11); writeln('5. Sisa Hasil Bagi {Mod} ');

gotoxy(kol,12); writeln('6. Selesai');

gotoxy(kol,13); writeln('--------------------------');

gotoxy(kol,14); writeln('Pilihan Anda [1..6] : [ ] ');

gotoxy(kol,15);writeln('--------------------------');

gotoxy (kol+25,14);readln(pilih);

case pilih of

1 : Tambah;

2 : Kurang;

3 : Kali;

4 : Bagi_bulat;

5 : Sisa_bagi;

end;

until pilih = 6;

end.