TUGAS PEMOGRAMAN DASAR (Pembuatan Input IPK)

Posted: April 13, 2011 in Pemograman Dasar Semester 2

NAMA : AGUNG SUKMA PRASETYA
KELAS: Teknik Informatika c

NIM: 3105 111 175

uses wincrt;
var i:byte;
x,y,ip:integer;

pil:byte;
ul:char;
label utama;
begin

utama:
clrscr;
writeln(‘==================================’);
writeln(‘…::::      UTY MAJU      ::::…’);
writeln(‘==================================’);
Writeln(‘1. IPK Calculation’);
Writeln(‘2. Kuadran Identifier’);
writeln;
Write(‘Masukan Pilihan —>’);Readln(pil);

case pil of
1:
begin
clrscr;
writeln(‘===================================’);
writeln(‘…..:::: IPK Calculation ::::…..’);
writeln(‘===================================’);
writeln;
writeln;
write(‘ Insert your IPK ===> ‘);readln(ip);
writeln;

case ip of
0..1:
writeln(‘IP anda Kurang’);
2..3:
writeln(‘IP anda Baik’);
4:
writeln(‘IP anda Sempurna’);
else writeln(‘Nilai yang anda masukan salah’);

readln;
end;
end;
2:
begin
clrscr;
writeln(‘==================================’);
writeln(‘…:::: Kuadran Identifier ::::…’);
writeln(‘==================================’);

Write(‘Masukan Nilai x ==>’);Readln(x);
Write(‘Masukan Nilai y ==>’);Readln(y);

if (x>0) and (y>0) then
writeln(‘Kuadran I’)
else if (x>0) and (y<0) then
writeln(‘Kuadran IV’)
else if (x<0) and (y>0) then
writeln(‘Kuadran II’)
else Writeln(‘Kuadran 2’);

end
end;

write(‘kembali ke menu utama ? (y/n)’);readln(ul);
if ul=’y’ then goto utama;

end.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s