program campuran(pascal)

program campuran;
uses wincrt;
var
nama,password,user,kode,nma,nim,kls,ttl,almt,email,no_tlp,status,tinggi:string;
aa,bb,cc,dd,ee,ff,gg,hh,m:real;
th,bln,hr,a,b,c,d,e,f,g,h,n,i,j,w,z,x,l,jj,kk,ll,mm,nn,temp:integer;
tujuan,r,s,v:string;
ii,ulang,oo:char;
tabel: Array[1..100,1..100] of Integer;
angkabulan,tahun,jumlahhari:integer;
nilai:real;
indeks:char;
ab,bc,cd,de,ef:string;
k,jumlah : integer;
rata : real;
angka: array[1..100] of integer;
procedure tukar_data;
begin
write('masukkan cairan ab = ');readln(ab);
write('masukkan cairan bc = ');readln(bc);
write('masukkan cairan cd = ');readln(cd);
write('masukkan cairan de = ');readln(de);
clrscr;
writeln;
writeln('== sebelum pertukaran ==');
writeln;
writeln(ab);
writeln(bc);
writeln(cd);
writeln(de);
ef:=ab;
ab:=bc;
bc:=cd;
cd:=de;
de:=ef;
writeln;
writeln;
writeln('== sesudah pertukaran ==');
writeln;
writeln(ab);
writeln(bc);
writeln(cd);
writeln(de);
writeln;
writeln('******* Tekan "Enter" unt Masuk Ke Menu *******');
readln;
end;


procedure login;
begin
gotoxy(15,2);writeln('***** Selamat datang dan silahkan mendaftar *****');
writeln;
write('Masukkan Nama : ');readln(nama);
write('Masukkan Password : ');readln(password);
clrscr;
gotoxy(20,2);writeln('Nama dan password anda telah tersimpan');
gotoxy(16,3);writeln('Masukkan nama dan password untuk masuk program');
writeln;
repeat
write('Nama : '); readln(user);
write('Password : '); readln(kode);
clrscr;
begin
writeln;
if(nama=user)and(password=kode) then
write('SELAMAT ANDA BERHASIL')
else if(nama<>user)and(password=kode)then
write('MAAF NAMA ANDA SALAH')
else if(nama=user)and(password<>kode)then
write('MAAF PASSWORD ANDA SALAH')
else if(nama<>user)and(password<>kode)then
write('MAAF NAMA DAN PASSWORD ANDA SALAH SILAHKAN MENGULANG KEMBALI');
end;
writeln;
writeln;
until(nama=user)and(password=kode);
writeln;
writeln('******* Tekan "Enter" unt Masuk Ke Menu *******');
readln;
end;


procedure biaya_telpon;
begin
gotoxy(20,2);writeln('***** Menghitung Biaya Telpon *****');
writeln;
writeln('Tujuan Telpon:');
writeln;
writeln('>> Lamongan');
writeln('>> Surabaya');
writeln('>> Bandung');
writeln('>> Jakarta');
writeln;
write('Tujuan telpon anda : '); readln(tujuan);
write('Jam awal telpon : ');readln(bb);
write('Jam akhir telpon : ');readln(cc);
write('Menit awal telpon : ');readln(dd);
write('Menit akhir telpon : ');readln(ee);
if (cc=bb) then gg:=ee-dd
else if (cc>bb) then ff:=cc-bb;
gg:=ff*60;
hh:=gg+ee-dd;
clrscr;
if (tujuan='Lamongan') or (tujuan='lamongan') then aa:=hh*100
else if (tujuan='Surabaya') or (tujuan='surabaya') then aa:=hh*500
else if (tujuan='Bandung') or (tujuan='bandung') then aa:=hh*1000
else if (tujuan='Jakarta') or (tujuan='jakarta') then aa:=hh*1200
else writeln ('Tujuan tidak terdaftar');
gotoxy(7,2);writeln('Lama pembicaraan : ', hh:2:0, ' menit');
gotoxy(7,3);writeln('Tujuan telpon : ',tujuan);
gotoxy(7,4);writeln('Biaya yang harus dibayar : Rp ', aa:2:0);
writeln;
writeln('******* Tekan "Enter" unt Masuk Ke Menu *******');
readln;
end;


procedure hari_bulan;
begin
clrscr;
write('bulan (1-12) : ');readln(angkabulan);
write('tahun : ');readln(tahun);
case angkabulan of
1,3,5,7,8,10,12:jumlahhari:=31;
4,6,9,11:jumlahhari:=30;
2:if tahun mod 4=0 then jumlahhari:=28 else jumlahhari:=29;{*endif*}
end;
writeln('jumlah hari dalam bulan ',angkabulan,' pada tahun ',tahun,' adalah =',jumlahhari);
readln;
writeln('******* Tekan "Enter" unt Masuk Ke Menu *******');
readln;
end;

