Как получить строку из массива?

@Человек разум · Регистрация: 29.03.2019

Pascal

const
  Rims: array[1..13] of string = ('M', 'CM', 'D', 'CD', 'C', 'XC', 'L', 'XL', 'X', 'IX', 'V', 'IV', 'I'); 
  Arab: array[1..13] of integer = (1000, 900, 500, 400, 100, 90, 50, 40, 10, 9, 5, 4, 1);
 
var
  n, i, j,position: integer; 
  s,strings: string;
begin
readln(s);
 
 
 
// работа с переводом из римской в арабскую
  i := 1; n := 0;
  while s <> '' do
  begin
    while Rims[i] = Copy(s, 1, Length(Rims[i])) do
    begin
      s := Copy(s, 1 + Length(Rims[i]), 255);
      n := n + Arab[i]
    end;
    i := i + 1
  end;
  writeln(N);
end.

Есть строка In MMXIV Vasya graduated from school.
Но я не понимаю как отделить MMXIV, а потом склеить изменившуюся строку.
//с переводом из римской в арабскую я разобрался.
Заранее спасибо

@bormant · 16.01.2021, 17:49

Например, как-то так

Pascal

function FindRoman(const s: String; var Start, Len: Integer): Boolean;
const Romans = ['I','V','X','L','C','D','M'];
var i, j: Integer;
begin
  FindRoman:=False;
  i:=1; while (i<=Length(s)) and not (s[i] in Romans) do Inc(i);
  j:=i; while (i<=Length(s)) and     (s[i] in Romans) do Inc(i);
  if j<i then begin
    Start:=j; Len:=i-j; FindRoman:=True;
  end;
end;
 
 
  if FindRoman(s,i,j) then
    s:=Copy(s,1,i-1)+ToArabic(Copy(s,i,j))+Copy(s,i+j,Length(s));

@Puporev · 16.01.2021, 17:55

Вобще это если есть только одно римское число и нет других слов типа VIG, VID и т.п.

@bormant · 16.01.2021, 18:25

Да, разумнее делить на слова и проверять, является ли римским числом очередное слово.
Но и это не позволит отличить английское "я" (I) от римского "один" (I).

@Puporev Модератор 62497 / 46687 / 32180 Регистрация: 18.05.2008 Сообщений: 112,951
	16.01.2021, 17:55	3
	Вобще это если есть только одно римское число и нет других слов типа VIG, VID и т.п. 0

@bormant Модератор 5663 / 3384 / 2423 Регистрация: 22.11.2013 Сообщений: 9,507 Записей в блоге: 1
	16.01.2021, 18:25	4
	Да, разумнее делить на слова и проверять, является ли римским числом очередное слово. Но и это не позволит отличить английское "я" (I) от римского "один" (I). 0

Опции темы