PROGRAM UINPUT NILAI MAHASISWA

PROGRAM UINPUT NILAI MAHASISWA

uses crt;

label

        ulangi,selesai;

procedure kop;

begin

        textbackground(0);

        textcolor(yellow);

        gotoxy(7,1);writeln('NAMA = LUKMANUL HAKIM');

        gotoxy(7,2);writeln('NIM/KLS = 11012356 / J');

        gotoxy(7,3);writeln('DOSEN PEMBIMBING = EKO PURNOMO,S.Kom.');

        textbackground(green);

        textcolor(yellow);

        gotoxy(13,5);writeln('*************** DATA INPUTAN NILAI ***************');

        gotoxy(13,6);writeln('************** UJIAN AKHIR SEMESTER **************');

        gotoxy(13,7);writeln('***************** STT NURUL JADID ****************');

Read More

DEKLARASI PERCABANGAN

DEKLARASI PERCABANGAN

          Struktur percabangan atau  memungkinkan programmer untuk membuat suatu program yang dapat memilih satu kondisi di antara beberapa kondisi untuk dikerjakan. Dalam Pascal disediakan 2 buah struktur kontrol seleksi, yaitu:

1. Statemen IF

    A. Struktur IF……Then…..

Bentuk : if kondisi then statemen;

             Else statement

             End.

Contoh :

uses crt;

var

a,b:string;

begin

 clrscr;

  write('masukan nama = ');

 readln(a);

 write('masukkan password = ');

 readln(b);

 if (a='aku')or(b='123') then

 begin

  clrscr;

  delay(800);

  writeln('selamat  datang di website ku...');

  delay(1000);

  writeln('//==============//');

 end

 else

 begin

  clrscr;

   writeln('login yg anda masukkan slah');

  writeln('//=============//');

 end;

readln;

end.

    B. Struktur IF Tersarang

         Merupakan struktur kontrol di mana suatu aksi dilaksanakan berdasarkan kondisi logikanya (benar atau salah).

Bentuk if  (kondisi) then statemen

Else if (kondisi) then statemen

Else

Read More