CODING
CARA BUAT RUMAH DI FREE PASCAL
1.uses crt;
var CA : char;
var GR :char;
var DR : char;
begin
clrscr;
write('Program Model Rumah Sederhana');
writeln;
write('Nama : Ruth Stephen Jenever');
writeln;
write('NIM :
672015187');
writeln;
writeln;
writeln;
write('Masukkan Komponen Cerobong Asap : ');
readln(CA);
writeln;
write('Masukkan Komponen Genting Rumah : ');
readln(GR);
writeln;
write('Masukkan Komponen Dinding Rumah : ');
readln(DR);
writeln;
writeln;
write(' ',' ',' ',' ',' ',' ',CA,CA,CA,CA);
writeln;
write(' ',' ',' ',' ',' ',' ',' ',CA,CA);
writeln;
write(' ',' ',' ',' ',' ',' ',' ',CA,CA);
writeln;
write(' ',' ',' ',' ',' ','
',GR,GR,GR,GR,GR,GR,GR,GR,GR);
writeln;
write(' ',' ',' ',' ','
',GR,GR,GR,GR,GR,GR,GR,GR,GR,GR,GR,GR,GR);
writeln;
write(' ','
',GR,GR,GR,GR,GR,GR,GR,GR,GR,GR,GR,GR,GR,GR,GR,GR,GR);
writeln;
write(GR,GR,GR,GR,GR,GR,GR,GR,GR,GR,GR,GR,GR,GR,GR,GR,GR,GR,GR,GR,GR);
writeln;
write(' ',' ',' ',' ',DR,' ',' ',' ',' ',' ',' ','
',' ',' ',' ',' ',DR);
writeln;
write(' ',' ',' ',' ',DR,' ',' ',' ',' ',' ',' ','
',' ',' ',' ',' ',DR);
writeln;
write(' ',' ',' ',' ',DR,' ',' ',' ',' ',' ',' ','
',' ',' ',' ',' ',DR);
writeln;
write(' ',' ',' ',' ',DR,' ',' ',' ',' ',' ',' ','
',' ',' ',' ',' ',DR);
writeln;
write(' ',' ',DR,DR,DR,DR,DR,DR,DR,DR,DR,DR,DR,DR,DR,DR,DR,DR,DR);
readkey;
end.
uses crt;
var nilaiUS : integer;
var jumlahUS : integer;
var t : integer;
begin
clrscr;
write('-- Program Konversi US
Dollar ke Rupiah --');
writeln;
writeln;
write('>> Masukkan Nilai US
Dollar = '); readln(nilaiUS);
writeln;
write('>>Masukkan Jumlah US
Dollar = '); readln(jumlahUS);
writeln;
t:=nilaiUS*jumlahUS;
writeln;
write('>> Jumlah Konversi ke
Rupiah = Rp ', t,'.00');
readkey;
end.
uses
crt;
var
jumlahJam : integer;
var
jumlahMenit : integer;
var
jumlahDetik : integer;
var
KonversiJam : integer;
var
KonversiMenit : integer;
var
HasilKonversi : integer;
var
detik: integer;
begin
clrscr;
write('-- Program Konversi Waktu --');
writeln;
writeln;
write('>> Masukkan Jumlah Jam
= '); readln(jumlahJam);
writeln;
write('>>Masukkan Jumlah Menit
= '); readln(jumlahMenit);
writeln;
write('>>Masukkan Jumlah Detik =
'); readln(jumlahDetik);
detik:=60;
KonversiJam:=jumlahMenit*detik*detik ;
KonversiMenit:=jumlahMenit*detik;
HasilKonversi:=KonversiJam+KonversiMenit+jumlahDetik;
writeln;
write('>> Hasil Konversi = ',
HasilKonversi,' Detik');
readkey;
end.
TERIMA KASI
0 Comments