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.PTI.Tugas Untuk tgl.30 Desember

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

1.Pengertian Batch file
            ==>  file teks yang berisi serangkaian perintah yang dimaksudkan untuk dieksekusi oleh command interpreter, command interpreter sendiri adalah sebuah program komputer yang membaca baris teks yang dimasukkan oleh user dan menafsirkan baris dan teks tadi dalam konteks yang diberikan sistem operasi atau bahasa pemrograman.

2.Perintah-perintah yang dijalankan oleh batch file
             ==> 

• Call, memanggil satu batch program tanpa menghentikan induk batch program ;

• Echo, mengkatifkan fitur perintah pengumandangan atau menampilkan pesan ;

• Endlocal, mengakhiri lokalisasi dari perubahan lingkungan dalam sebuah batch file, memulihkan variabel lingkungan ke nilai mereka sebelum menyocokkan perintah setlocal ;

• For, menjalankan perintah yang ditentukan untuk setiap file dalam satu set file ;

• Goto, mengarahkan Windows XP ke baris yang diidentifikasi oleh label/penanda ;

• If, melakukan pemrosesan kondisional dalam batch program ;

• Pause, menunda proses batch program dan menampilkan pesan yang mendorong user untuk tekan tombol apa saja untuk melanjutkan ;

• Rem, memungkinkan kita untuk memasukkan komentar dalam sebuah batch file atau dalam file konfigurasi kita ;

• Setlocal, memulai lokalisasi variabel lingkungan dalam sebuah batch file, berhubungan denga perintah Endlocal ;

• Shift, mengubah posisi parameter batch dalam sebuah batch file .

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.