Из каждого слова нечетной длины удалить среднюю букву

@Рыбчик · Регистрация: 29.04.2013

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

Замечания.
1. Следует использовать подпрограммы разбиения предложения на слова.
2. Задания выполняются с максимальным использованием подпрограмм.
Дано текст, в котором от 1 до 30 слов, в каждом слове от 1 до 15 букв, слова разделены пробелами.
___
задача: Из каждого слова нечетной длины удалить среднюю букву

@YaRom · 28.05.2013, 11:00

например так:

Pascal

uses crt;
var s:string;
 
function SredBukDel(s:string):string;
var l:integer;
begin
  l:=length(s);
  if l mod 2 <> 0 then
     delete(s,l/2+1,1);
  SredBukDel:=s;
end;
 
procedure SplitWords(s:string);
var i:integer;
  s1:string;
begin
  s1:='';
  for i:=1 to length(s) do
  begin
    if s[i]=' ' then
      s1:=SredBukDel(s1);
      write(s1,' ');
      s1:='';
    else
      s1:=s1+s[i];
  end;
end;
 
begin
  write('Введите слова: ');readln(s);
  writeln('Обработанные слова: ');
  SplitWords(s);
  readln
end.

@Рыбчик · 28.05.2013, 15:06 **[ТС]**

а почему оно не работает?? и выдает ошибку в 10 строк

@YaRom · 28.05.2013, 15:35

подкорректированный вариант)

Pascal

uses crt;
var s:string;
 
function SredBukDel(s:string):string;
var l:integer;
begin
  l:=length(s);
  if l mod 2 <> 0 then
     delete(s,(l div 2)+1,1);
  SredBukDel:=s;
end;
 
procedure SplitWords(s:string);
var i:integer;
  s1:string;
begin
  s1:='';
  for i:=1 to length(s) do
  begin
    if s[i]=' ' then
    begin
      s1:=SredBukDel(s1);
      write(s1,' ');
      s1:='';
    end
    else
      s1:=s1+s[i];
  end;
  write(SredBukDel(s1));
end;
 
begin
  write('Введите слова: ');readln(s);
  writeln('Обработанные слова: ');
  SplitWords(s);
  readln
end.

@Рыбчик · 28.05.2013, 18:26 **[ТС]**

благодарю! очень помог ))) посмотри пожалуйста и другие задачи с текстом, а то я в нем что-то вообще ничего не понимаю (((

@Рыбчик 0 / 0 / 1 Регистрация: 29.04.2013 Сообщений: 33
		1
	Из каждого слова нечетной длины удалить среднюю букву 27.05.2013, 21:25. Показов 1562. Ответов 4 Метки нет (Все метки) Замечания. 1. Следует использовать подпрограммы разбиения предложения на слова. 2. Задания выполняются с максимальным использованием подпрограмм. Дано текст, в котором от 1 до 30 слов, в каждом слове от 1 до 15 букв, слова разделены пробелами. ___ задача: Из каждого слова нечетной длины удалить среднюю букву 0

@Рыбчик 0 / 0 / 1 Регистрация: 29.04.2013 Сообщений: 33
	28.05.2013, 15:06 [ТС]	3
	а почему оно не работает?? и выдает ошибку в 10 строк 0

@Рыбчик 0 / 0 / 1 Регистрация: 29.04.2013 Сообщений: 33
	28.05.2013, 18:26 [ТС]	5
	благодарю! очень помог ))) посмотри пожалуйста и другие задачи с текстом, а то я в нем что-то вообще ничего не понимаю ((( 0

Опции темы