lanjutan tugas

program prosedur;
uses wincrt;
procedure penjumlahan;
var
a,b,c:integer;
begin
write('nilai pertama ');readln(a);
write('nilai kedua ');readln(b);
c:=a+b;
writeln('hasil penjumlahannya ',c);
end;

procedure pengurangan;
var
a,b,c:integer;
begin
write('nilai pertama ');readln(a);
write('nilai kedua ');readln(b);
c:=a-b;
writeln('hasil pengurangannya ',c);
end;

procedure perkalian;
var
a,b,c:integer;
begin
write('nilai pertama ');readln(a);
write('nilai kedua ');readln(b);
c:=a*b;
writeln('hasil perkaliannya ',c);
end;


var
x:integer;
begin
writeln('pilih yang mana? ');
writeln('1=penjumlahan');
writeln('2=pengurangan');
writeln('3=perkalian');
readln(x);
if x=1 then
begin
penjumlahan;
end else;
if x=2 then
begin
pengurangan;
end else;
if x=3 then
begin
perkalian;
end;


end.

program penambahan_matriks;
uses wincrt;
type larik=array [1..10,1..10] of integer;
var i,j,k,m,n:integer;
a,b,c:larik;
begin
write('baris matriks pertama/baris matriks kedua = ');readln(m);
write('kolom matriks pertama/kolom matriks kedua = ');readln(n);
clrscr;
writeln('nilai komponen matriks pertama = ');
for i:=1 to m do
begin
for j:=1 to n do
begin
write('nilai[',i,',',j,']?');readln(a[i,j]);
end;
writeln;
end;
clrscr;
writeln('nilai komponen matriks kedua = ');
for i:=1 to m do
begin
for j:=1 to n do
begin
write('nilai[',i,',',j,']?');readln(b[i,j]);
end;
writeln;
end;
clrscr;
for i:=1 to m do
begin
for j:=1 to n do
begin
for i:=1 to n do
c[i,j]:=a[i,j]+b[i,j];
end;
end;
writeln('hasil penambahan matriks');
writeln;
for i:=1 to m do
begin
for j:=1 to n do

write(c[i,j]:9);
writeln;
end;
end.


program menu;
uses wincrt;
var
a:integer;
lagi:char;
begin
lagi:='Y';
while lagi = 'Y' do
begin
gotoxy(10,3);write('Menu makanan');
gotoxy(10,5);write('1. Ayam Bakar');
gotoxy(10,6);write('2. Nasi Goreng');
gotoxy(10,7);write('3. Pecel Lele');
gotoxy(10,8);write('4. Roti Bakar');
gotoxy(10,10);write('Menu Pilihan Anda adalah ');
readln(a);
if a=1 then
begin
clrscr;
gotoxy(10,5);write('Pilihan Anda Ayam Bakar');
gotoxy(10,6);write('Selamat Menikmati');
end
else if a=2 then
begin
clrscr;
gotoxy(10,5);write('Pilihan Anda Nasi Goreng');
gotoxy(10,6);write('Selamat Menikmati');
end
else if a=3 then
begin
clrscr;
gotoxy(10,5);write('Pilihan Anda Pecel Lele');
gotoxy(10,6);write('Selamat Menikmati');
end
else if a=4 then
begin
clrscr;
gotoxy(10,5);write('Pilihan Anda Roti Bakar');
gotoxy(10,6);write('Selamat Menikmati');
end;

gotoxy(10,15);write('Mau diulang lagi (Y/T)? ');readln(lagi);
end;
end.

Program Luas_Persegi_panjang_dan_Kelilingnya;
Uses wincrt;
Var
p,l,luas,kell:real;
begin
write(‘masukkan panjang = ’);readln(p);
write(’masukkan lebar = ’);readln(l);
luas:=p*l;
kell:=2*(p+l);
writeln(‘Luas =’,luas:10:2);
writeln(’Keliling =’,kell:10:2);
end.

Program Mempertukarkan_Nilai;
Uses wincrt;
Var
A:integer;
B:integer;
C:integer;
Begin
Write(’masukkan nilai A = ’);readln(A);
Write(’masukkan nilai B = ’);readln(B);
C:=A;
A:=B;
B:=C;
Writeln(‘A = ‘,A);
Writeln(‘B = ‘,B);
End.


