SCAR Code:
program NametoNumber;
//Made by Smithsps
var
Name, LetterChar, TotalStr, NameLengthStr, Exit1, Alpha : string;
NameLength, Total, NameNum, NameNum1, Calc : integer;
A : array of string;
B : array of integer;
procedure Report;
begin
TotalStr := inttostr(Total);
NameLengthStr := inttostr(NameLength);
writeln('Your number is: ' + TotalStr);
writeln('');
writeln('Made by smithsps');
writeln('');
end;
procedure Calculation;
begin
LetterChar := copy(Name, NameNum, NameNum1);
Alpha := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ 1234567890';
for Calc := 1 to NameLength do
if(pos(LetterChar, Alpha) > 0) then
Total := Total + B[pos(LetterChar, Alpha) - 1];
end;
procedure Entry;
begin
ClearDebug;
Name := readln('What is your name?');
Name := uppercase(name);
NameLength := Length(Name);
NameNum := 0
NameNum1 := 1
Total := 0;
end;
procedure DeclareArray;
begin
setarraylength(A, 37);
A := ['A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L',
'M', 'N', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z',
' ', '1', '2', '3', '4', '5', '6', '7', '8', '9', '0'];
//////////////////////////////////
setarraylength(B,37);
B :=[13, 14, 70, 55, 41, 98, 73, 59, 20, 5, 47, 59, 52, 76, 37, 2, 83,
33, 95, 56, 12, 74, 82, 87, 64, 69, 0, 48, 35, 57, 22, 67, 40, 96, 54, 15, 67];
end;
begin
DeclareArray;
repeat
Entry;
Calculation;
Report;
Exit1 := readln('Would you like to quit? Y/N');
until(Exit1 = 'y') or (Exit1 = 'Y');
end.