procedure nilai_ujian;
begin
clrscr;
write('masukkan nilai ujian : ');readln(nilai);
if nilai >=81 then
indeks:='A'
else
if (nilai >=71) and (nilai < 81) then
indeks :='B'
else
if (nilai >=61) and (nilai < 71)then
indeks :='C'
else
if (nilai >=51) and (nilai < 61)then
indeks :='D'
else {nilai < 51}
indeks :='E';
writeln('indeks nilai ujian= ',indeks);
writeln;
writeln('******* Tekan "Enter" unt Masuk Ke Menu *******');
readln;
end;

procedure faktorial;
Begin
Writeln('Program Faktorial');
Writeln('=================');
Writeln;
Write('Masukkan Nilai Faktorial: ');Readln(n);
Writeln;
if (n<=0) then
Writeln('Hasil Faktorial: ',1)
else
Begin
x:=1;
For i := 1 to n do
x:=x*i;
Writeln('Hasil Faktorial: ',x);
End;
writeln;
writeln('******* Tekan "Enter" unt Masuk Ke Menu *******');
readln;
End;


procedure nama_bulan;
begin
clrscr;
write('masukkan angka bulan (1-12) : ');readln(angkabulan);
case angkabulan of
1 : writeln ('januari');
2 : writeln ('februari');
3 : writeln ('maret');
4 : writeln ('april');
5 : writeln ('mei');
6 : writeln ('juni');
7 : writeln ('juli');
8 : writeln ('agustus');
9 : writeln ('september');
10 : writeln ('oktober');
11 : writeln ('nopember');
12 : writeln ('desember');
else writeln ('bukan nomor bulan yang benar');
readln;
end;
writeln;
writeln('******* Tekan "Enter" unt Masuk Ke Menu *******');
readln;
end;


Procedure bintang1;
Begin
clrscr;
writeln;
Writeln('Program Menampilkan Bintang');
Writeln('===========================');
Writeln;
Write('Masukkan Jumlah Baris: ');readln(n);
For i:= 1 to n do
Begin
For j:= 1 to i do
Write('*');
readln;
End;
writeln;
writeln('******* Tekan "Enter" unt Masuk Ke Menu *******');
readln;
End;


procedure identitas;
begin
gotoxy(20,2);writeln('***** Identitas Mahasiswa *****');
writeln;
write('NAMA : '); readln(nma);
write('NIM : '); readln(nim);
write('KELAS : '); readln(kls);
write('TTL : '); readln(ttl);
write('ALAMAT : '); readln(almt);
write('E-MAIL : '); readln(email);
write('NO.TELP : '); readln(no_tlp);
write('STATUS : '); readln(status);
write('TINGGI BADAN : '); readln(tinggi);
clrscr;
gotoxy(17,2); writeln('************************************************');
gotoxy(17,3); writeln('* *');
gotoxy(17,4); writeln('* *');
gotoxy(17,5); writeln('* *');
gotoxy(17,6); writeln('* *');
gotoxy(17,7); writeln('* *');
gotoxy(17,8); writeln('* *');
gotoxy(17,9); writeln('* *');
gotoxy(17,10); writeln('* *');
gotoxy(17,11); writeln('* *');
gotoxy(17,12); writeln('************************************************');
gotoxy(19,3); writeln('NAMA : ',nma);
gotoxy(19,4); writeln('NIM : ',nim);
gotoxy(19,5); writeln('KELAS : ',kls);
gotoxy(19,6); writeln('TTL : ',ttl);
gotoxy(19,7); writeln('ALAMAT : ',almt);
gotoxy(19,8); writeln('E-MAIL : ',email);
gotoxy(19,9); writeln('NO.TELP : ',no_tlp);
gotoxy(19,10); writeln('STATUS : ',status);
gotoxy(19,11); writeln('TINGGI BADAN : ',tinggi,' Cm');
writeln;
writeln;
writeln('******* Tekan "Enter" unt Masuk Ke Menu *******');
readln;
end;


procedure uts;
begin
repeat
writeln;
writeln (' JAWABAN UTS ');
writeln ('================================================');
writeln;
writeln (' x x^2 x^3 x^4 ');
writeln ('------------------------------------------------');
for x:= 1 to 10 do
if x=5 then
writeln('Mahasiswa TI UNISLA Harus Bisa, Tapi Inget g Boleh Contoh :-)')
else
writeln(x:3,x*x:12,x*x*x:14,x*x*x*x:14);
writeln ('------------------------------------------------');
writeln;
writeln ('coba lagi (tekan y untuk ulang)'); readln(ulang);
ulang:=upcase(ulang);
clrscr;
until not (ulang in ['Y','y']);
writeln;
writeln('******* Tekan "Enter" unt Masuk Ke Menu *******');
readln;
end;


