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

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