Pemograman Terstruktur dengan Turbo Pascal

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