Wednesday, November 2, 2016
contoh skrip turbo facal
contoh skrip turbo facal
a. Konversi detik ke jam
program konversi_detik_ke_jam;
uses wincrt;
var
detik:real;
jam:real;
begin
write(masukkan detik=);
readln(detik);
jam:=detik/3600;
writeln(jam=,jam:10:2);
end.
b. Program Konversi Detik
uses wincrt;
type jam =record
hh:longint;
mm:longint;
ss:longint;
end;
var
J :jam;
totaldetik :longint;
begin
write (Jam : ); readln (J.hh);
write (menit : ); readln (J.mm);
write (detik : ); readln (J.ss);
totaldetik:= (J.hh*3600) + (J.mm*60) + J.ss;
write (totaldetik= , totaldetik);
end.
c. Konversi jam ke detik
program konversi_jam_ke_detik;
uses wincrt;
var
jam:real;
detik:real;
begin
write(masukkan jam=);
readln(jam);
detik:=jam*3600;
writeln(total detik=,detik:10:2);
end.
d. Koordinat titik tengah dari kedua titik yang diketahui
Program Koordinat_Titik_Tengah;
uses wincrt;
var
x1, x2, y1, y2, a, b, titik_tengah_x, titik_tengah_y:real;
begin
write(masukkan nilai x1 =);readln(x1);
write(masukkan nilai x2 =);readln(x2);
write(masukkan nilai y1 =);readln(y1);
write(masukkan nilai y2 =);readln(y2);
titik_tengah_x:=((x1+x2)/2);
titik_tengah_y:=((y1+y2)/2);
writeln(titik_tengah_x=,titik_tengah_x:10:2);
writeln(titik_tengah_y=,titik_tengah_y:10:2);
end.
e. Mencari Luas Bujur Sangkar
uses wincrt;
var
sisi : real;
luas :real;
begin
write(berapa sisi bujursangkar? );readln(sisi);
write(berapa sisi bujursangkar? );readln(sisi);
luas := sisi * sisi;
writeln(luas bujursangkar= , luas);
end.
f. Mencari Luas dan Keliling Lingkaran
uses wincrt;
const
phi=3.142857;
var
r, Luas, Keliling:real;
begin
write (masukkan jari-jari lingkaran: );readln(r);
Luas:=(phi*r*r);
Keliling:=(phi*2*r);
writeln (luas:, Luas:10:3);
writeln (keliling:, Keliling:10:3);
end.
g. Mencari Luas Permukaan Tabung dan Kerucut
uses wincrt;
const
phi=3.142857;
var
r, t, s, luas_permukaan_tabung, luas_permukaan_kerucut:real;
begin
write(masukkan jari-jari =);readln(r);
write(masukkan tinggi =);readln(t);
write(masukkan selimut_kerucut =);readln(s);
luas_permukaan_tabung:=((2*phi*r*r)+(2*phi*r*t));
luas_permukaan_kerucut:=((phi*r*r)+(phi*r*s));
writeln(luas_permukaan_tabung=,luas_permukaan_tabung:5:2);
writeln(luas_permukaan_kerucut=,luas_permukaan_kerucut:5:2);
end.
h. Mencari Luas Segitiga
Uses wincrt;
Var
pjg, lbr, als, tg, NomorMenu:Integer;
l_persegi, l_segitiga, kll_segitiga, kll_persegi:integer;
Begin
clrscr;
writeln(rumus luas segitiga);
write(masukan alas segitiga: ); readln(als);
write(masukan tinggi segitiga: ); readln(tg);
l_segitiga:= als*tg div 2;
writeln(luas segitiga adalah ,l_segitiga);
Available link for download
