Задача на строки, Помогите Опции

[lisagera]

Никак не допру как решить задачу.
Даны строки А и В (не обязательно равной длины). Составить программу, формирующую строку С из совпадающих по позиции и коду символов строк А и B. Например: А="Эдельвейс", В="Идальго", тогда
С="дль". Вывести на экран полученную строку С.

Сообщение отредактировано: lisagera - 16.04.2006 11:54

[klem4]

Bokul, а какое отношение твой код имеет к этой задаче ? Помоему он выполняет не то что требуется в задании ...

Наверное вот так ?

uses crt;

function GetRes(lo, hi : string) : string;
var
  i : byte;
  s : string;
begin
  s := '';
  for i := 1 to length(lo) do
   if lo[i] = hi[i] then s := s + lo[i];
  GetRes := s;
end;

var
  a, b, c : string;

begin

  clrscr;

  a := 'Эдельвейс';
  b := 'Идальго';

  if length(a) > length(b) then
   c := GetRes(b, a)
  else
   c := GetRes(a, b);

  writeln( c );

  readln;
end.

Если автор что-то менял в первом сообщении, извиняюсь ...

Сообщение отредактировано: volvo - 2.11.2006 10:34