Tugas ini ku buat waktu semester 3 dan sekarang saya mau berbagi tuk teman - teman.,.,
uses crt,dos;
var
angkamenu: integer;
procedure ganjil_genap;
var
a,b :integer;
begin
clrscr;
Gotoxy(29,1);writeln('* Ayo Friend Cepat Tentukan *');
Gotoxy(1,3);write('Masukkan Bilangan Yang Anda Inginkan = ');readln(a);
Gotoxy(3,5);
if a mod 2=0 then
writeln('Angka di atas GENAP kawan...');
begin
if a mod 2=1 then
writeln('Angka di atas GANJIL kawan...');
Gotoxy(29,7);writeln('* Gitu Aja Ko Bingung *');
Gotoxy(47,23); Writeln('* Programmed by : Maizal Alfian *');
Gotoxy(47,24); Writeln(' NPM : 200710225025 ');
readln;
end;
end;
procedure terbesar;
var
a,b,hasil : integer;
begin
clrscr;
Gotoxy(29,1);writeln('Ayo Kita Mulai');
Gotoxy(1,3);write('Masukkan Angka Pertama = ');readln(a);
write('Masukkan Angka Kedua = ');readln(b);
Gotoxy(3,6);
if a>b then
writeln('Angka PERTAMA Terbesar');
begin
if a
writeln('Angka KEDUA Terbesar');
begin
if a=b then
writeln('Angka KEDUA dan PERTAMA Sama-Sama Terbesar');
Gotoxy(47,23); Writeln('* Programmed by : Maizal Alfian *');
Gotoxy(47,24); Writeln(' NPM : 200710225025 ');
readln;
end;
end;
end;
procedure menjumlahkan_dua_bilangan;
var
a,b,hasil : integer;
begin
clrscr;
Gotoxy(25,2); Writeln('Masukan Angka Yang Ingin di Jumlahkan');
Gotoxy(1,4) ; write('Masukkan Angka Pertama = ');readln(a);
write('Masukkan Angka Kedua = ');readln(b);
hasil := a+b;
Gotoxy(30,10); Writeln('HASILNYA = ',hasil);
Gotoxy(47,23); Writeln('* Programmed by : Maizal Alfian *');
Gotoxy(47,24); Writeln(' NPM : 200710225025 ');
readln;
end;
procedure perkalian_dua_bilangan;
var
a,b,hasil : integer;
begin
clrscr;
Gotoxy(25,2); Writeln('Masukan Angka Yang Ingin di Perkalikan');
Gotoxy(1,4) ; write('masukkan angka pertama= ');readln(a);
write('masukkan angka kedua= ');readln(b);
hasil := a*b;
Gotoxy(30,10); writeln('HASILNYA = ',hasil);
Gotoxy(47,23); Writeln('* Programmed by : Maizal Alfian *');
Gotoxy(47,24); Writeln(' NPM : 200710225025 ');
readln;
end;
procedure profile_programer;
begin
clrscr;
Gotoxy(35,2); writeln('Biodata Diriku');
Gotoxy(1,4) ; writeln('* Nama Lengkap : Maizal Alfian');
writeln('* Alamat : Komplek Depnaker. Perum TWA K.21/39,Bekasi Utara');
writeln('* Skul : Universitas Bhayangkara Jakarta Raya');
writeln('* NPM : 2007.10.225.025');
readln;
end;
begin
clrscr;
repeat
clrscr;
textBackGround(4);
TextColor(7);
Gotoxy(29,5); writeln('Welcome to my Program');
Gotoxy(35,15);writeln('TEKAN ENTER');
readln;
clrscr;
Gotoxy(13,4); Writeln('.... D A F T A R P R O G R A M T E R T R U K T U R ....');
Gotoxy(24,7);writeln('TUGAS PEMROGRAMAN TERSTUKTUR');
Gotoxy(22,8);writeln('1. Menentukan Ganjil Genap');
Gotoxy(22,9);writeln('2. Terbesar ');
Gotoxy(22,10);writeln('3. Menjumlahkan 2 Buah Bilangan ');
Gotoxy(22,11);writeln('4. Perkalian 2 Buah Bilangan ');
Gotoxy(22,12);writeln('5. Profile Programer');
Gotoxy(22,13);writeln('6. EXIT');
TextColor(7); TextBackGround(4);
Gotoxy(47,24); Writeln('* Programmed by : Maizal Alfian *');
Gotoxy(47,25); Writeln(' NPM : 200710225025 ');
Gotoxy(19,15);write('Pilih Angka Program Yang Anda Inginkan !!!(1/2/3/4/5/6): ');
readln(angkamenu);
writeln;
case angkamenu of
1:ganjil_genap;
2:terbesar;
3:menjumlahkan_dua_bilangan;
4:perkalian_dua_bilangan;
5:profile_programer;
6:write('EXIT');
end;
until angkamenu=6;
end.
selamat mencoba.,.,.,.
