Розв’язок задачі з Абрамова №460а

Всі умови | Умова: Скласти процедуру обчислення значення цілого числа із заданої стрічки символів, що є записом цього числа в десятковій системі числення. У цій та наступних завданнях цього параграфа вимагається скласти окремі процедури, не включаючи їх у будь-які програми. На практиці ці процедури можуть виявитися корисними в цілому ряді програм. (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №460)

Розв'язок на Pascal

program pr460_1;
uses
  Crt;

function TruncStrReal(str:string):longint;
var
  res:longint;
  i:integer;
begin
  res:=0;
  i:=1;
  while (str[i]<>'.') and (i<=length(str)) do begin
    res:=res*10+(ord(str[i])-ord('0'));
    inc(i);
  end;
  TruncStrReal:=res;
end;

var
  strInt:string;
  i:integer;
  flag:boolean;
begin
  ClrScr;
  readln(strInt);
  flag:=false;
  for i:=1 to length(strInt) do
    if not (strInt[i] in ['0'..'9','.']) then begin
      writeln('There is no number.');
      flag:=true;
      break;
    end;
  if not flag then
    writeln('Integer: ',TruncStrReal(strInt));

  readkey;
end.