procedure derajat;
begin
writeln;
writeln (' SOAL TAMBAHAN ');
writeln (' ============================================');
writeln;
writeln (' celcius farenheat ');
writeln (' --------------------------------------------');
for l:= 0 to 5 do
if (l=3) then
else if (l=4) then
writeln (' --------Maaf Tidak Bisa Ditampilkan---------')
else
writeln(l:10,(l*1.8)+32:25:3);
writeln (' ============================================');
writeln('******* Tekan "Enter" unt Masuk Ke Menu *******');
readln;
end;


procedure tebak_angka(x,y:integer);
begin
gotoxy(6,2);writeln('******* Program tebak angka *******');writeln;
write('Masukkan angka1 : ');readln(a);writeln;
repeat
write('Masukkan angka2 : ');readln(b);
begin
if b>a Then
writeln(b,' : Lebih besar')
else If b writeln(b,' : Lebih kecil')
else
writeln(b,' : Selamat Anda Benar');
end;
writeln;
until(a=b);
writeln('******* Tekan "Enter" unt Masuk Ke Menu *******');
readln;
end;


procedure tebak_kata(x,y:string);
begin
gotoxy(7,2);writeln('******* Program tebak kata *******');writeln;
write('Masukkan kata1 : ');readln(r);writeln;
repeat
write('Masukkan kata2 : '); readln(s);
begin
if r<>s Then
writeln(r,' : Salah')
else
writeln(r,' : Benar');
end;
writeln;
until(r=s);
writeln('******* Tekan "Enter" unt Masuk Ke Menu *******');
readln;
end;


procedure tebak_karakter(x,y:integer);
begin
gotoxy(5,2);writeln('******* Program tebak karakter *******');writeln;
write('Masukkan kata : ');readln(v);writeln;
w:=length(v);
repeat
write('Jumlah huruf : ');readln(z);
begin
if z writeln(z,' : Lebih Kecil')
else If z>w Then
writeln(z,' : Lebih besar')
else
writeln(z,' : Lah ini baru benar')
end;
writeln;
until(z=w);
writeln('******* Tekan "Enter" unt Masuk Ke Menu *******');
readln;
end;


function pangkat(x,y:integer):integer;
begin
gotoxy(10,2);writeln('******* Program perpangkatan *******');writeln;
repeat
writeln;
write('Masukkan angka : ');readln(c);writeln;
write('Masukkan pangkat : ');readln(d);
writeln;
begin
e:=1;
for f:=1 to d do
e:=c*e;
end;
writeln('Hasil pangkat dari ',c, '^' ,d,' adalah : ', e);
writeln;
write('Ingin mencoba lagi (tekan y untuk ulang) ');readln(ii);
until not (ii in ['y','Y']);
writeln;
writeln('******* Tekan "Enter" unt Masuk Ke Menu *******');
readln;
end;

procedure rata2;
begin
write('Masukkan banyaknya suku deret : ');
readln(N);
jumlah := 0;
for k := 1 to N do
begin
write('Bilangan ke- ',k,' : ');readln(x);
jumlah := jumlah + x;
end;
rata := jumlah/N;
writeln(rata:2:2);
writeln;
writeln('******* Tekan "Enter" unt Masuk Ke Menu *******');
readln;
end;

procedure sorting;
begin
write('banyak data yang anda mau=');readln(b);
for i:=1 to b do
begin
write('angka ke-', i, ' : ');readln(angka[i]);
end;

for i:=1 to b-1 do
begin
for a:=i+1 to b do
begin
if(angka[a] < angka[i]) then
begin
temp := angka[a];
angka[a] := angka[i];
angka[i] := temp;
end;
end;
end;
writeln('Setelah diurutkan : ');
for i:=1 to b do
begin
writeln('angka ke-', i, ' : ', angka[i]);
end;
writeln;
writeln('******* Tekan "Enter" unt Masuk Ke Menu *******');
readln;
end;

procedure bintang;
procedure bintang2;
begin
for kk:=1 to jj do
begin
writeln;
for nn:=1 to jj-kk do
begin
write(' ');
end;

for mm:=1 to kk do
begin
if mm=jj then
write(' ')
else
write('*');
end;
for mm:=kk-1 downto 1 do
begin
write('*');
end;
end;

begin
for kk:=jj-1 downto 1 do
begin
writeln;
for nn:=1 to jj-kk do
begin
write(' ');
end;

