Linguagem de programação
Uses crt; Type Alunos = record Num : integer; Nome : string; Idade : integer; end;
Modulos = record NumMod : integer; NomeMod : string; End;
Data = record Dia : 1..31; Mes : 1..12; Ano : 1980..2050; End;
Notas = record NumAl:integer; NumMod:integer; Nota:1..20; DataCap:Data; End; Var i,resp: integer; acesso : boolean; util, pwd: string;
Procedure login; Begin clrscr; Acesso := false; gotoxy (40,10); write('Utilizador '); Readln (util); If ((util = 'Andre') or (util = 'Luisa')) Then begin gotoxy (40,11); write('Palavra passe '); Readln(pwd); If util = 'Andre' Then if pwd = 'Silva' Then begin acesso := true; writeln('ACESSO AUTORIZADO...Bem vindo ',util); End Else writeln('Palavra passe inválida ') Else if util = 'Luisa' Then if pwd = 'Neto' Then begin acesso := true; writeln('ACESSO AUTORIZADO...Bem vindo ',util); End Else writeln('Palavra passe inválida '); End Else writeln('Utilizador inválido') End;
Begin Login; Readln; Clrscr; If acesso = true Then begin Readkey; Gotoxy (25,14); Writeln('Loading... Please Wait... ',util); Textcolor(white); Textbackground(blue);
For i:=1 to 50 do Begin delay(110); gotoxy(13+i,16);write(chr(178)); gotoxy(13+i,17);write(chr(178)); End;
Textbackground(black); Textcolor(yellow); Gotoxy(9,40); Write(' Bem-vindo :)'); Readkey; End;
Var fAl:file of alunos; FNotas: file of notas; FMod: file of modulos; Al: alunos; Nt: notas; Modl: modulos;
Function FicExtAl:boolean; Begin {$I-} reset(Fal); {$I+} if IOResult <> 0 then FicExtAl:= false