Tugas Kampus untuk DosenKu Mr. Muhamad Danuri, M.Kom


You are not connected. Please login or register

Tugas Menu (Program Modular)

Topik sebelumnya Topik selanjutnya Go down  Message [Halaman 1 dari 1]

1 Tugas Menu (Program Modular) on Tue Apr 24, 2012 6:52 pm

admin

avatar
Admin
kumpul disini..
program menu...

Contoh :
Program Calculator;
uses wincrt;

const
Kol = 10; kol2=35;

Var

x, y : longint;
Potonganharga : Longint;

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,;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,;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;

Procedure nama;
begin
clrscr;
gotoxy(17,5); writeln('Mhardiant');
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,; 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. nama');
gotoxy(kol,13); writeln('7. Selesai');
gotoxy(kol,14); writeln('--------------------------');
gotoxy(kol,15); writeln('Pilihan Anda [1..7] : [ ] ');
gotoxy(kol,16);writeln('--------------------------');
gotoxy (kol+23,15);readln(pilih);
case pilih of
1 : Tambah;
2 : Kurang;
3 : Kali;
4 : Bagi_bulat;
5 : Sisa_bagi;
6 : nama;
end;
until pilih = 7;
end.

Lihat profil user http://tugasku.netgoo.org

2 TUGAS PROGRAM MENU-DONY KHAEROMAN-REG.SORE on Thu Apr 26, 2012 2:58 pm

TUGAS PROGRAM MENU-DONY KHAEROMAN-REG.SORE
INGIN TAHU CARANYA MONGGO KLIK DI SINI SAJA:











Seperti Aku Seperti Jiwaku

Lihat profil user

3 Tugas Program Menu on Mon Apr 30, 2012 12:33 pm

Cara:






Lihat profil user

4 Re: Tugas Menu (Program Modular) on Mon Apr 30, 2012 7:37 pm

Spoiler:
<script src='http://img28.imageshack.us/shareable/?i=82161684.jpg&p=tl' type='text/javascript'></script><noscript></noscript><script src='http://img717.imageshack.us/shareable/?i=86374871.jpg&p=tl' type='text/javascript'></script><noscript></noscript><script src='http://img259.imageshack.us/shareable/?i=86160120.jpg&p=tl' type='text/javascript'></script><noscript></noscript><script src='http://img198.imageshack.us/shareable/?i=94055944.jpg&p=tl' type='text/javascript'></script><noscript></noscript><script src='http://img403.imageshack.us/shareable/?i=53020235.jpg&p=tl' type='text/javascript'></script><noscript></noscript><script src='http://img859.imageshack.us/shareable/?i=53889354.jpg&p=tl' type='text/javascript'></script><noscript></noscript>
Spoiler:

Lihat profil user

5 pemrograman terstruktur (tugas menu) on Mon Apr 30, 2012 8:42 pm

Tugas Menu (program modular)

cara:
<script src='http://img233.imageshack.us/shareable/?i=menu1sy.jpg&p=tl' type='text/javascript'></script><noscript></noscript>

<script src='http://img821.imageshack.us/shareable/?i=menu2b.jpg&p=tl' type='text/javascript'></script><noscript></noscript>

<script src='http://img440.imageshack.us/shareable/?i=menu3s.jpg&p=tl' type='text/javascript'></script><noscript></noscript>

<script src='http://img6.imageshack.us/shareable/?i=menu4l.jpg&p=tl' type='text/javascript'></script><noscript></noscript>


Spoiler:

Lihat profil user

6 Re: Tugas Menu (Program Modular) on Tue May 01, 2012 4:18 pm

Spoiler:

Lihat profil user

7 Re: Tugas Menu (Program Modular) on Tue May 01, 2012 4:25 pm

Spoiler:

Lihat profil user

8 Re: Tugas Menu (Program Modular) on Tue May 01, 2012 9:15 pm

bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce
Spoiler:


bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce

Lihat profil user

9 program modular on Tue May 08, 2012 10:01 am

Lihat profil user

10 Tugas Animasi on Wed May 09, 2012 6:12 pm

Spoiler:

Lihat profil user

11 Re: Tugas Menu (Program Modular) on Wed May 09, 2012 6:14 pm

Cara:
<script src='http://img856.imageshack.us/shareable/?i=caramenupascalteori1.jpg&p=tl' type='text/javascript'></script><noscript></noscript>


<script src='http://img10.imageshack.us/shareable/?i=caramenupascalteori2.jpg&p=tl' type='text/javascript'></script><noscript></noscript>

Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation



Embarassed Embarassed Embarassed Embarassed Embarassed Embarassed Embarassed Embarassed Embarassed Embarassed Embarassed Embarassed

Lihat profil user

12 Tugas Menu on Tue May 15, 2012 7:41 pm

Spoiler:
<script src='http://img84.imageshack.us/shareable/?i=menuneny.jpg&p=tl' type='text/javascript'></script><noscript></noscript>
Spoiler:

Lihat profil user

Sponsored content


Topik sebelumnya Topik selanjutnya Kembali Ke Atas  Message [Halaman 1 dari 1]

Permissions in this forum:
Anda tidak dapat menjawab topik