Tugas Pemrograman komputer 1

G.SOAL-SOAL TUGAS

1.LUAS DAN KELILING PERSEGI PANJANG
program luas_dan_keliling_persegipanjang;
uses wincrt;
var p,l,Lp,K:integer;
begin
write('masukkan panjang= ');readln(p);
write('masukkan lebar= ');readln(l);
Lp:=p*l;
K:=2*(p+l);
writeln('luas= ',Lp);
writeln('keliling= ',K);
end.

2.VOLUME DAN LUAS PERMUKAAN KUBUS
program volume_dan_luaspermukaan_kubus;
uses wincrt;
var s,L,V:integer;
begin
write('masukkan panjang sisi kubus=');read(s);
L:=s*s*6;
V:=s*s*s;
writeln('jadi luas permukaan kubusnya adalah=',L);
write('jadi volume kubusnya aadalah=',V);
end.
3.LUAS DAN KELILING LINGKARAN
program luas_dan_kelilinglingkaran;
uses wincrt;
const phi=3.14;
var r,L,K:real;
begin
write('masukkan jari-jari lingkaran=');read(r);
L:=phi*r*r;
K:=2*phi*r;
writeln('jadi luas lingkaran adalah=',L:0:2);
write('jadi keliling lingkaran adalah=',K:0:2);
end.

4.MEMPERTUKARKAN NILAI A DAN NILAI B
program mempertukarkan_nilaiA_dan_B;
uses wincrt ;
var
a,b,c:integer;
begin
write('masukkan nilai a=');
read(a);
write('masukkan nilai b=');
read(b);
c:=a;
a:=b;
b:=c;
writeln('stelah ditukar');
writeln('sekarang nilai a=',a);
writeln('sekarang nilai b=',b);
end.

5.PERMUKAAN TABUNG DAN KERUCUT
program permukaan_tabung_dan_kerucut;
uses wincrt;
const phi=3.14;
var rt,tt,Lt,s,rk,tk,Lk:real;
begin
write('masukkan jari-jari alas tabung=');read(rt);
write('masukkan tinggi tabung=');read(tt);
Lt:=(2*phi*rt*rt)+(2*phi*rt*tt);
writeln('luas permukaan tabung=',Lt);
write('masukkan jari-jari alas kerucut=');read(rk);
write('masukkan tinggi kerucut=');read(tk);
s:=sqrt((tk*tk)+(rk*rk));
Lk:=(phi*rk*rk)+(rk*phi*s);
write('luas permukaan kerucut=',Lk);
end.

6.OPERASI BILANGAN
program operasi_bilangan;
uses wincrt;
var a,b,c,d,e,g,h:integer;
f:real;
begin
write('masukkan nilai a=');readln(a);
write('masukkan nilai b=');readln(b);
c:=a+b;
d:=a-b;
e:=a*b;
f:=a/b;
g:=a div b;
h:=a mod b;
writeln('nilai a+b adalah=',c);
writeln('nilai a-b adalah=',d);
writeln('nilai a*b adalah=',e);
writeln('nilai a/b adalah=',f:0:2);
writeln('nilai a div b adalah=',g);
writeln('nilai a mod b adalah=',h);
end.

7.GAJI KARYAWAN
program gaji_karyawan;
uses wincrt;
var
nama:string;
gp,ti,ta,pajak,gs,gt:real;
begin
write('masukkan nama=');readln(nama);
write('masukkan gaji pokok=');readln(gp);
ti:=0.15*gp;
ta:=0.20*gp;
gs:=gp+ti+ta;
pajak:=0.15*gs;
gt:=gs-pajak;
writeln('tunjangan istri adalah=',ti:0:2);
writeln('tunjangan anak adalah=',ta:0:2);
writeln('gaji keseluruhan adalah=',gt:0:2);
end.

8.KOORDINAT TITIK TENGAH
program koordinat_titiktengah;
uses wincrt;
var x1,x2,y1,y2,xt,yt:real;
begin
writeln('masukkan nilai x1 dan y1=');
write('x1=');read(x1);
write('y1=');read(y1);
writeln('masukkan x2 dan y2=');
write('x2=');read(x2);
write('y2=');read(y2);
xt:=(x1+x2)/2;
yt:=(y1+y2)/2;
write('jadi titik tengahnya adalah=(',xt:0:2,',',yt:0:2,')');
end.

9.KONVERSI JAM KE DETIK
program konversi_jam_kedetik;
uses wincrt;
var
jam,menit,detik,total_detik:integer;
begin
write('masukkan jam=');read(jam);
write('masukkan menit=');read(menit);
write('masukkan detik=');read(detik);
total_detik:=(jam*3600)+(menit*60)+detik;
writeln('total detiknya adalah=',total_detik);
end.

10.KONVERSI DETIK KE JAM
program konversi_detik_kejam;
uses wincrt;
var
jam,detik,menit:longint;
begin
write('masukkan detik=');read(detik);
jam:=detik div 3600;
detik:=detik mod 3600;
menit:=detik div 60;
detik:=detik mod 60;
write('jadi jamnya adalah=',jam,'jam,',menit,'menit,',detik,'detik');
end.

11.LAMANYA TELEPON
program lamanya_telepon;
uses wincrt;
var
jam1,menit1,detik1,jam2,menit2,detik2,detik_awal,detik_akhir,lamanya:integer;
begin
write('masukkan jam awal=');read(jam1);
write('masukkan menit awal=');read(menit1);
write('masukkan detik awal=');read(detik1);
write('masukkan jam akhir=');read(jam2);
write('masukkan menit akhir=');read(menit2);
write('masukkan detik akhir=');read(detik2);
detik_awal:=(jam1*3600)+(menit1*60)+detik1;
detik_akhir:=(jam2*3600)+(menit2*60)+detik2;
lamanya:=detik_akhir-detik_awal;
writeln('lamanya telepon dalam detik adalah=',lamanya);
end.

12.BIAYA TELEPON
program biaya_telepon;
uses wincrt;
var j1,j2,m1,m2,d1,d2,x,y,lam,p,b:integer;
begin
write('jam mulai=');readln(j1);
write('menit mulai=');readln(m1);
write('detik mulai=');readln(d1);
write('jam akhir=');readln(j2);
write('menit akhir=');readln(m2);
write('detik akhir=');readln(d2);
x:=(j1*3600)+(m1*60)+d1;
y:=(j2*3600)+(m2*60)+d2;
lam:=y-x;
writeln('lamanya dlm detik=',lam);
p:=lam div 5;
b:=p*200;
writeln('biayanya adalah=',b);
end.
13.SUHU
program suhu;
uses wincrt;
var
C,K,F:real;
begin
write('masukkan nilai celcius=');read(C);
K:=C+273;
F:=(9/5*C)+32;
writeln('jadi nilai kelvin adalah=',K:0:2);
writeln('jadi nilai fahrenhet adalah=',F:0:2);
end.

14.UMUR SESEORANG
program umur_seseorang;
uses wincrt;
var d1,m1,y1,d2,m2,y2,h,i,j,k,l:integer;
begin
write('masukkan tanggal lahir=');readln(d1,m1,y1);
write('masukkan tanggal sekarang=');readln(d2,m2,y2);
h:=(y2-y1)*365+(m2-m1)*30+(d2-d1);
i:=h div 365;
j:=h mod 365;
k:=j div 30;
l:=j mod 30;
writeln('umur sekarang=',i,' tahun ',k,' bulan ',l,' hari');
end.