Program Pascal Tugas

1. program kartesius;

uses winCrt;
var
x : integer;
y : integer;
begin
writeln (‘Masukkan nilai x : ‘); readln (x);
writeln (‘Masukkan nilai y : ‘); readln (y);
if (x>0) and (y>0) then
begin
writeln (‘Kuadran 1′);
end;
if (x<0) and (y>0) then
begin
writeln (‘Kuadran 2′);
end;
if (x<0) and (y<0) then
begin
writeln (‘Kuadran 3′);
end;
if (x>0) and (y<0) then
begin
writeln (‘Kuadran 4′);
end;
end.

1. program gaji;

uses winCrt;
var
nama : string[50];
a : char;
b : longint;
c : longint;
d : longint;
begin
writeln (‘Masukkan nama : ‘); readln (nama);
writeln (‘Masukkan golongan (A/B/C/D) : ‘); readln (a);
if (a=’A’) or (a=’a’) then
begin
b:= 48 * 4000;
end
else if (a=’B’) or (a=’b’) then
begin
b:= 48 * 5000;
end
else if (a=’C’) or (a=’c’) then
begin
b:= 48 * 6000;
end
else
begin
b:= 48 * 7500
end;
writeln (‘Gaji mingguan anda adalah : Rp. ‘,b);
writeln (‘Masukkan total jam lembur minggu ini : ‘);readln (c);
d:= c * 3000;
writeln (‘Total gaji anda minggu ini adalah : Rp. ‘,b+d);
end.

1. program nilai_ujian;

uses winCrt;
var
nama : string[100];
x : integer;
y : char;
begin
writeln (‘Masukkan nama : ‘); readln (nama);
writeln (‘Masukkan nilai ujian : ‘); readln (x);
if (x>=80) then
begin
y:=’A’;
end
else if (x>=70) and (x<80) then
begin
y:=’B’;
end
else if (x>=55) and (x<70) then
begin
y:=’C’;
end
else if (x<40) then
begin
y:=’D’;
end
else
begin
writeln (‘Nilai yang anda masukkan salah’);
end;
writeln (‘Nilai anda adalah : ‘,x);
writeln (‘Indeks nilai anda adalah : ‘,y);
end.

1. program piket;

uses winCrt;
var
x : integer;
begin
writeln (‘Program Daftar Piket’);
writeln (‘———————————————————’);
gotoxy (0,3); writeln (‘Senin = 1 Selasa = 2 Rabu = 3 Kamis = 4′);
gotoxy (0,4); writeln (‘Jumat = 5 Sabtu = 6 Minggu = 7′);
writeln (‘———————————————————’);
writeln (‘Masukkan kode hari (1-7) : ‘); readln (x);
clrscr;
case x of
1 : Begin
writeln (‘Hari Senin piket kiki’);
end;
2 : Begin
writeln (‘Hari Selasa piket agung’);
end;
3 : Begin
writeln (‘Hari Rabu piket priski’);
end;
4 : Begin
writeln (‘Hari Kamis piket ananda’);
end;
5 : Begin
writeln (‘Hari Jumat piket samsol’);
end;
6 : Begin
writeln (‘Hari Sabtu piket antok’);
end;
7 : Begin
writeln (‘Hari Minggu piket rio ‘);
end;
else
Begin
writeln (‘Kode yang anda masukkan salah’);
end;
end;
end.