KATA PENGANTAR
Puji dan Syukur kami panjatkan ke Hadirat ALLAH swt , karena berkat
limpahan Rahmat dan
Karunia-nya sehingga kami dapat menyusun makalah ini dengan baik dan tepat pada
waktunya.
Adapun makalah ini telah kami usahakan semaksimal mungkin karena
tidak sedikit hambatan yang kami
hadapi.
Dengan adanyan bimbingan dan bantuan dari berbagai pihak
maka kami dapat menyelesaikan makalah ini. Oleh karena itu pada kesempatan ini
perkenankanlah kami menyampaikan ucapan terimakasih kepada :
Dosen Logika
dan algoritma : Bpk Fiqih Satria
Namun tidak lepas dari semua itu penulis menyadari bahwa ada
kekurangan baik dari segi penyusunan bahasanya, maupun segi lainnya. Oleh
karena itu segala kritik dan saran yang membangun akan kami terima dengan baik.
Kami mengharapakan
semoga makalah “ Logika dan Algoritma “ ini dapat bermanfaat bagi semua pihak.
Pringsewu, 26
desember 2016
|
PEMBAHASAN
1.
Menghiung
Persegi Panjang
Program Untitled ;
uses crt ;
Var P,l,luas : integer;
begin
write(‘nilai P : ‘);
read (p);
write(‘nilai l : ‘);
read(l);
luas:=p*l;
write(‘p*l : ‘,luas);
readln;
readln;
end.
|
2.
Menghitung
Luas Segitiga
program Untitled;
uses crt;
var
a,t,luas:integer;
begin
writeln('Menghitung
Luas Segitiga');
write('nilai Alas:
'); readln(a);
write('nilai Tinggi:
'); readln(t);
luas:=((a*t) div 2);
writeln('luas :
',luas);
readln;
readln;
end.
|
3.
Mengitung
Nilai ABCDE
program Untitled;
uses crt;
var n:integer;
begin
write('Masukan nilai
anda: '); readln(n);
if n>100 then
writeln('ERROR')
else
if n>=80 then
writeln('Nilai
"A"')
else
if n>=70 then
writeln('Nilai
"B"')
else
if n>=60 then
writeln('Nilai
"C"')
else
if n>=50 then
writeln('Nilai
"D"')
else
if n<50 then
writeln('Nilai
"E"')
else
if n<0 then
writeln('ERROR');
readln;
readln;
end.
|
4.
Menghitung
Gaji
Program untitled;
Uses crt;
Var gp,tg: integer;
Var status : string;
begin
write('masukkan
status anda : ');
read(status);
write('masukan gaji
pokok anda : ');
read(gp);
if status ='SM'then
tg:=gp+500000
else
if status ='BM'then
tg:=gp+0;
write('total gaji
anda : ',tg);
readln;
readln;
end.
|
5.
Kode
Kota
program kodekota;
uses crt;
var kode: char;
begin
clrscr;
write('kode kota:');
readln(kode);
case kode of
'J': begin
write('Jakarta');
end;
'Y' : begin
write('Yogyakarta');
end;
'T' : begin
write('Tanjung
karang');
end;
'C' : begin
write('Cengkareng');
end;
'S' : begin
write('Surabaya');
end;
else
write('tidak ada
Code kota');
end;
readln;
end.
|
6.
Program
While do
program tes_while;
uses crt;
var nama:string;
var n:integer;
begin
nama:='Hello World';
n:=0;
while n < 100 do
begin
writeln(nama);
n+=1;
end;
readln;
end.
|
7.
Program
Repeat Until
program
repeat_until_tester;
uses crt;
var nama:string;
var n:integer;
begin
nama:='Hello World';
n:=0;
repeat
begin
writeln(nama);
n+=1;
end;
until n=10;
readln;
end.
|
8.
Program
For Do
program for_do;
uses crt;
var nama:string;
var no:integer;
begin
nama:='Hello World';
no:=0;
for no:=1 to 100 do
begin
writeln(nama);
end;
readln;
end.
|
Artikel keren lainnya:
Belum ada tanggapan untuk "Laporan Tugas Logika Algoritma dev-pascal"
Posting Komentar