Regards pascal mania, good morning lovers Turbo Pascal, on this happy occasion I will write the code for the login program in turbo pascal 7.0. log in turbo pascal function if we do not write / fill in what is provided by the user on the program then we will not get into the program content, and vice versa if the user can fill in what is provided by the user then we will be able to enter into the program content. straight course. follow the following steps carefully.
How to make program LOGIN:
- Please open your program Turbo Pascal 7.0.
- Select the file - new
- then write the code below:
- Then compile - compile or alt + f9 to make sure there are no errors in your program code.
- If there are no errors please select run - run.
- Congratulations you can make program LOGIN own.
program login;
uses crt;
var
user,password,dtuser,dtpassword,kembali: string[30];
begin
clrscr;
write ('email: '); readln(user);
write ('password: '); readln(password);
dtuser:='newsblogs21.blogspot.com';
dtpassword:='1234567';
if (dtuser=user) and (dtpassword=password) then
begin write ('selamat datang ...'); readln; end
else
begin writeln ('user dan password yang anda masukkan tidak cocok...');
readln; end;
readln;
end.
uses crt;
var
user,password,dtuser,dtpassword,kembali: string[30];
begin
clrscr;
write ('email: '); readln(user);
write ('password: '); readln(password);
dtuser:='newsblogs21.blogspot.com';
dtpassword:='1234567';
if (dtuser=user) and (dtpassword=password) then
begin write ('selamat datang ...'); readln; end
else
begin writeln ('user dan password yang anda masukkan tidak cocok...');
readln; end;
readln;
end.
* Greeting pascal mania and may be useful.
0 Response to "how to make a login program in TURBO PASCAL 7.0"
Post a Comment