Заменить слова, которые начинаются на букву ” f ” словом “winter”.

@mihey2012 · Регистрация: 23.06.2010

Студворк — интернет-сервис помощи студентам

Ребят, помоги ОЧЕНЬ ОЧЕНЬ нужно ...

Дано тескт. Заменить слова, которые начинаются на букву ” f ” словом “winter”.

плз ..!!!) ЗАРАНЕЕ ОГРОМНОЕ СПАСИБО !!!!!)!

@lera8 · 23.06.2010, 17:11

mihey2012, дан теста а откуда его брать? как выглядит то ваш текст? одна строка или больше?

@mihey2012 · 23.06.2010, 17:21 **[ТС]**

ЭТО у меня Практическое задание)

одно из заданий является это:

ОБРАБОТКА СТРОКОВЫХ ПЕРЕМЕННЫХ

задание: Дано текст. Замінити слова, що починаються з букви ” f ” словом “winter”.

**************************************************************

у меня есть следующая программа:

program z1;
var
s: string[20];
i,k:integer;
begin
k:=0;
for i:=1 to 6 do
begin
writeln('Введите слово');
readln(s);
if s[1]='f' then k:=k+1;
end;
writeln(k);
end.

Задан список из 6 слов. Определить, сколько слов списка начинается на букву «f».

@lera8 · 23.06.2010, 17:27

mihey2012, так а текст тоже так водить как вы? по словам? или всё таки дана строка?

@mihey2012 · 23.06.2010, 17:31 **[ТС]**

строки нет =)
я уже ламаю голову над этой программой много ночей, не смотря на то, что она проста....
Лишь ВЫ, можете мне помочь !!!)!))!)!)!)!

зараннее огромное ПАСИБКИ )!)!)!

@lera8 · 23.06.2010, 17:33

mihey2012, так как так? раз дан текст то это значит он дан в виде строки

@mihey2012 · 23.06.2010, 17:36 **[ТС]**

а как будет выглядеть алгоритм ??!?)

@lera8 · 23.06.2010, 17:40

вот решение там могут быть какие то недочёты,но вот вроде проверяла правильно работает:

Pascal

var
s,s1,s2:string;
i,n:integer;
begin
  writeln('Введите строку');
  readln(s);
  s:=s+' ';
  for i:=1 to length(s) do
    begin
      if ( s[i] <> ' ' ) then
        s1:=s1+s[i]
      else
        begin
          n:=pos('f',s1);
           if n=1 then
             begin
               s2:=s2+'winter'+' ';
               s1:='';
             end
           else
              begin
               s2:=s2+s1+' ';
               s1:='';
             end
        end;
    end;
  writeln('Исправленая стрпка');
  writeln(s2);
end.

@mihey2012 · 23.06.2010, 17:41 **[ТС]**

Program z1;
Var s:string[20];
i,k:integer;
begin
k:=0;
for i:=1 to 6 do
begin
Write ('Введите слово: ');
Readln (S);
if s[1]='f' then
begin
k:=k+1;
S:='winter';
Writeln ('Кол-во = ',k);
Writeln ('Выводим слова и заменяем если подходит под условие: ',S);
end;
end;
readln;
END.

@lera8 · 23.06.2010, 17:43

mihey2012, эм это не совсем похоже на ваше условие. вам уже дан текст а вы как то упрощаете задание считываете слово проверяете его и выводите на экран но если так вам так можно делать и придираться не будут то делайте так

@mihey2012 · 23.06.2010, 17:47 **[ТС]**

Спасибо4ки, ВАМ =)
программу нужно отладить и ЕЩЕ РАЗ СПС !!)!)!)!))!

@mihey2012 0 / 0 / 0 Регистрация: 23.06.2010 Сообщений: 6
		1
	Заменить слова, которые начинаются на букву ” f ” словом “winter”. 23.06.2010, 16:51. Показов 2984. Ответов 10 Метки нет (Все метки) Ребят, помоги ОЧЕНЬ ОЧЕНЬ нужно ... Дано тескт. Заменить слова, которые начинаются на букву ” f ” словом “winter”. плз ..!!!) ЗАРАНЕЕ ОГРОМНОЕ СПАСИБО !!!!!)! 0

@lera8 636 / 219 / 64 Регистрация: 03.11.2009 Сообщений: 488
	23.06.2010, 17:11	2
	mihey2012, дан теста а откуда его брать? как выглядит то ваш текст? одна строка или больше? 0

@mihey2012 0 / 0 / 0 Регистрация: 23.06.2010 Сообщений: 6
	23.06.2010, 17:21 [ТС]	3
	ЭТО у меня Практическое задание) одно из заданий является это: ОБРАБОТКА СТРОКОВЫХ ПЕРЕМЕННЫХ задание: Дано текст. Замінити слова, що починаються з букви ” f ” словом “winter”. ************************************************************** у меня есть следующая программа: program z1; var s: string[20]; i,k:integer; begin k:=0; for i:=1 to 6 do begin writeln('Введите слово'); readln(s); if s[1]='f' then k:=k+1; end; writeln(k); end. Задан список из 6 слов. Определить, сколько слов списка начинается на букву «f». 0

@lera8 636 / 219 / 64 Регистрация: 03.11.2009 Сообщений: 488
	23.06.2010, 17:27	4
	mihey2012, так а текст тоже так водить как вы? по словам? или всё таки дана строка? 1

@mihey2012 0 / 0 / 0 Регистрация: 23.06.2010 Сообщений: 6
	23.06.2010, 17:31 [ТС]	5
	строки нет =) я уже ламаю голову над этой программой много ночей, не смотря на то, что она проста.... Лишь ВЫ, можете мне помочь !!!)!))!)!)!)! зараннее огромное ПАСИБКИ )!)!)! 0

@lera8 636 / 219 / 64 Регистрация: 03.11.2009 Сообщений: 488
	23.06.2010, 17:33	6
	mihey2012, так как так? раз дан текст то это значит он дан в виде строки 1

@mihey2012 0 / 0 / 0 Регистрация: 23.06.2010 Сообщений: 6
	23.06.2010, 17:36 [ТС]	7
	а как будет выглядеть алгоритм ??!?) 0

@mihey2012 0 / 0 / 0 Регистрация: 23.06.2010 Сообщений: 6
	23.06.2010, 17:41 [ТС]	9
	Program z1; Var s:string[20]; i,k:integer; begin k:=0; for i:=1 to 6 do begin Write ('Введите слово: '); Readln (S); if s[1]='f' then begin k:=k+1; S:='winter'; Writeln ('Кол-во = ',k); Writeln ('Выводим слова и заменяем если подходит под условие: ',S); end; end; readln; END. 0

@lera8 636 / 219 / 64 Регистрация: 03.11.2009 Сообщений: 488
	23.06.2010, 17:43	10
	mihey2012, эм это не совсем похоже на ваше условие. вам уже дан текст а вы как то упрощаете задание считываете слово проверяете его и выводите на экран но если так вам так можно делать и придираться не будут то делайте так 1

@mihey2012 0 / 0 / 0 Регистрация: 23.06.2010 Сообщений: 6
	23.06.2010, 17:47 [ТС]	11
	Спасибо4ки, ВАМ =) программу нужно отладить и ЕЩЕ РАЗ СПС !!)!)!)!))! 0

Опции темы