Contoh Program Login pada Pascal

GoresanKuliah—Detik-detik mencapai final mahasiswa Pendidikan Fisika yang mengambil mata kuliah Dasar-Dasar Pemograman Komputer diembankan sebuah tugas akhir, yang harus diselesaikan, dan dengan contoh program Login pada pascal berikut  semoga dapat bermanfaat dalam membantu menyelesaikan tugas Akhir.

Username dalam Program ini Adalah ALMI dan Passwordnya 12345

Program tampil;
uses crt;
VAR USER:STRING;
PASS:INTEGER;
PROCEDURE TAMPIL1;
BEGIN
CLRSCR;
gotoxy(10,5);WRITELN('==========================================');
Gotoxy(10,6);WRITELN('SISTEM TUGAS AKHIR DASAR-DASAR PEMOGRAMAN KOMPUTER');
gotoxy(10,7);WRITELN('=======================================');
GOTOXY(15,10);WRITE('USER NAME :');
GOTOXY(15,11);WRITE('PASSWORD  :');
gotoxy(10,18);WRITELN('=========================================');
gotoxy(10,19);WRITELN('CREATED BY :RACHMAD ALMI PUTRA');
gotoxy(10,20);WRITELN('==========================================');
END;
PROCEDURE TAMPIL2;
BEGIN
CLRSCR;
GOTOXY(10,5);WRITELN('==========================================');
GOTOXY(10,6);WRITELN('SELAMAT DATANG ',USER);
GOTOXY(10,7);WRITELN('===========================================');
WRITELN;
GOTOXY(15,10);WRITE('MENU ');
GOTOXY(15,11);WRITE('1. Contoh Program Tiap BAB');
gotoxy(15,12);WRITE('2. Sistem Raport');
gotoxy(15,13);write('3. Kamus Fisika');
gotoxy(15,14);write('4. Exit');
gotoxy(10,20);write('masukkan Pilihan Anda : ');
gotoxy(10,21); write('tekan ENTER untuk melanjutkan');
WRITELN;
GOTOXY(10,23);WRITELN('==================================');
GOTOXY(10,24);WRITELN('CREATED BY :RACHMAD ALMI PUTRA');
GOTOXY(10,25);WRITELN('=================================');
READLN;
END;
BEGIN
CLRSCR;
TAMPIL1;
GOTOXY(15,10);WRITE('USER NAME :');READLN(USER);
GOTOXY(15,11);WRITE('PASSWORD  :');READLN(PASS);
if (USER='ALMI') and (PASS=12345) then
TAMPIL2 Else
CLRSCR;
GOTOXY(25,10);WRITELN('USERNAME DAN PASSWORD TIDAK SESUAI');
READKEY;
END.

LiveJournal Tags: Pemograman,Pascal,Username,Password,Contoh Login