Здравствуйте, SHTEP!

Что-то в этом роде, но я не компилировала. Расчитано, чтобы в файле входных данных была одна строка указанного Вами формата. Если что не так, пишите. Удачи)

Приложение:
Type sk = record s: string [10]; k: string [10]; End;Var vv: array [1..20] of sk; f1, f2: text; buf: string; c: char; i, j, n, d: integer;Begin assign (f1, "input.txt"); assign (f2, "output.txt"); reset (f1); readln (f1, buf); close (f1); i:= 0; j:= 0; while buf [i]<>'+' do begin d:=0; n:= i; while buf [i]<>' ' do begin inc (i); inc (d); end; vv [j]:= copy (buf, n, d); inc (j); i:= i+2; end; j:= j-1; i:= 0; rewrite (f2); for i:=0 to j do begin if vv [i].k='' then continue; write (f2, vv[i].k, ': ', vv[i].s, ';'); for d:=0 to j do if (k<>i) and (vv[d].k=vv[i].k) then begin write (f2, ' ', vv[d].s, ';'); vv[d].s=''; vv[d].k=''; end; vv[i].k=''; vv[i].s=''; end; close (f2);end.

Консультировал: Verena Дата отправки: 22.01.2007, 18:09

Рейтинг ответа: 0 [подробно] Сообщение модераторам Отправлять сообщения модераторам могут только участники портала. ВОЙТИ НА ПОРТАЛ » регистрация »