Program Konversi_waktu

Program Konversi_waktu;
uses wincrt;
var j,m,d,h:integer;
begin
writeln(' Program Konversi Waktu ');
writeln(' ====================== ');
writeln;
write ('Masukkan Jumlah Jam : ');readln(j);
write ('Masukkan Jumlah Menit : ');readln(m);
write ('Masukkan Jumlah Detik : ');readln(d);
writeln;
h:=(j*3600)+(m*60)+d;
writeln ('Jadi Hasilnya : ',h,' Detik');
end. Selengkapnya...

program Data_mahasiswa

program Data_mahasiswa;
uses wincrt;
type Mhs = record
NIM : String [12];
Nama : string [20];
Prodi : string [20];
Ip : real;
lagi : char;
end;
var data : Mhs;
begin
with data do
begin
repeat
write ('NIM : ');readln(NIM);
write ('Nama : ');readln(Nama);
write ('Prodi : ');readln(prodi);
write ('IP : ');readln(Ip);
writeln;
write ('Mau Masukkan Data Lagi/Tidak ? [Y/T] : ');readln(lagi);
writeln;
until upcase(lagi)<>'Y';
end;
clrscr;
writelN ('DATA YANG DIIPUTKAN');
Writeln ('===================');
writeln ('NIM : ',data.NIM);
writeln ('Nama : ',data.Nama);
writeln ('Prodi : ',data.Prodi);
writeln ('Ip : ',data.Ip:2:2);
end. Selengkapnya...

PENGEN DAPAT JODOH

Lagi ngapaen ne..?ngomong pekerjaan or mngomongin pacar ? sulit dapat pacar'y Aduh cantik-cantik gine belum panya pacar,,>cow'y juga kx belom pnya cwe, >>>ksian baget kan????malam minggu pasti kesendirian + dingin lagi tuch, tenang di cne selalu ada solusinya..>pengen banget punya jodoh,toib da solusinya ne Klik Disini or tnya toib jx xlo krang paham disini dijamin banyak cwo ganteng + cwe cantik



cari jodoh kayak lagu'y wali

Selengkapnya...