Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.05.2013, 21:56   #1
levine
Пользователь
 
Аватар для levine
 
Регистрация: 02.05.2012
Сообщений: 13
По умолчанию строки,по-моему.

На теме меня не было,а учительнице объяснить не получается,что надо время,чтобы нагнать материал.Помогите,пожалуйста,написа ть программу.

Дана последовательность слов.Напечатать все слова,предварительно удалив в словах наибольшей длины средние(-ие) буквы.

(Это,видимо,значит,если в самом длинном слове нечетное кол-во букв,надо удалить одну:если букв 5,надо удалить третью. А если 4,то вторую и третью.)
Заранее покорнейше благодарю.
levine вне форума Ответить с цитированием
Старый 14.05.2013, 22:01   #2
Rififi
Старожил
 
Регистрация: 19.08.2009
Сообщений: 2,119
По умолчанию

levine

На теме меня не было,

Это что, всего за одну лекцию вы прошли работу со строками, циклы, условные операторы, функции ввода-вывода (это всё понадобится в программе)? или у вас лекции по длительности как полярные ночи?
Rififi вне форума Ответить с цитированием
Старый 14.05.2013, 22:09   #3
levine
Пользователь
 
Аватар для levine
 
Регистрация: 02.05.2012
Сообщений: 13
По умолчанию

А вы мне можете как-то помочь или здесь,чтобы упрекать меня? Я не знаю,как написать программу к этой задаче,поэтому и обратилась за помощью. Если бы знала,сама бы написала.
Но спасибо за ответ.
levine вне форума Ответить с цитированием
Старый 14.05.2013, 22:10   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Это разбор строки на слова:
http://www.programmersforum.ru/showt...369#post398369

Это функция удаления из строки символа.
Код:
Function Dell(s:string):String;
begin
 if (Length(s) mod 2)<>0 then delete(s,Length(s) div 2,1)
 else delete(s,(Length(s) div 2)-1,2);
 Dell:=s;
end;
Достаточно информации?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 14.05.2013, 22:19   #5
levine
Пользователь
 
Аватар для levine
 
Регистрация: 02.05.2012
Сообщений: 13
По умолчанию

Если не сложно,можно мне всю программу целиком?
levine вне форума Ответить с цитированием
Старый 14.05.2013, 22:47   #6
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Цитата:
Если не сложно,можно мне всю программу целиком?
А почему бы Вам не написать? Если что мы подскажем. Да и основа Вам уже дана. Попытайтесь.. А мы подправим.
Poma][a вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задача на строки. Даны две строки. Определить можно ли из символов первой строки получить вторую строку.( написать подпрограммой и ANTON1994 Паскаль, Turbo Pascal, PascalABC.NET 5 09.02.2013 14:07
По моему чего то не хватает ? mixazavra Компоненты Delphi 9 31.10.2012 21:41
Программа на языке "Ассемблер" - ввод строки, анализ длины строки, добавление точки в конец строки Алексей_2012 Помощь студентам 1 05.04.2012 11:26
Перенести символа с начала строки в место перед запятой этой же строки. Zhiltsov Microsoft Office Excel 4 05.06.2009 13:10
Не разберу где ошибся, по моему много напутал Forro Паскаль, Turbo Pascal, PascalABC.NET 6 14.01.2008 14:19