Помощь - Поиск - Пользователи - Календарь
Полная версия: Напечатать все слова, которые встречаются в ней ровно 1 раз
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
kr3v3tkus
20.12.2005 1:28
Напечатать все слова, которые встречаются в ней ровно 1 раз
не могу решить, тем более рационально(((

я смог решить вот ето:
5. Дана строка, состоящая из слов, разделенных пробелами. Напечатать все слова, отличные от данного.

может можно переделать эту задачку под требуемую?

решение
Код
program lol;
var text,tmp,txt:string;
      i,l:integer;
begin
writeln('vvest1 text');
readln(text);
writeln('vvest1 text dlia ydalen1ya');
readln(txt);
tmp:='';
l:=length(txt);
for i:=1 to length(text) do
if text[i]<>' ' then
  begin
    tmp:=tmp+text[i];
    if txt=tmp then delete(text,i-l,l+1);
  end
else tmp:='';
writeln(text);
readln;
end.
kr3v3tkus
20.12.2005 2:28
и ещё вопросик
8. Дана строка, состоящая из слов, разделенных пробелами. Напечатать все слова, начинающиеся и заканчивающиеся одной буквой.
подскажите где ошибка а то не работает sad.gif имхо вроде всё сделал sad.gif
Код
program lol;
var text,tmp:string;
i:integer;
begin  
writeln('vvest1 text');  
readln(text);
tmp:='';
for i:=1 to length(text) do  
if text[i]<>' ' then tmp:=tmp+text[i]  
else  
if tmp[i-1]=tmp[i-length(tmp)] then
    begin      
      writeln('slovo ',tmp,' na4inaetsia u okan41vaetsya na ',tmp[1]);      
      tmp:='';
    end;  
readln;  
end.
volvo
20.12.2005 2:39
Цитата
вроде всё сделал
Почти все...
Основная ошибка - слово Tmp должно сбрасываться НЕ только тогда, когда его первая и последняя буквы равны, а всегда, когда встречается пробел...
program lol;
var
  text,tmp:string;
  i:integer;
begin
  writeln('vvest1 text');
  readln(text);

  tmp:='';
  for i := 1 to length(text) do
    if text[i] <> ' ' then
      tmp:=tmp+text[i]
    else begin

      if tmp[1] = tmp[length(tmp)] then
        writeln('slovo ',tmp,' na4inaetsia u okan41vaetsya na ',tmp[1]);
      tmp:='';

    end;
  readln;
end.
kr3v3tkus
20.12.2005 3:14
volvo а с первой не помогеш? мне бы хотяб на мыслю наткнуться)
kr3v3tkus
20.12.2005 23:35
подскажите плз где ошибка? нужно найти минимальное слово

Код
program lol;
var text,tmp,txt:string;    
i,l:integer;  
begin
writeln('vvest1 text');  
readln(text);    
txt:=text;  tmp:='';    
for i:=1 to length(text) do  
if text[1]<>' ' then
  begin
    if text[i]<>' ' then tmp:=tmp+text[i]  
  else  
  begin
    if length(txt)>length(tmp) then
     txt:=tmp;    
     tmp:='';  
  end;  
end;
writeln('samoe malenkoe slovo - ',txt,' , ono sostoit i3 ',length(txt),' bukv');
readln;  
end.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.