for mm:=1 to kk do
begin
write('*');
end;

for mm:=kk-1 downto 1 do
begin
write('*');
end;
end;
end;
end;

begin
repeat
clrscr;
gotoxy(10,2);writeln('***** Program Tampil Bintang *****' );
writeln;
write('Masukkan panjang sisi : '); readln(ll);
jj:=1+ll div 2;
writeln;
writeln('Hasilnya adalah :');
bintang2;
writeln;
writeln;
write('Ingin mencoba lagi (tekan y untuk ulang) ');readln(oo);
until not (oo in ['y','Y']);
clrscr;
gotoxy(15,2);writeln('***** Suwun Cuy *****');
writeln;
writeln('******* Tekan "Enter" unt Masuk Ke Menu *******');
readln;
end;


procedure tabel2;
begin
clrscr;
gotoxy(8,2);writeln('***** Program Penjumlahan Tabel *****' );
writeln;
write('Masukkan jumlah kolom : ');read(a);
write('Masukkan jumlah baris : ');read(b);
writeln;
writeln('Elemen matrik');
for i := 1 to b Do
begin
for j := 1 to a Do
begin
write('Elemen baris : ',i,' Kolom : ',j,': ');
readln(tabel[i,j]);
end;
end;
clrscr;
for i := 1 to b Do
begin
f:=0;
for j := 1 to a Do
begin
c:=9*j;
d:=2*i;
gotoxy(c,d);write('+========+');
gotoxy(c,d+1);write(': ',tabel[i,j]);
f:=f+tabel[i,j];
end;
gotoxy(9*(j+1),d+1);write(': ',f);
end;
for j:=1 to a do
begin
g:=0;
c:=9*j;
d:=2*(i+1);
for i:=1 to b do
g:=g+tabel[i,j];
gotoxy(c,d);write('+========+');
gotoxy(c,d+1);write(' ',g);
end;
writeln;
writeln;
writeln('******* Tekan "Enter" unt Masuk Ke Menu *******');
readln;
end;


begin
clrscr;
gotoxy(13,1); writeln('|====================================|');
gotoxy(13,2); writeln('| < NAMA KELOMPOK > |');
gotoxy(13,3); writeln('|====================================|');
gotoxy(13,4); writeln('| 1. A. RIZAL MZ NIM.110910092 |');
gotoxy(13,5); writeln('| 2. HADI KHUSNAN NIM.110910117 |');
gotoxy(13,6); writeln('| 3. HUSNI MURTADLO NIM.110910121 |');
gotoxy(13,7); writeln('| 4. KHOIRUDDIN M NIM.110910127 |');
gotoxy(13,8); writeln('| 5. SANDY DWI H NIM.110910151 |');
gotoxy(13,9); writeln('|====================================|');
gotoxy(13,10);writeln('| < KELAS II-B > |');
gotoxy(13,11);writeln('|====================================|');
repeat
writeln;
writeln(' |=============================================================|');
writeln(' | Menu Pilihan : |');
writeln(' |=============================================================|');
writeln(' | 1. | Login | 12.| Tebak kata |');
writeln(' | 2. | Biaya telpon | 13.| Tebak karakter |');
writeln(' | 3. | Jml hari dalam 1 bulan | 14.| Perpangkatan |');
writeln(' | 4. | Identitas Mahasiswa | 15.| Menampilkan Bintang |');
writeln(' | 5. | Jawaban UTS | 16.| Tabel |');
writeln(' | 6. | Perubahan suhu | 17.| Nama bulan |');
writeln(' | 7. | Tebak angka | 18.| Bintang1 |');
writeln(' | 8. | Nilai ujian | 19.| Rata2 |');
writeln(' | 9. | Jml hri dlm 1 blan | 20.| sorting |');
writeln(' | 10.| tukar data | 21.| keluar |');
writeln(' | 11.| faktorial | | |');
writeln(' |=============================================================|');
writeln;
write(' Pilih salah satu menu : ');readln(g);
clrscr;
case g of
1:login;
2:biaya_telpon;
3:hari_bulan;
4:identitas;
5:uts;
6:derajat;
7:tebak_angka(a,b);
8:nilai_ujian;
9:hari_bulan;
10:tukar_data;
11:faktorial;
12:tebak_kata(r,s);
13:tebak_karakter(z,w);
14:pangkat(c,d);
15:bintang;
16:tabel2;
17:nama_bulan;
18:bintang1;
19:rata2;
20:sorting;
end;
clrscr;
until g>20;
gotoxy(17,2);writeln('******* ^_^ Matur Suwun Sanget Nggeh ^_^ *******');
readln;
end.