Drawn » 09 ноя 2004, 19:15
Как эти строчки будут выглядеть в Delphi?
const
chars: array[0..35] of char = ('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F','G','H','I','J','K',
'L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z');
и
write('Vvedite ishodnoe chislo: '); readln(s);
write('k= '); readln(k);
chis:=0;
for i:=1 to length(s) do begin
s:=upcase(s);
j:=-1;
repeat
inc(j);
until (j=36) or (s=chars[j]);
if j=36 then begin writeln('ne verno vvedeno chislo .... '); exit; end;
Chis:=Chis*k+j;
end;
Как эти строчки будут выглядеть в Delphi?
const
chars: array[0..35] of char = ('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F','G','H','I','J','K',
'L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z');
и
write('Vvedite ishodnoe chislo: '); readln(s);
write('k= '); readln(k);
chis:=0;
for i:=1 to length(s) do begin
s[i]:=upcase(s[i]);
j:=-1;
repeat
inc(j);
until (j=36) or (s[i]=chars[j]);
if j=36 then begin writeln('ne verno vvedeno chislo .... '); exit; end;
Chis:=Chis*k+j;
end;