Program memulai dan masukan tipe datanya yaitu mhs = record di antaranya nama sebagai string dengan 20 karakter, npm sebagai string dengan 8 karakter, kelas sebagai string dengan 5 karakter, uts dan uas sebagai integer dan total sebahgai teal dan program type berakhir. Lalu masukan variable I,j,b sebagai integer dan a sebagai array [1..10] of mhs dan pil,key,indexs sebagai char. Program utama di mulai dan index = y lalu akan membaca bahwa y kecil atau y besar sama saja sebagai 1 index dan memulai programnya dengan membersihkan layar awal dan akan tercetak menu, 1 inputan, 2 bentuk, 3 X-it, dan mencetak masukan pilihan. Ketika memasukan pilihan 1 maka program akan memulai program pertama yaitu tentang inputan, jika memasukan pilihan yang ke 2 maka akan mengeluarkan program tentang bentuk dan jika kita pilih nomer 3 maka program akan EXIT.
Jika Program 1
Program pertama memulai lalu mencetak masukan banyak data dan sebagai variable b dan akan mencetak banyak data dari satu sampai b dan program akan mecetak data ke I dan mencetak masukan nama sebagai variable nama, npm sebagai variable npm , kelas sebagai variable kelas, uts sebagai variable uts, uas sebagai variable uas dan nilai uts akan di kali 0,3, nilai uas di kali 0,7 lalu di tambahkan. Lalu program akan meminta data brapa yang mau di tampilkan dan ketika kita memasukan angka 3 maka data ke 3 akan di tampilkan dan program brakhir.
Jika program 2
Program akan memulai dan akan mencetak masukan banyak baris sebagai variable b dan program akan mecetak banyaknya bintang (*) dari nilai inputan dan secara berurutan dengan jangka waktu 50000 mili second dan program brakhir.
Jika program 3
Program akan memulai dan program akan menanyakan bahwa anda yakin mau keluar ?(y/t) / (Y/T) lalu ketika kita memasukan huruf T/t maka program akan mencetak good bye….dan program berakhir.
listing atau sintak program
uses crt;
type
mhs = record
nama : string[20];
npm : string[8];
kelas: string[5];
uts : integer;
uas : integer;
total: real;
end;
var
i,j,b: integer;
a : array [1..10] of mhs;
pil,key,index : char;
begin
index:='y';
while (index='y') or ( index='Y') do
begin
clrscr;
writeln('Menu : ');
writeln('1. Inputan');
writeln('2. Bentuk');
writeln('3. X-it');
write('Masukan pilihan = ');
readln(pil);
case pil of
'1' : begin
write('masukan banyak data :');
readln(b);
for i := 1 to b do
begin
with a[i] do
begin
writeln('data ke-',i);
write('masukan nama : ');
readln(nama);
write('masukan npm : ');
readln(npm);
write('masukan kelas : ');
readln(kelas);
write('uts : ');
readln(uts);
write('uas : ');
readln(uas);
total:=((0.3*uas)+(0.7*uas));
end;
clrscr;
end;
clrscr;
write('mau cetak data ke berapa ?? ');
readln(i);
with a[i] do
begin
writeln('nama : ',nama);
writeln('npm : ',npm);
writeln('kelas : ',kelas);
writeln('uts : ',uts);
writeln('uas : ',uas);
writeln('total : ',total);
end;
readln;
end;
'2' : begin
write('masukan banyak baris :');
readln(b);
clrscr;
for i := 1 to b do
begin
for j := 1 to i do
begin
write(' * ');
delay(50000);
end;
writeln;
end;
readln;
end;
'3' : begin
write('yakin mau keluar ?? (y/t) / (Y/T) : ');
readln(key);
if (key='y') or (key='Y') then
begin
index:='T'
end
else
index:='Y'
end;
end;
end;
writeln('good bye....');
readln;
end.
ouput atau hasil programnya
No comments:
Post a Comment