tugas akhir prokom

Nama Kelompok:
1)Rischa Yuliawati (4101408057)
2)Ratih Indriati (4101408083)
Rombel: 05
LUAS DAN KELILING
Program Menghitung_Luas_dan_Keliling_Persegi_Panjang;
Uses Wincrt;
Var
p,l,Luas,Keliling:real;
Begin
Write ('Masukkan ukuran panjang Persegi Panjang=');read (p);
Write ('Masukkan ukuran lebar Persegi Panjang=');read (l);
Luas:=p*l;
Keliling:=2*(p+l);
Write ('Luas Persegi Panjang adalah ');write ((Luas):5:2);
Write ('Keliling Persegi Panjang adalah ');write ((Keliling):5:2)
End.
Program Menghitung_Luas_dan_Keliling_Lingkaran;
Uses Wincrt;
Const
Phi=3.14;
Var
r,Luas,Keliling:real;
Begin
Write ('Masukkan ukuran Jari-jari Lingkaran=');readln (r);
Luas:=Phi*r*r;
Keliling:=2*Phi*r;
Write ('Luas Lingkaran adalah ');writeln ((Luas):5:2);
Write ('Keliling Lingkaran adalah ');writeln ((Keliling):5:2);
End.

VOLUME DAN LUAS PERMUKAAN
Program Menghitung_Volum_dan_Luas_Permukaan_Kubus;
Uses Wincrt;
Var
s,Volum,Luas_Permukaan:real;
Begin
Write ('Masukkan ukuran rusuk Kubus=');readln (s);
Volum:=s*s*s;
Luas_Permukaan:=6*s*s;
Write ('Volum Kubus adalah ');writeln ((Volum):5:2);
Write ('Luas Permukaan Kubus adalah ');writeln ((Luas_Permukaan):5:2);
End.
Program Menghitung_Luas_Permukaan_Tabung_dan_Kerucut;
Uses Wincrt;
Const
Phi=3.14;
Var
rt,tt,rk,tk,s,Luas_Permukaan_Tabung,Luas_Permukaan_Kerucut:real;
Begin
Write ('Masukkan ukuran Jari-jari Tabung=');readln (rt);
Write ('Masukkan ukuran Tinggi Tabung=');readln (tt);
Write ('Masukkan ukuran Jari-jari Kerucut=');readln (rk);
Write ('Masukkan ukuran Tinggi Kerucut=');readln (tk);
Luas_Permukaan_Tabung:=2*Phi*rt*(rt+tt);
s:=sqrt((tk*tk)+(rk*rk));
Luas_Permukaan_Kerucut:=Phi*rk*(rk+s);
Writeln ('Luas Permukaan Tabung adalah ',(Luas_Permukaan_Tabung):5:2);
Writeln ('Luas Permukaan Kerucut adalah ',(Luas_Permukaan_Kerucut):5:2);
End.
OPERASI HITUNG
Program Operasi_Tambah_Kurang_Kali_Bagi_Div_Mod;
Uses Wincrt;
Var
a,b:longint;
c,d,e,f,g,h:real;
Begin
Write ('Masukkan bilangan pertama=');readln (a);
Write ('Masukkan bilangan kedua=');readln (b);
c:=a+b;
d:=a-b;
e:=a*b;
f:=a/b;
g:=a div b;
h:=a mod b;
Writeln ('Hasil Penjumlahan adalah ',(c):5:0);
Writeln ('Hasil Pengurangan adalah ',(d):5:0);
Writeln ('Hasil Perkalian adalah ',(e):5:0);
Writeln ('Hasil Pembagian adalah ',(f):5:2);
Writeln ('Hasil Pembaian Bulat adalah ',(g):5:0);
Writeln ('Sisa Hasil Pembagian adalah ',(h):5:0);
End.
HITUNG GAJI
Program Menghitung_Gaji_Karyawan;
Uses Wincrt;
Var
Nama_Karyawan:string;
Gaji_Pokok:real;
Jumlah_Anak:longint;
Tunjangan_Istri,Tunjangan_anak,Gaji_Keseluruhan,Pajak,Gaji_Akhir:real;
Begin
Write ('Masukkan Nama Karyawan: ');readln (Nama_Karyawan);
Write ('Masukkan Gaji Pokok=Rp ');readln (Gaji_Pokok);
Write ('Masukkan Jumlah anak= ');readln (Jumlah_Anak);
Tunjangan_Istri:=0.15*Gaji_Pokok;
Tunjangan_Anak:=Jumlah_Anak*0.20*Gaji_Pokok;
Gaji_Keseluruhan:=Gaji_Pokok+Tunjangan_Istri+Tunjangan_Anak;
Pajak:=0.15*Gaji_Keseluruhan;
Gaji_Akhir:=Gaji_Keseluruhan-Pajak;
Writeln ('Tunjangan Istri =Rp ',(Tunjangan_Istri):15:2);
Writeln ('Tunjangan anak =Rp ',(Tunjangan_Anak):15:2);
Writeln ('Gaji Keseluruhan =Rp ',(Gaji_Keseluruhan):15:2);
Writeln ('Pajak =Rp ',(Pajak):15:2);
Writeln ('Gaji Akhir =Rp ',(Gaji_Akhir):15:2);
End.
TITIK TENGAH DUA TITIK
Program Menghitung_Koordinat_Titik_Tengah_Dua_Titik;
Uses Wincrt;
Var
x1,y1,x2,y2,x,y:real;
Begin
Write ('Masukkan nilai x1: ');readln (x1);
Write ('Masukkan nilai y1: ');readln (y1);
Write ('Masukkan nilai x2: ');readln (x2);
Write ('Masukkan nilai y2: ');readln (y2);
x:=(1/2)*(x1+x2);
y:=(1/2)*(y1+y2);
Writeln ('Koordinat titik tengah=(x,y)= ',('('),(x):5:2,(','),(y):5:2,(')'));
End.
KONVERSI JAM-DETIK
Program Konversi_Jam_ke_Detik;
Uses Wincrt;
Var
hh,mm,ss,Total_Detik:longint;
Begin
Write ('Jam = ');readln (hh);
Write ('Menit= ');readln (mm);
Write ('Detik= ');readln (ss);
Total_Detik:=(hh*3600)+(mm*60)+ss;
Writeln ('Waktu dalam detik adalah ',Total_Detik);
End.
KONVERSI DETIK-JAM
Program Konversi_Detik_ke_Jam;
Uses Wincrt;
Type Jam = record
hh:longint;
mm:longint;
ss:longint;
end;
Var
J:Jam;
Total_Detik:longint;
Begin
Write ('Total Detik= ');readln (Total_Detik);
J.hh:=Total_detik div 3600;
J.mm:=(Total_detik mod 3600) div 60;
J.ss:=(Total_detik mod 3600) mod 60;
Writeln ('Waktu dalam Jam adalah ',J.hh,(' jam, '),J.mm,(' menit, '),J.ss,(' detik'));
End.
LAMA TELEPON
Program Menghitung_Lama_Waktu_Telepon_dalam_Detik;
Uses Wincrt;
Type Jam = record
hh:real;
mm:real;
ss:real;
end;
Var
J1,J2:Jam;
Total_Detik:real;
Begin
Writeln ('Waktu mulai telepon:');
Write ('Jam =');read (J1.hh);
Write ('Menit=');read (J1.mm);
Write ('Detik=');read (J1.ss);
Writeln ('Waktu selesai telepon:');
Write ('Jam =');read (J2.hh);
Write ('Menit=');read (J2.mm);
Write ('Detik=');read (J2.ss);
Total_Detik:=(J2.hh-J1.hh)*3600+(J2.mm-J1.mm)*60+(J2.ss-J1.ss);
Writeln ('Lama Waktu Telepon dalam Detik adalah ',(Total_Detik):2:0, (' detik.'));
End.
Program Menghitung_Lama_Waktu_Telepon_dalam_Detik;
Uses Wincrt;
Var
hh1,mm1,ss1,hh2,mm2,ss2,Total_Detik:real;
Begin
Writeln ('Waktu mulai telepon:');
Write ('Jam =');read (hh1);
Write ('Menit=');read (mm1);
Write ('Detik=');read (ss1);
Writeln ('Waktu selesai telepon:');
Write ('Jam =');read (hh2);
Write ('Menit=');read (mm2);
Write ('Detik=');read (ss2);
Total_Detik:=(hh2-hh1)*3600+(mm2-mm1)*60+(ss2-ss1);
Writeln ('Lama Waktu Telepon dalam Detik adalah ',(Total_Detik):2:0, (' detik.'));
End.
BIAYA TELEPON
Program Menghitung_Biaya_Telepon;
Uses Wincrt;
Var
hh1,mm1,ss1,hh2,mm2,ss2,Total_Detik,Biaya_Telepon:longint;
Begin
Writeln ('Waktu mulai telepon:');
Write ('Jam =');read (hh1);
Write ('Menit=');read (mm1);
Write ('Detik=');read (ss1);
Writeln ('Waktu selesai telepon:');
Write ('Jam =');read (hh2);
Write ('Menit=');read (mm2);
Write ('Detik=');read (ss2);
Total_Detik:=(hh2-hh1)*3600+(mm2-mm1)*60+(ss2-ss1);
Biaya_Telepon:=(Total_Detik div 5)*200;
Writeln ('Lama Waktu Telepon dalam Detik adalah ',(Total_Detik), (' detik.'));
Writeln ('Biaya Telepon adalah Rp ',Biaya_Telepon);
End.
Program Menghitung_Biaya_Telepon;
Uses Wincrt;
Type Jam = record
hh:longint;
mm:longint;
ss:longint;
end;
Var
J1,J2:Jam;
Total_Detik:longint;
Biaya_Telepon:longint;
Begin
Writeln ('Waktu mulai telepon:');
Write ('Jam =');read (J1.hh);
Write ('Menit=');read (J1.mm);
Write ('Detik=');read (J1.ss);
Writeln ('Waktu selesai telepon:');
Write ('Jam =');read (J2.hh);
Write ('Menit=');read (J2.mm);
Write ('Detik=');read (J2.ss);
Total_Detik:=(J2.hh-J1.hh)*3600+(J2.mm-J1.mm)*60+(J2.ss-J1.ss);
Biaya_Telepon:=(Total_Detik div 5)*200;
Writeln ('Lama Waktu Telepon dalam Detik adalah ',(Total_Detik), (' detik.'));
Writeln ('Biaya Telepon adalah Rp ',Biaya_Telepon);
End.
KONVERSI SUHU
Program Konversi_Suhu;
Uses Wincrt;
Var
C,K,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 Konversi_Suhu;
uses wincrt;
var
a:real;
b,c,d:real;
begin
write ('Masukkan suhu dalam Celcius=');readln(a);
b:=(5/9*a)+32;
c:=(4/5*a);
d:=a+273;
writeln ('Suhu dalam Fahrenheit=',(b):5:2);
writeln ('Suhu dalam Reamur=',(c):5:2);
writeln ('Suhu dalam Kelvin=',(d):5:2);
end.
UMUR
Program Menghitung_Umur_Seseorang;
Uses Wincrt;
Var
yy1,yy2,mm1,mm2,dd1,dd2,Total_Hari,Umur_Tahun,Umur_Bulan,Umur_Hari:longint;
Begin
Writeln ('Masukkan Tanggal Sekarang:');
Write ('Tanggal=');read (dd1);
Write ('Bulan =');read (mm1);
Write ('Tahun =');read (yy1);
Writeln ('Masukkan Tanggal Lahir:');
Write ('Tanggal=');read (dd2);
Write ('Bulan =');read (mm2);
Write ('Tahun =');read (yy2);
Total_Hari:=(yy1-yy2)*365+(mm1-mm2)*30+(dd1-dd2);
Umur_Tahun:=Total_Hari div 365;
Umur_Bulan:=(Total_Hari mod 365) div 30;
Umur_Hari:=(Total_Hari mod 365) mod 30;
Writeln ('Umur Anda Sekarang adalah ',(Umur_Tahun),(' tahun,'),(Umur_Bulan),(' bulan,'),(Umur_Hari),(' hari.'));
End.
Program Menghitung_Umur_Seseorang;
Uses Wincrt;
Type Tahun = record
yy:longint;
mm:longint;
dd:longint;
end;
Var
T1,T2:Tahun;
Total_Hari,Umur_Tahun,Umur_Bulan,Umur_Hari:longint;
Begin
Writeln ('Masukkan Tanggal Sekarang:');
Write ('Tanggal=');read (T1.dd);
Write ('Bulan =');read (T1.mm);
Write ('Tahun =');read (T1.yy);
Writeln ('Masukkan Tanggal Lahir:');
Write ('Tanggal=');read (T2.dd);
Write ('Bulan =');read (T2.mm);
Write ('Tahun =');read (T2.yy);
Total_Hari:=(T1.yy-T2.yy)*365+(T1.mm-T2.mm)*30+(T1.dd-T2.dd);
Umur_Tahun:=Total_Hari div 365;
Umur_Bulan:=(Total_Hari mod 365) div 30;
Umur_Hari:=(Total_Hari mod 365) mod 30;
Writeln ('Umur Anda Sekarang adalah ',(Umur_Tahun),(' tahun,'),(Umur_Bulan),(' bulan,'),(Umur_Hari),(' Hari.'));
End.
Program Menampilkan_Bilangan_Genap;
Uses Wincrt;
Var
x,angka_awal:longint;
Begin
angka_awal:=2;
Repeat
Write (angka_awal,' ');
angka_awal:=angka_awal+2;
Until angka_awal>50
End.
MENU CASE OF
Program Menu_Makan_Hari_Ini;
Uses Wincrt;
Var
a:integer;
Begin
Gotoxy (28,3); Writeln ('Menu Makan Hari Ini');
Gotoxy (25,4); Writeln ('=========================');
Gotoxy (25,6); Writeln ('1. Nasi Uduk');
Gotoxy (25,7); Writeln ('2. Nasi Jamblang');
Gotoxy (25,8); Writeln ('3. Nasi Goreng');
Gotoxy (25,9); Writeln ('4. Nasi Gudeg');
Gotoxy (25,10); Writeln ('5. Nasi Padang');
Gotoxy (25,11); Writeln ('6. Nasi Rames');
Gotoxy (25,13); Write ('Masukkan Pilihan Anda: ');readln (a);
Clrscr;
Gotoxy (20,7);
Case a of
1: Begin
Writeln ('Menu yang Anda pilih adalah Nasi Uduk.');
Gotoxy (20,8); Writeln ('Selamat Menikmati, Semoga Anda Puas.');
End;
2: Begin
Writeln ('Menu yang Anda pilih adalah Nasi Jamblang.');
Gotoxy (20,8); Writeln ('Selamat Menikmati, Semoga Anda Puas.');
End;
3: Begin
Writeln ('Menu yang Anda pilih adalah Nasi Goreng.');
Gotoxy (20,8); Writeln ('Selamat Menikmati, Semoga Anda Puas.');
End;
4: Begin
Writeln ('Menu yang Anda pilih adalah Nasi Gudeg.');
Gotoxy (20,8); Writeln ('Selamat Menikmati, Semoga Anda Puas.');
End;
5: Begin
Writeln ('Menu yang Anda pilih adalah Nasi Padang.');
Gotoxy (20,8); Writeln ('Selamat Menikmati, Semoga Anda Puas.');
End;
6: Begin
Writeln ('Menu yang Anda pilih adalah Nasi Rames.');
Gotoxy (20,8); Writeln ('Selamat Menikmati, Semoga Anda Puas.');
End;
else Writeln ('Pilihan Anda Salah');
End;
End.

