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


You are not connected. Please login or register

Program Menu

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

1 Program Menu on Mon Apr 02, 2012 10:38 am

admin

avatar
Admin
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,Cool;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,Cool;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,Cool; 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 Tugasku on Mon Apr 02, 2012 11:02 am



Terakhir diubah oleh M.Wahyudii tanggal Mon Apr 09, 2012 9:40 am, total 2 kali diubah

Lihat profil user

3 Program Menu Turbo Pascal on Thu Apr 05, 2012 9:22 am

Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation

Program Menu Turbo Pascal

Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation Exclamation

Cara Arrow Arrow :




Lihat profil user http://uiqaelahh.blogspot.com/

4 tugas menu on Thu Apr 05, 2012 8:45 pm

Embarassed EmbarassedNAMA : DEFIANA WITI TIASIH
NIM : 10020803 Very Happy Very Happy Very Happy Like a Star @ heaven Embarassed :oops
CARA:
[img][/img]

HASIL:

Lihat profil user

5 Re: Program Menu on Fri Apr 06, 2012 1:17 pm

coding:


preview hasil:


Lihat profil user http://romecs.comze.com

6 Re: Program Menu on Fri Apr 06, 2012 7:44 pm

queen queen queen queen queen king king king king king king king king king king king king king king queen queen queen queen queen queen queen
program menu pascal
nama = nofiyanto
Nim= 11010857

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 bounce bounce bounce bounce bounce
Spoiler:





Lihat profil user

7 PROGRAM MENU on Sat Apr 07, 2012 8:02 am

Program Menu Turbo Pascal 1.5
Nama : Fina Rosiyanti
Nim : 11010863
Razz Razz Razz Razz Razz Razz Razz Razz Razz Razz Razz Razz Razz Razz Razz Razz Razz Razz Razz Razz Razz Razz Razz Razz Razz Razz Razz Razz Razz Razz Razz Razz Razz Razz Razz

Basketball Basketball Basketball Basketball Basketball Basketball Basketball Basketball Basketball Basketball Basketball Basketball Basketball Basketball Basketball Basketball Basketball Basketball Basketball
for Program:





bounce bounce bounce bounce bounce bounce bounce PROGRAM MENU MENGGUNAKAN TURBO PASCAL 1.5 bounce bounce bounce bounce bounce bounce bounce
for Hasil:
Sleep Sleep Sleep Sleep Sleep Sleep Sleep Sleep Sleep Sleep Sleep Sleep Sleep Sleep Sleep Sleep Sleep Sleep Sleep Sleep



Terakhir diubah oleh fina yan tanggal Mon Apr 09, 2012 8:56 pm, total 1 kali diubah

Lihat profil user

8 Program Menu on Sat Apr 07, 2012 9:22 pm

Cara:

Hasil:

Lihat profil user

9 herera very on Sun Apr 08, 2012 11:56 am

-H E R E R A V E R Y-


Spoiler:

CARA



Spoiler:

HASIL
lol!

Lihat profil user http://www.facebook.com/Hereraverry#!/

10 tugas membuat program menu on Sun Apr 08, 2012 2:57 pm

cherry santa tugas membuat program menu cherry santa

cara:




Lihat profil user

11 Tugas Program Menu on Sun Apr 08, 2012 5:52 pm

Cara:
[URL=http://imageshack.us/photo/my-images/641/pm3n.jpg/]

Hasil:

Lihat profil user

12 Tugas Program Menu on Sun Apr 08, 2012 9:50 pm

Spoiler:
[url= Uploaded with Smile Smile Smile [url= Uploaded with Razz Razz Razz
alien alien alien



Terakhir diubah oleh M.Hardian tanggal Mon Apr 09, 2012 9:19 am, total 1 kali diubah

Lihat profil user

13 tugas program menu m.rovvi faila shuf on Sun Apr 08, 2012 11:25 pm

Idea Idea Idea Idea Idea Idea Idea Idea Idea
video:

image:

sunny sunny study study study

Very Happy Very Happy Very Happy Very Happy Very Happy Very Happy Very Happy Very Happy Very Happy

Lihat profil user

14 Tugas Menu on Sun Apr 08, 2012 11:42 pm

lol! bounce cheers TUGAZ PROGRAM MENU cheers bounce lol!

cheers Muhammad Muaffan Iqbalulwahid cheers

CARA:













HASIL:

Lihat profil user

15 Re: Program Menu on Mon Apr 09, 2012 12:30 am

Nama : Indra Saputra
NIM : 10010819



Program Klik disini:

Hasil Program Klik disini:

Lihat profil user http://yonikiblogindra.blogspot.com

16 Re: Program Menu on Mon Apr 09, 2012 8:01 am

Spoiler:
cara:




hasil:

Lihat profil user

17 Re: Program Menu on Mon Apr 09, 2012 8:25 am









Lihat profil user

18 program menu on Mon Apr 09, 2012 9:24 am

HASIL:
PROGRAM:

Lihat profil user

19 Re: Program Menu on Mon Apr 09, 2012 10:25 am

Program:





Hasil:

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