буквы в словах

Модераторы: Duncon, Naeel Maqsudov, Хыиуду, Игорь Акопян

Ответить
andryuha
Сообщения: 9
Зарегистрирован: 13 янв 2008, 17:50

13 янв 2008, 18:06

блин все никак не могу понять как одну задачку решить вот она:
Написать программу на обработку одномерного массива. Дана непустая последовательность слов из строчных букв (количество слов > 3): между соседними словами - запятая, за последним словом - точка. Вывести все буквы, которые входят не менее чем в три слова последовательно-сти.
как только я ее не пытался решить! ну не как не получаеться.на слова делил а да дальше что как поиск осуществить?как решить?
вот что у меня получилось:
program lab_5.1;

{$APPTYPE CONSOLE}
uses
SysUtils;
var
str:string[255];
s1,s2,s3:string[40];
i,j,p:integer;

begin
str:='Omnia mea mecum.';
j:=0;
for i:=1 to length(str) do
begin
if (j=0) then
begin
j:=j+1;
p:=pos(' ',str);
s1:=Copy(str,i,p);
delete (str,i,p);
Write(s1);
end;
readln;
if (j=1) then
begin
j:=j+1;
p:=pos(' ',str);
s2:=Copy(str,i,p);
delete (str,i,p);
Write(s2);
end;
readln;
if (j=2) then
begin
j:=j+1;
p:=pos('.',str);
s3:=Copy(str,i,p);
delete (str,i,p);
Write(s3);
end;
end;

for i:=1 to 10 do
begin
if s1=s2 then write (Copy(s1,i,1);
readln;
end;
end.

помогите или хотябы подскажите как решить
Хыиуду
Сообщения: 2388
Зарегистрирован: 06 мар 2005, 21:03
Откуда: Москва
Контактная информация:

13 янв 2008, 21:32

Я бы сделал так: сделал массив array['А'..'Я'] of integer, потом в каждом слове удалить повторяющиеся буквы, а для остальных букв увеличить соответствующий элемент массива на 1. Потом в массиве посмотреть, есть ли элементы не меньше 3, если есть - их индексы и будут являться искомыми буквами.
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Аватара пользователя
Игорь Акопян
Сообщения: 1419
Зарегистрирован: 13 окт 2004, 17:11
Откуда: СПБ
Контактная информация:

15 янв 2008, 10:18

andryuha, вставляя код обрамляйте его тэгом так:
[noparse]

Код: Выделить всё

ваш код
либо

[syntax='delphi']
ваш код
[/syntax]
[/noparse]
Изображение
Ответить