FOR DO
Program For_to_do;
Uses Wincrt;
Var
a:longint;
Begin
For a:=1 to 5 do
Writeln (a,' . Pemrograman Komputer');
End.
REPEAT UNTIL
Program Repeat_until;
Uses Wincrt;
Var
a:longint;
Begin
a:=0;
a:=a+1;
Writeln (a,' . Pemrograman Komputer');
Until a>4;
End.
WHILE DO
Program While_do;
Uses Wincrt;
Var
a:longint;
Begin
a:=0;
While a<5>bilangan_akhir;
Writeln ('=',jumlah);
End.
Program Penjumlahan_Deret_Bilangan_Bulat;
Uses Wincrt;
Var
bilangan_awal,bilangan_akhir,bilangan_setelah_awal,bilangan_penolong1,bilangan_penolong2:longint;
jumlah1,jumlah2,jumlah_akhir:longint;
Begin
Write ('Masukkan bilangan awal yang diinginkan = '); readln (bilangan_awal);
Write ('Masukkan bilangan akhir yang diinginkan = '); readln (bilangan_akhir);
If bilangan_akhir=bilangan_awal then write (bilangan_awal)
else begin
jumlah_akhir:=0;
jumlah1:=0;
jumlah2:=0;
bilangan_setelah_awal:=bilangan_awal+1;
bilangan_penolong1:=0;
bilangan_penolong2:=0;
Write (bilangan_awal);
Repeat
jumlah2:=jumlah2+bilangan_penolong2;
bilangan_penolong2:=bilangan_penolong2+1;
Until bilangan_penolong2>=bilangan_awal;
Repeat
jumlah1:=jumlah1+bilangan_penolong1;
bilangan_penolong1:=bilangan_penolong1+1;
Until bilangan_penolong1>bilangan_akhir;
Repeat
Write (' + ',bilangan_setelah_awal);
bilangan_setelah_awal:=bilangan_setelah_awal+1;
jumlah_akhir:=jumlah1-jumlah2;
Until bilangan_setelah_awal>bilangan_akhir;
Write (' = ',jumlah_akhir);
end
End.
Program Penjumlahan_Deret_Bilangan_Bulat_1_Sampai_n;
Uses Wincrt;
Var
bilangan_akhir,bilangan_awal,bilangan_setelah_awal,jumlah:longint;
Begin
Write ('Masukkan bilangan akhir yang diinginkan = '); readln (bilangan_akhir);
If bilangan_akhir=1 then write (bilangan_akhir)
else begin
jumlah:=1;
bilangan_setelah_awal:=2;
Write ('1');
Repeat
Write (' + ',bilangan_setelah_awal);
bilangan_setelah_awal:=bilangan_setelah_awal+1;
jumlah:=jumlah+bilangan_setelah_awal-1;
Until bilangan_setelah_awal>bilangan_akhir;
Write (' = ',jumlah);
end
End.
Program Penjumlahan_Deret_Bilangan_Bulat_1_Sampai_n;
Uses Wincrt;
Var
bilangan_akhir,bilangan_awal,jumlah:longint;
Begin
bilangan_awal:=1;
jumlah:=0;
Write ('Masukkan bilangan akhir yang diinginkan = '); readln (bilangan_akhir);
Repeat
Write (bilangan_awal);
If bilangan_awalbilangan_akhir;
Write (' = ',jumlah);
End.
LULUS-TIDAK LULUS
Program Kelulusan;
uses wincrt;
var
a,b,c,d:real;
Ket:string[11];
begin
writeln ('Masukkan Nilai PDB=');readln(a);
writeln ('Masukkan Nilai Kalkulus=');readln(b);
writeln ('Masukkan Nilai Statistika Inferensial=');readln(c);
d:=(a+b+c)/3;
Writeln ('Rata-rata Nilai',(d):5:2);
Ket:='Lulus';
if d <50 a="1" a="2" a="3" a="4" a="5" a="6" anda=" ');" i="1" pertama="');readln" kedua="');readln" i="2" pertama="');readln" kedua="');readln" i="3" pertama="');readln" kedua="');readln" i="4" pertama="');readln" kedua="');readln" i="1" pertama="');readln" kedua="');readln" i="1" pertama="');readln" kedua="');readln" c="'y'" a="1" a="2" a="3" a="4" a="5" a="6">b) and (a>c) then Write(a);
If (b>a) and (b>c) then Write(b);
If (c>a) and (c>b) then Write(c);
End.
NILAI TERKECIL
Program Nilai_Terkecil;
Uses Wincrt;
Var
a,b,c:longint;
Begin
Write ('Masukkan 1: ');Readln(a);
Write ('Masukkan 2: ');Readln(b);
Write ('Masukkan 3: ');Readln(c);
If (a=b;
End.
Program Pengulangan_2;
Uses Wincrt;
Var
a,b:longint;
Begin
Write ('Kita akan mengulang berapa kali : '); read (b);
For b:=1 to b do
a:=1;
For a:=1 to b do
Writeln (a,'.','Aku Suka Indonesia');
End.
SEGITIGA ASIK
Program Segitiga_Asik;
Uses Wincrt;
Var
a,b,c:longint;
Begin
Write ('Berapa baris segitiga asik yang kamu inginkan: '); read (a);
For c:=1 to a do
Begin
For b:=1 to c do
Write (c:3);
Writeln;
Writeln;
End;
End.
Program Jumlah_Segitiga_Asik;
Uses Wincrt;
Var
a,b,c,d:longint;
Begin
Write ('Berapa baris segitiga asik yang kamu inginkan: '); read (a);
For c:=1 to a do
Begin
For b:=1 to c do
Begin
Write (c:2);
If b1 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.
ARRAY
Program Latihan_Array_1;
Uses Wincrt;
Var
a,b:integer;
data: array[1..10] of integer;
Begin
Write('Masukkan jumlah data yang diinginkan: ');Readln(b);
Begin
For a:=1 to b do
Begin
Write('Data ke-',a,':');Readln(data[a]);
writeln;
End;
End;
Clrscr;
For a:=1 to b do
Begin
Writeln('Data ke-',a,':',data[a]);
Writeln;
End;
End.
Program Latihan_Array_2;
Uses Wincrt;
Var
a,b:integer;
tabel: array[1..3,1..2] of integer;
Begin
Write('Tabel 1,1:');Readln(tabel[1,1]);
Write('Tabel 1,2:');Readln(tabel[1,2]);
Write('Tabel 2,1:');Readln(tabel[2,1]);
Write('Tabel 2,2:');Readln(tabel[2,2]);
Write('Tabel 3,1:');Readln(tabel[3,1]);
Write('Tabel 3,2:');Readln(tabel[3,2]);
Writeln;
Clrscr;
For a:=1 to 3 do
Begin
For b:=1 to 2 do
Write(tabel[a,b],' ');
Writeln;
End;
End.
Program Latihan_Array_3;
Uses Wincrt;
Var
a,b,c:integer;
data: array[1..10] of integer;
Begin
Write('Masukkan jumlah data yang diinginkan: ');Readln(b);
Begin
For a:=1 to b do
Begin
Write('Data ke-',a,':');Readln(data[a]);
writeln;
End;
End;
Clrscr;
Write('Data ke berapa yang diinginkan? ');Readln(c);
Writeln('Data ke-',c,':',data[c]);
End.
ARRAY MIN, MAKS DAN RATA-RATA
Program Latihan_Array_Nilai_Maks_Min_Rata_Rata;
Uses Wincrt;
Var
a,b,c,maks,min:integer;
d:real;
data: array[1..10] of integer;
Begin
Write('Masukkan jumlah data yang diinginkan: ');Readln(b);
Begin
For a:=1 to b do
Begin
Write('Data ke-',a,':');Readln(data[a]);
Writeln;
End;
End;
Clrscr;
Begin
For a:=1 to b do
Begin
Writeln('Data ke-',a,':',data[a]);
Writeln;
End;
End;
Begin
c:=0;
For a:=1 to b do
Begin
c:=c+data[a];
End;
d:=c/b;
Writeln('Rata-rata data adalah ',(d):5:2);
End;
Begin
maks:=data[1];
For a:=2 to b do
Begin
If data[a]>maks then
maks:=data[a];
End;
Writeln('Data terbesar adalah ',(maks));
End;
Begin
min:=data[1];
For a:=2 to b do
Begin
If data[a]
min:=data[a];
End;
Writeln('Data terkecil adalah ',(min));
End;
End.
TUKAR NILAI DENGAN FUNGSI
Program fungsi_tukar;
uses wincrt;
function tukar(var a,c:integer):integer;
var temp:integer;
begin
temp:=a;
a:=c;
c:=temp;
end;
var a,b,c:integer;
begin
a:=100;
b:=200;
c:=300;
writeln('nilai sebelum ditukar:');
writeln(' nilai A: ',a);
writeln(' nilai B: ',b);
writeln(' nilai C: ',c);
writeln;
tukar(a,c);writeln;
writeln('nilai setelah ditukar:');
writeln(' nilai A: ',a);
writeln(' nilai B: ',b);
writeln(' nilai C: ',c);
writeln;
end.
TUKAR NILAI DENGAN PROCEDURE
Program Menukar_Nilai_A_dan_B;
Uses Wincrt;
Var
A,B:real;
Procedure Tukar(Var X,Y:real);
Var
penukar:real;
Begin
penukar:=X;
X:=Y;
Y:=penukar;
End;
Begin
Write ('Masukkan Nilai A=');readln (A);
Write ('Masukkan Nilai B=');readln (B);
Writeln ('Nilai A sebelum ditukar',(A):5:0);
Writeln ('Nilai B sebelum ditukar',(B):5:0);
Tukar(A,B);
Writeln ('Nilai A setelah ditukar',(A):5:0);
Writeln ('Nilai B setelah ditukar',(B):5:0);
End.
REKURSI
program rekorsi;
uses wincrt;
var
akhir:word;
procedure rekursi;
begin
if akhir<10 faktorial=" ',F);">

TUGAS AKHIR PROKOM

Nama Kelompok:
1. Rischa Yuliawati (4101408057)
2. Ratih Indriati (4101408083)
R0mbel: 5

Titik tembus :
Pada prinsipnya titik tembus adalah mencari titik tembus antara garis M dan persekutuan bidang u dan v yang memuat garis M.

Latihan soal
(1)Tentukan titik tembus garis AC ke bidang BDG

















Langkah-langkah :

1. membuat kubus ABCDEFGH
2. memuat garis AC dan bidang BDG
3. membuat bidang yang memuat AC yaitu bidang ACGE
4. menghubungkan titik persekutuan bidang ACGE dengan bidang BDG
5. titik tembus ketemu (yang warna biru)


(2) tentukan titik tembus garis AG ke bidang BDE.


















Langkah-langkah :
1. membuat kubus ABCD.EFGH
2. membuat garis AG dan bidang BDE
3. membuat bidang yang memuat AG yaitu bidang ACGE
4. menghubungkan titik persekutuan bidang ACGE dengan BDE
5. titik tembus ketemu (yang garis biru)

(3) Tentukan titik tembus garis PQ ke bidang ACH jika P berada di antara AE dengan AP : PE = 2 :1. Q berada di antara BF dengan BQ : QF = 1 : 3.


















Langkah-langkah
1. buat kubus ABCD.EFGH
2. membuat garis PQ dan bidang ACH
3. membuat bidang yang memuat PQ yaitu bidang PP’QQ’
4. menghubungkan titik persekutuan bidang PP’QQ’ dengan bidang ACH yaitu perpanjangannya garis rs dengan garis PQ
5. titik tembus ketemu

Perhatikan gambar di bawah ini!

Jika anak panah tesebut dilepaskan menuju ke papan sasaran, dimanakah letak titik tembusnya?

Apa yang dapat Saudara lakukan untuk mengetahui hal tersebut? (Silahkan jawab pertanyaan tersebut sesuai dengan pemahaman saudara.)

Nah, yang jadi permasalahan adalah bagaimana melakukan proses tersebut sesuai dengan konsep geometri ruang?

Baiklah saudara, saya akan coba jelaskan langkah per langkah untuk sajian tesebut. Tentunya ada teorema dan aksioma yang mendasari permasalahan tersebut.

Aksioma 1:
Melalui 2 titik dapat tepat dibangun 1 garis lurus.

Aksioma 2:
Melalui 3 titik tak segaris dapat dibuat tepat 1 bidang.

Mahasiswa saya…
Gambar situasi umum dari kondisi tersebut saya lukiskan kembali dibawah.
Misalkan terdapat bidang U dan garis m. Tentukan titik tembus garis m pada bidang U.
Untuk menyelesaikan permasalahan tersebut saya tuliskan langkahnya sebagai berikut:

Langkah 1:
Bangun bidang V yang memuat garis m.



Langkah 2:
Buat garis potong antara bidang V dan bidang U. Perhatikan bahwa bagian tepi bidang U dan V masing-masing berpotongan. Misalkan titik potongnya di titik P dan Q. Gambar situasi dari kondisi tersebut adalah sebagai berikut:






Langkah 3:
Perpanjang garis m.
Gambar situasi tersebut menjadi sebagai berikut:



Langkah 4:
Jelas garis m terletak pada bidang V (dibangun sesuai dengan langkah 1).
Jelas garis PQ terletak pada bidang V (karena PQ garis perpotongan U dan V).

Apakah garis m dan PQ terletak pada bidang sama? Bidang apakah itu?
Apakah garis m dan PQ sejajar?
Apa yang dapat kalian simpulkan?

Jelas titik tembus garis m ke bidang U adalah perpotongan antara garis m dan garis PQ. Sebut titik R. Gambar situasi untuk kondisi tersebut adalah sebagai berikut:



Jelas T terletak di PQ (terletak di U dan V). Jadi T terletak di U dan V.

soal

1. sebuah limas P.ADHE terdapat di dalam kubus ABDC.EFGH. Titik P terletak pada titik pertemuan antara diagonal BG dan CF. Titik R terletak pada garis BC dengan perbandingan BR:RC = 1:1. Q terletak pada titik pertemuan antara diagonal AH dan DF.
Apakah garis QR memiliki titik tembus dengan limas P.ADHE? Tunjukan dimana letaknya?



kelompok:
1. Rizki Auliana
2. Zulmi
3. Ratih K
4. Manis R

SOAL
1. Dipunyai kubus ABCD.EFGH. Titik P terletak di garis EA dengan perbandingan AP : PE= 1:2,
Q terletak di garis BF dengan perbandingan BQ:QF=1:2 , R terletak di garis GH dengan perbandingan GR: RH=1 :2.
Apakah garis HB memiliki titik tembus dengan bidang PQR? Kalau iya,tunjukan dimana letaknya?

RISCHA'S HOME

Hffhh,,,, akhirnya Q punya Blog juga. Q g tw sich blog itu buat paan.
Kalo bukan buat memenuhi tugas GeoRuang, mungkin mpe skrg Q g akn susah" bkin blog.

Tapi gpp lah t'yata nulis" di Blog asyik juga loch.............