Отправлено: 09.04.13 20:26. Заголовок: Другое решение задачи С4 14

Я думаю что такое решение более компактное и содержит намного меньше проходов по массиву, чем приведенное вами в ответах. Ошибки нигде вроде бы нет, все проверила и протестировала.

program demo_C4;
const max=26;
var i,j,m,id:integer;
F:string;
MData:array [1..max] of integer;
simv:char;
begin
i:=0;
j:=0;
m:=0;
id:=0;
for i:=1 to max do
MData[i]:=0;
read(simv);
while simv<>'.' do
begin
inc(MData[ord(simv)-ord('A')+1]);
read(simv);
end;
for i:=1 to max do
If MData[i]<>0 then
begin
begin
If Mdata[i] mod 2=0 then
begin
for j:=1 to MData[i] do
insert(chr(i+ord('A')-1),F,((length(F) div 2)+1));
end
else begin inc(m); id:=i end
end
end;
if m>1 then writeln('NO') else writeln ('Da');
if m=1 then
begin
for j:=1 to MData[id] do
insert(chr(id+ord('A')-1),F,(length(F) div 2)+1)
end;
Writeln(F);
end.

 Отправлено: 10.04.13 06:04. Заголовок: Анна пишет: такое ре..

Анна пишет:

цитата:

такое решение более компактное и содержит намного меньше проходов по массиву

По сути решение аналогичное, просто вы строите результат в виде символьной строки в памяти, а в моем варианте он формируется при выводе.
Если вы не возражаете против включения его в сборник на моем сайте, пожалуйста пришлите мне на почту ваши данные (ФИО) и авторское объяснение алгоритма.

 Отправлено: 10.04.13 17:46. Заголовок: Конечно не возражаю,..

Конечно не возражаю, сейчас пришлю на почту