Задача 4 урок 18

Primary tabs

Submitted by Gurgen on Sun, 10/31/2021 - 01:34

Forums:

Задача 4 урок 18

Пользователь вводит в консоль строку вида:

Имя         123

-- т.е. слева имя и через произвольное количество пробелов число баллов. Разберите эту строку получив имя пользователя как значение в переменной типа string и число баллов в перееменной типа integer;

Решение

program  task_4_lesson_18;
var
  s: string;
  name: string;   // сохраним имя
  point: string; // сохраним баллы
  n, i, j, code: integer;
begin
  name := '';
  i := 1;
  s := 'Name         123';
  while s[i] <> ' ' do
    begin
      name := name + s[i];
      i += 1;
    end;
  for j := i to length(s) do
      if (s[j] >= '0') and (s[j] <= '9') then
        point := point + s[j];
  val(point, n, code);
  writeln(s);
  writeln(name);
  writeln(n);
  readln
end.

Консоль

Name         123
Name
123
  • Log in to post comments
  • 2129 reads
vedro-compota's picture

vedro-compota

Sun, 10/31/2021 - 12:54

оформить выделение значений в виде процедуры

_____________
матфак вгу и остальная классика =)

Gurgen

Tue, 11/02/2021 - 00:58 

program  task_4_lesson_18;

procedure otdel(s : string; var name, point: string);
var i, j: integer;
begin
  i := 1;
  while s[i] <> ' ' do
    begin
      name := name + s[i];
      i += 1;
    end;
  for j := i to length(s) do
      if (s[j] >= '0') and (s[j] <= '9') then
        point := point + s[j];
end;

var
  s: string;
  name: string;   // сохраним имя
  point: string; // сохраним баллы
  n, code: integer;
begin
  name := '';
  point := '';
  s := 'Name         123';
  otdel(s, name, point);
  val(point, n, code);
  writeln(s);
  writeln(name);
  writeln(n);
  readln
end.
vedro-compota's picture

vedro-compota

Wed, 11/03/2021 - 19:02

засчитано

_____________
матфак вгу и остальная классика =)