История изменений

Исправление bormant, 07.06.19 22:31 (текущая версия) :

препод говорит, что можно через pos,insert,delete

Можно. Но подход кривой. Возможно, причиной тому всего-лишь текущий этап обучения (я не изучала записи-я изучала массивы).

Напишите что-то вроде:

type
  TComplex = array [0..1] of Real;
function cRead(var c: TComplex): Boolean;
var t: Char;
begin
  cRead:=False;
  repeat Read(t) until t>' ';
  if t<>'(' then Exit;
  Read(c[0]);
  repeat Read(t) until t>' ';
  Read(c[1]);
  repeat Read(t) until t>' ';
  if t<>')' then Exit;
  cRead:=True;
end;

Но тут должны быть обязательные пробелы (показаны «_»):
(число_,число_)
Более корректный способ в разборе на "(*)", затем на «*;*», затем Val для половинок.

Исходная версия bormant, 07.06.19 22:28:

препод говорит, что можно через pos,insert,delete

type
  TComplex = array [0..1] of Real;
function cRead(var c: TComplex): Boolean;
var t: Char;
begin
  cRead:=False;
  repeat Read(t) until t>' ';
  if t<>'(' then Exit;
  Read(c[0]);
  repeat Read(t) until t>' ';
  Read(c[1]);
  repeat Read(t) until t>' ';
  if t<>')' then Exit;
  cRead:=True;
end;

Но тут должны быть обязательные пробелы (показаны «_»):
(число_,число_)
Более корректный способ в разборе на (*), затем на *;*, затем Val для половинок.