manutd4life230

hi program to ask the user a username and a password if pass and username good display OK else clear screen and reask the user for username and password again. this will continue until good username and password entred. using while loops thanks in advanced

all work perfectly just the substraction here's the code: [code=pascal]Program calculation; uses wincrt; Procedure menu; Begin Writeln('Options:'); Writeln('1. Addition'); Writeln('2. Subtraction'); Writeln('3. Mutiplication'); Writeln('4. Division'); Writeln('5. Exit'); End; Function GetUserInput(msg:string):integer; Var UserInput:integer; Begin Write(msg); Read(UserInput); GetUserInput:=Userinput; End; Procedure Add; var add:integer; Begin clrscr; add:=GetUserInput('Enter another number:')+GetUserInput('Enter a number:'); writeln('Result=',add); End; …

create an array of marks [1..5] then create a while loops to ask the user for 5 marks then displayed all stired marks. [code=pascal]program marks; var mark:array[1..5] of integer; x:integer; counter:integer; Begin counter:=1; x:=1; while (counter<=5) do begin writeln('input marks'); readln(mark[x]); x:=x+1; counter:=counter+1; end; writeln(mark[3]); end.[/code] thankx in advanced for …

hi program to ask the user a username and a password if pass and username good display OK else clear screen and reask the user for username and password again. this will continue until good username and password entred. using while loops thanks in advanced

program to ask the user a username and a password if pass and username good display OK else clear screen and reask the user for username and password again. this will continue until good username and password entred. thanks in advanced