Program konversi_Jam_ke_Detik;
Uses wincrt;
Var
Jam,detik:real;
Begin
Write(‘masukkan jam :’);readln(jam);
Detik:=jam*3600;
Writeln(‘detik=’,detik:10:2);
End.

Program Durasi_Telepon;
Uses Wincrt;
Var
J1,m1,d1,j2,m2,d2,j,m,d,sisa,durasi:integer;
Begin
Write (’waktu mulai ’);read(j1,m1,d1);
Write (’waktu selesai ’);read(j2,m2,d2);
Durasi:=(j2-j1)*3600+(m2-m1)*60+(d2-d1);
j:=durasi div 3600;
sisa:=durasi mod 3600;
m:=sisa div 60;
d:=sisa mod 60;
writeln(’durasi jam ’,j);
writeln(’durasi menit ’,m);
writeln(’durasi detik ’,d);
end.

Program konversi_suhu;
Uses wincrt;
Var
c,k:integer;
f:=real;
begin
write(‘masukkan suhu dalam Celcius ’);readln(c);
f:=(9/5*c)+32;
k:=c+273;
writeln(‘Suhu dalam Fahrenheit ‘,f:5:2);
writeln(‘Suhu dalam Kelvin ‘,k:5:2);
end.


Program Bilangan-Positif_Negatif_Netral;
Uses wincrt;
Var
Bil:integer;
Begin
Write(’masukkan bilangan’);readln(Bil);
If Bil>0 then
Write(’Bilangan positif’) else
If bil=0 then
Write(‘Bilangan netral’) else
Write(‘Bilangan negatif’);
End.

Program Nilai_Terbesar;
Uses wincrt;
Var
a,b,c:longint;
begin
write(‘masukkan 1 :’)read(a);
write(‘masukkan 2 :’)read(b);
write(‘masukkan 3 :’)read(c);
if(a>b)and(a>c) then write(a);
if(b>a)and(b>c) then write(a);
if(c>a)and(c>b) then write(a);
end.

Program Terbilang;
Uses wincrt;
Var
a,b,c:longint;
begin
write(‘masukkan angka ‘);readln(a);
b:=a div 10;
c:=a mod 10;
writeln;
begin
if(b=1)and(c=0);then write(‘sepuluh’);
if(b=1)and(c=1);then write(‘sebelas’);
if(b=1)and(c=2);then write(‘dua belas’);
if(b=1)and(c=3);then write(‘tiga belas’);
if(b=1)and(c=4);then write(‘empat belas);
if(b=1)and(c=5);then write(‘lima belas);
if(b=1)and(c=6);then write(‘enam belas);
if(b=1)and(c=7);then write(‘tujuh belas’);
if(b=1)and(c=8);then write(‘delapan belas’);
if(b=1)and(c=9);then write(‘sembilanbelas’);
begin
if(b=0)and(c=1)then write(‘satu’);
if(b=0)and(c=2)then write(‘dua’);
if(b=0)and(c=3)then write(‘tiga’);
if(b=0)and(c=4)then write(‘empat’);
if(b=0)and(c=5)then write(‘lima’);
if(b=0)and(c=6)then write(‘enam’);
if(b=0)and(c=7)then write(‘tujuh’);
if(b=0)and(c=8)then write(‘delapan’);
if(b=0)and(c=9)then write(‘sembilan’);
end;
case b of
2:write(‘dua puluh’);
3:write(‘tiga puluh’);
4: write(‘empat puluh’);
5:write(‘lima puluh’);
6:write(‘enam puluh’);
7:write(‘tujuh puluh’);
8:write(‘delapan puluh’);
9:write(‘sembilan puluh’);
End;
If b>1 then
Case c of
1:write(‘satu’);
2:write(‘dua‘);
3:write(‘tiga’);
4: write(‘empat’);
5:write(‘lima’);
6:write(‘enam’);
7:write(‘tujuh’);
8:write(‘delapan’);
9:write(‘sembilan’);
End;
End;
End.









Program function_faktorial;
uses wincrt;
function faktorial(a:integer):longint;
begin
if(a=1) then
faktorial:=1
else
faktorial:=a*faktorial(a-1);
end;
var
x:integer;
begin
writeln(‘Faktorial’);
write(‘Berapa faktorial: ‘);readln(x);
writeln(x, ‘!’, ‘=’ ,faktorial(x));
readln;
end.