Tugas Pak Erik untuk 9/01/11

http://i910.photobucket.com/albums/ac304/exgenvil/logookcopy.png

Tugas Pak Erik untuk 30 Desember

http://i910.photobucket.com/albums/ac304/exgenvil/logookcopy.png

program for i;
uses crt;
var
i.z:integer;
begin
clrscr;
for i:=1 to 5 do
begin
for z:=1 to i do
write(chr(64+z));
writeln;
end;
readln;
end.


hasilnya
A
AB
ABC
ABCD
ABCDE

Tugas Pak Don untuk tgl 24 des 10

http://i910.photobucket.com/albums/ac304/exgenvil/logookcopy.png

                                                            Ini contoh hasil print nya...

uses crt;
var
npm,nama,jur,st,thn:string;
a,b,tahun:integer
begin
clrscr;
write('Tulis NPM : ');readln(npm);
write('Tulis Nama: ');readln(nama);
jur:=copy(npm,1,1);
if (jur='1') then jur:='S1-Si';
if (jur='2') then jur:='S1-Sk';
if (jur='3') then jur:='D3-Mi';
if (jur='4') then jur:='D3-Tk';
writeln('Jurusan : ',jur);
st:=copy(npm,2,2);
if (st='04') then st:='Dari Awal';
if (st='07') then st:='Transfer Dari Luar';
if (st='04') then st:='Aktif Kembali';
if (st='04') then st:='Transfer Dari Dalam';
writeln('Status  : ',st);
thn:=copy(npm,4,2);
val(thn,a,b);
writeln;
begin
if (a>=78) then
tahun:=(a+1900);
end;
if (a<78) then
begin
tahun:=(a+2000);
end;
writeln('tahun: ',tahun);
readln;
end.

LAB Agoritma Nilai Akhir, Grade

http://i910.photobucket.com/albums/ac304/exgenvil/logookcopy.png

program mahasiswa;
uses crt;
npm,nama,jur,ket:string;
uas,uts,prktk:integer;
gr:char;
begin
clrscr;
write('Tulis NPM' : ');readln(npm);

write('Tulis Nama' : ');readln(nama);
jur:=copy(npm,1,1);
if (jur='1') then jur:='S1-Si';
if (jur='2') then jur:='S1-Sk';
if (jur='3') then jur:='D3-Mi';
if (jur='4') then jur:='D3-Tk';
writeln('Jurusan : ',jur);
write('Nilai UTS'       : ');readln(uts);
write('Nilai UAS'      : ');readln(uas);
write('Nilai Praktek'  : ');readln(prktk);
akhir:=(0.3*uts)+(0.3*uas)+(0.4*prktk);
writeln('Nilai akhir : ',akhir:3:1);
begin
if (akhir>=85) then
gr:='A';
ket:='LULUS';
end;
if (akhir>=75) then
begin
gr:='B';
ket:='LULUS';
end;
if (akhir>=60) then
begin
gr:='C';
ket:='LULUS';
end;
if (akhir>=45) then
begin
gr:='D';
ket:='LULUS';
end;

if (akhir<45) then
begin

gr:='E';
ket:='TIDAK LULUS';
end;
writeln('Grade anda : ',gr);
writeln('Keterangan : ',ket);
readln;
end.

Lab.Algoritma.Program menggunakan for i

http://i910.photobucket.com/albums/ac304/exgenvil/logookcopy.png

Program  1,2,3,4,5
uses crt;
var
a,b:integer;
begin
clrscr;
for b:= 1 to 5 do
begin
write (a);
a:= a+2;
end;
readln;
end.

Program 1,0,3,2,5,4,7,6,9,8
uses crt;
var
a,b,c:integer;
begin
clrscr;
a:= 1;
b:= 0;
for c:= 1 to 5 do
begin
write (a);
write (b);
a:= a + 2 ;
b:= b + 2 ;
end;
readln;
end.

Lab.Algoritma.Program Membalik Nama

http://i910.photobucket.com/albums/ac304/exgenvil/logookcopy.png

Program Balik Nama
uses crt;
var
nama,hasil,pos:string;
i:integer;
begin
clrscr;
hasil:= '';
write ('Nama        :');readln(nama);
for i := length (nama) downto 1 do
begin
pos:=copy (nama,i,1);
hasil:= hasil+pos;
end;
write('Dibalik menjadi     :',hasil);
readln;
end.

Lab.Algoritma. Mencari nilai rata-rata

http://i910.photobucket.com/albums/ac304/exgenvil/logookcopy.png

Program Mahasiswa;
uses crt;
var
npm,nama,jur:string;
mat,fis,kim,indo,ingg,bio,rata2:real;
jml:integer;

begin
clrscr;
writeln ('Masukkan Data-Data Berikut Dengan Lengkap  !! ');
writeln ('---------------------------------------------------');
write ('NPM                                                       : ');readln (npm);
write ('Nama Lengkap                                        : ');readln (nama);
write ('Jurusan                                                    : ');readln (jur);
writeln;
writeln ('Mata Kuliah                                          Nilai ');
writeln('-------------                                          ----- ');
write ('Matematika                                             : ');readln (mat);
write ('Kimia                                                      : ');readln (kim);
write ('Bahasa Indonesia                                    : ');readln (indo);
write ('Bahasa Inggris                                         : ');readln (ingg);
write ('Biologi                                                    : ');readln (bio);
writeln;



jml:= (6);
write (' Jumlah Mata Pelajaran                           : ',jml);
rata2:= ('mat+fis+kim+indo+ingg+bio)/jml;
writeln;
write ('Nilai rata-rata anda adalah                       :',rata2:2:1);
readln;
end. 

Contoh Penggunaan Perulangan For..Do..

http://i910.photobucket.com/albums/ac304/exgenvil/logookcopy.png

Posted by wira on May 21st, 2010

Berikut ini adalah sebagian contoh perulangan dengan penerapan statemen For.. Do..

 Uses Wincrt;

const

akhir = 4;

var

baris,kolom : integer;

begin

for baris := akhir downto 1 do

begin

for kolom := baris downto 1 do

write(kolom);

writeln;

end;

end.

    Hasil :

    4321

    321

    21

    1

Uses Wincrt;

const

akhir = 4;

var

baris,kolom : integer;

begin

for baris := akhir downto 1 do

begin

for kolom := 1 to baris do

write(kolom);

writeln;

end;

end.

    Hasil :

    1234

    123

    12

    1

Uses Wincrt;

const

akhir = 4;

var

baris,kolom : integer;

begin

for baris := 1 to akhir do

begin

for kolom := 1 to baris do

write(baris);

writeln;

end;

end.

    Hasil :

    1

    22

    333

    4444

Uses Wincrt;

const

akhir = 4;

var

baris,kolom : integer;

begin

for baris := akhir downto 1 do

begin

for kolom := baris downto 1 do

write(baris);

writeln;

end;

end.

    Hasil :

    4444

    333

    22

    1

Uses Wincrt;

const

akhir = 3;

var

baris,kolom : integer;

begin

for baris := akhir downto 1 do

begin

for kolom := baris downto 1 do

write(baris,' ',kolom);

writeln;

end;

end.

    Hasil :

    3 33 23 1

    2 22 1

    1 1

Uses wincrt;

var baris,kolom,jumbaris :integer;

begin

write ('Jumlah Baris : ');readln(jumbaris);

FOR BARIS:=1 TO jumbaris do

begin

write ('*': jumbaris baris);

FOR kolom := 2 TO (2 *baris -1 ) do

begin

write('*');

end;

writeln;

end;

end.