Преобразовать двухзначное число из char в integer - Turbo Pascal

Формулировка задачи:

Допустим есть char c[2] = '24' // Я знаю что не по-паскалевски написал, но думаю так понятно Как перевести в интеджеровскую переменную это число (я знаю что val но как-то не получается)?

Код к задаче: «Преобразовать двухзначное число из char в integer - Turbo Pascal»

textual
const c: array [0..3] of Char = '24';
var p: PChar; n: Integer;
begin
  n:=0; p:=c;
  while p^ in ['0'..'9'] do begin
    n:=n*10+Ord(p^)-Ord('0'); Inc(p);
  end;
  WriteLn(n);
end.

12   голосов, оценка 4.083 из 5


СОХРАНИТЬ ССЫЛКУ