Book Creator

MODUL ALGORITMA

by Guru TIK SMAN 3 Palopo

Cover

Loading...
Loading...
Modul Logika Dan Algoritma Pemrograman
Loading...
Syahrir, S.Kom., M.Kom
Apapun yang anda Pikirkan ataupun apapun yang anda Kerjakan,
Ubahlah kedalam bentuk Doa dan liat apa yang akan Terjadi By. Mario Teguh
Ada 3 (tiga) tahapan sesorang dapat menguasai komputer dan menggunakan computer dengan baik dan berhasil;
1.   Membaca Buku Komputer
2.   Mencoba langsung pada suatu Komputer
Menulis suatu program komputer 
Simpan file Praktikum dengan NIM (Nomor Induk Mahasiswa) Misal : 1234567e

{PRAKTIKUM I}
PROGRAM PERTAMA;
BEGIN
WRITELN ('HALO ... Universitas Sulawsi Barat');
WRITE ('INI ADALAH ');
WRITELN ('PROGRAM SAYA UJI COBA');
WRITE ('YANG PERTAMA');
WRITE ('DI LAB KOMPUTER');
READLN
END .
{PRAKTIKUM II}
PROGRAM FORMAT_OUTPUT;
USES CRT;
CONST
A=25;
B:INTEGER=12;
VAR
C, D :REAL;
E, F :INTEGER;
BEGIN
CLRSCR;
WRITELN(A);
WRITELN(B);
READLN(C);
WRITELN('C =' ' ,C);
 WRITELN('C='1 ,C:4);
WRITELN('C ='1 ,C:21:3); 
READLN(D) ;
 WRITELN(' C+D =',C+D);
 WRITELN('C+D =',C+D:10:2);
READLN(E, F) ;
WRITELN(' E='1 ,E);
 WRITELN('F='1,F:7);
WRITELN('E*F =',E*F);
 WRITELN('E DIV F =',E DIV F) ;
WRITELN('E MOD F =',E MOD F) ;
WRITELN(' READLN; E < F BERNILAI,' ,E<F);
END .
{PRAKTIKUM III}
PROGRAM HITUNG_GAJI;
USES CRT;
CONST
GAJI_PER_JAM = 5000; LEMBUR_PER_JAM = 10000;
VAR
NIP         : STRING[6];
NAMA        : STRING;
JA          : BYTE;
JJK         : INTEGER;
JJL         : INTEGER;
GAJI,UANG_LEMBUR,GAJI_BERSIH :LONGINT; BEGIN
CLRSCR;

{CETAK JUDUL}
GOTOXY(10,2) WRITE('        MENGHITUNG GAJI PEGAWAI')
GOTOXY(10,3); WRITE('----------------------- ');

{MEMASUKKAN DATA-DATA PEGAWAI}
GOTOXY (10,4) WRITE('NIP GOTOXY(10,5); READLN(NIP);
WRITE('NAMA PEGAWAI GOTOXY(10,6); READLN(NAMA);
WRITE('JUMLAH ANAK GOTOXY(10,7); READLN(JA);
WRITE('JUMLAH JAM KERJA GOTOXY(10,8); READLN(JJK);
WRITE('JUMLAH JAM LEMBUR {MENGHITUNG GAJI PEGAWAI}
GAJI :=JJK * GAJI_PER_JAM UANG_LEMBUR :=JJL * LEMBUR_PER_JAM; GAJI_BERSIH =GAJI + UANG_LEMBUR; {MENCETAK HASIL PERHITUNGAN}
GOTOXY (10,9);WRITE('UANG LEMBUR : ',UANG_LEMBUR);
GOTOXY(10,10);WRITE('GAJI BERSIH : ,GAJI_BERSIH);
GOTOXY(10,11); WRITE('=============================');
READLN;
END.
{PRAKTIKUM V}
PROGRAM JML_BIL;
USES CRT;
CONST
BATAS_AWAL=0;
BATAS_AKHIR=2 0;
VAR
I,JML:INTEGER;
BEGIN
CLRSCR;
{CETAK JUDUL}
WRITELN('JUMLAH BILANGAN BULAT 0-20');
WRITELN ( '------------------------------ ' ) ;
I:=BATAS AWAL;
JML:=0
WHILE I<=BATAS_AKHIR DO BEGIN
WRITELN(I) ;
JML:= JML+1;
I:= I+1 END;
WRITELN('JUMLAH BILANGAN BULAT DARI ',BATAS_AWAL,' SAMPAI ',BATAS_AKHIR ,
'ADALAH = ',JML);
READKEY;
END .
PrevNext