Урок 17. Задача №4. Решение.
Primary tabs
Пользователь вводит в консоль строку вида:
Имя 123-- т. е. слева имя и через произвольное количество пробелов число баллов. Разберите эту строку получив имя пользователя как значение в переменной типа string и число баллов в переменной типа integer;
procedure InspectionString(s : string; var Name, Point : string); var i : integer; begin for i := 1 to length(s) do begin if(s[i] >= '0') and (s[i] <= '9') then Point += s[i] else Name += s[i]; end; end; function OtherVal(S : string; point2 : integer): integer; begin val(S, point2); result := point2; end; var str, name, tmp : string; point : integer; begin writeln('Enter your name: enter your points: '); readln(str); InspectionString(str, name, tmp); point := OtherVal(tmp, point); writeln(); writeln(name, point); readln(); // Удержание консоль end.// Завершение программы
- Log in to post comments
- 733 reads