Делфи или Паскаль

[LLIypLLIyH]

помогите сделать проги 2 штучки

1. Дана строка символов до точки. Группы символов в ней между группами пробелов считаются словами. Определить, сколько слов содержат ровно 3 буквы "е".

2. Даны 2 текста. Найти одно из общих слов, встречающихся в текстах.

[Gladiator]

задача№1 на Delphi
В Richedit вводится текст и проверяется

procedure TForm1.Button1Click(Sender: TObject);

var f,f2:string;
    e,kolslov,i,d:integer;
begin
f:=RichEdit1.Text;
d:=length(RichEdit1.Text);
for i:=1 to d do begin
if RichEdit1.Text[i]=' ' then begin
f2:='';
if e=3 then
kolslov:=kolslov+1;
e:=0;
end
else begin
f2:=f2+RichEdit1.Text[i];
if RichEdit1.Text[i]='å' then
e:=e+1;
end;
end;
if not (RichEdit1.Text[d]=' ') then
if e=3 then
kolslov:=kolslov+1;
edit1.Text:=inttostr(kolslov);
end;

Я правильно понял задание?

задание №2..
это так понял...
в 2 richedita вводится текст.а общее слово выводится в edit

procedure TForm1.Button3Click(Sender: TObject);
var r1,r2,f1,f2,es:string;
    j,i,d1,d2:integer;
begin
r1:=RichEdit1.Text;
r2:=RichEdit1.Text;
d1:=length(RichEdit1.Text);
d2:=length(RichEdit2.Text);

for i:=1 to d1 do begin
if not (es='') then
edit1.Text:=es
else begin
if RichEdit1.Text[i]=' ' then begin
for j:=1 to d2 do begin
if RichEdit2.Text[j]=' ' then begin
if f1=f2 then
es:=f1;
f2:='';
end
else
f2:=f2+RichEdit2.Text[j];
end;
f1:='';
end
else
f1:=f1+RichEdit1.Text[i];
end;
end;
if es='' then
if f1=f2 then
edit1.Text:=f1;
end;
end.

[LLIypLLIyH]

Спасибо)! а можно это же в паскале сделать? через массив

Сообщение от Gladiator

задача№1 на Delphi
В Richedit вводится текст и проверяется

procedure TForm1.Button1Click(Sender: TObject);

var f,f2:string;
    e,kolslov,i,d:integer;
begin
f:=RichEdit1.Text;
d:=length(RichEdit1.Text);
for i:=1 to d do begin
if RichEdit1.Text[i]=' ' then begin
f2:='';
if e=3 then
kolslov:=kolslov+1;
e:=0;
end
else begin
f2:=f2+RichEdit1.Text[i];
if RichEdit1.Text[i]='å' then
e:=e+1;
end;
end;
if not (RichEdit1.Text[d]=' ') then
if e=3 then
kolslov:=kolslov+1;
edit1.Text:=inttostr(kolslov);
end;

Я правильно понял задание?

Мне нужно в кансоле

[Gladiator]

Ну на паскале же тоже самое только вместо richedit будет какая-нибуть переменная:string; например str.
и после Begin напишешь

Writeln(' Введите строку');
Readln(str);

ну и в конце естественно
Writeln(kolslov);
Вроде должно работать..

[LLIypLLIyH]

Мы без ричедитов, там она говорит когда ищешь слво одинаковое, тиа создаёшь одномерный масив и чё то делаешь, она объясняет плохо

[Gladiator]

ну да в одномерный массив записываешь символы строки..
а че так без одномерного массива есле вместо Richedita переменную писать не работает?
И вообще тебе на Делфи или на паскале надо.. а то ты написал или на том или на том..

[LLIypLLIyH]

Сообщение от Gladiator

ну да в одномерный массив записываешь символы строки..
а че так без одномерного массива есле вместо Richedita переменную писать не работает?
И вообще тебе на Делфи или на паскале надо.. а то ты написал или на том или на том..

То что ты написал на делфи мы такое ещё не проходили) на паскале надо, или в делфи, в консоле

[Gladiator]

Ну ты пробовал вместо Richedita переменную писать или нет?работает?

[master_root]

function num_3ewords(str: String): integer;
var
	i: integer;//переменная для цикла - номер текущего символа в строке
	num_e: integer;//число букв е в слове
	num_ewords: integer;//число слов в строке, которые содержат ровно 3 символа е
begin
	{инициализация переменных}
	i:=0;
	num_e:=0;
	num_ewords:=0;
	{анализ строки в цикле}
	for i:=1 to Length(str) do
	begin
		{если текущий символ является буквой е}
		if str[i]='е' then num_e:=num_e+1//увеличиваем счётчик букв е в слове
		else if (str[i]=' ') or (str[i]='.') then//если текущий символ - это пробел
		begin
			if num_e=3 then {если число букв е в слове равно трём}
			begin
				num_ewords:=num_ewords+1;//увеличиваем счётчик слов, содержащих 3 буквы е на 1
				num_e:=0;//обнуление счётчика букв е
			end;
                        if str[i]='.' then break;//символ . указывает на конец строки выходим из цикла  
		end;
	end;
	{вывод результата}
	num_3ewords:=num_ewords;
end;

вот рабочий вариант. вроде довольно шустрый код,хотя может кто-нить попробует придумать что-нить попроще? str - аргумент этой функции типа String. а тип String в свою очередь массив элементов типа char.
Код 100% рабочий. Если что, спрашивай

[LLIypLLIyH]

Спасибо! а можно вторую сделатЬ?)