Tugas Pemrograman Komputer 1

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang menghitung luas dan keliling lingkaran.

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.

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang menghitung luas dan keliling persegi panjang.

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.

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang menghitung luas permukaan tabung dan kerucut.

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.

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang menghitung volum dan luas permukaan kubus.

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.

Posted in: keliling,luas,luas permukaan,pascal,volum