Строки - Общие вопросы Delphi

PAHASTAR · 21.05.2014, 17:27

В заданном предложении в конце каждого слова дописать первую букву предложения. Напечатать
полученное предложение. Результат вывести на экран и в текстовый файл.

Stilet · 21.05.2014, 18:18

Код:

s:='Заданное предложение';
for i:=1 to Length(s)-1 do
 if (s[i]<>' ')and(s[i+1]=' ') insert(s[1],s,i); insert(s[1],s,Length(s));

Годится?

doktor255 · 21.05.2014, 18:19

На будущее. Помощь студентам в другом разделе.

Цитата:

Годится?

Нет. Оператор пропустил.

21.05.2014, 17:27	#1
PAHASTAR Регистрация: 21.05.2014 Сообщений: 4	Строки В заданном предложении в конце каждого слова дописать первую букву предложения. Напечатать полученное предложение. Результат вывести на экран и в текстовый файл.

21.05.2014, 18:18	#2
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	Код: `s:='Заданное предложение'; for i:=1 to Length(s)-1 do if (s[i]<>' ')and(s[i+1]=' ') insert(s[1],s,i); insert(s[1],s,Length(s));` Годится? I'm learning to live...

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Задача на строки. Даны две строки. Определить можно ли из символов первой строки получить вторую строку.( написать подпрограммой и	ANTON1994	Паскаль, Turbo Pascal, PascalABC.NET	5	09.02.2013 14:07
Программа на языке "Ассемблер" - ввод строки, анализ длины строки, добавление точки в конец строки	Алексей_2012	Помощь студентам	1	05.04.2012 11:26
Сделать в гриде строки выше, чтобы не растягивать строки до бесконечности	kris__tina	БД в Delphi	1	09.06.2011 15:31
Создание пустой строки и копирование в неё содержимое предыдущей строки	Gvaridos	Microsoft Office Excel	2	29.10.2010 13:33
Перенести символа с начала строки в место перед запятой этой же строки.	Zhiltsov	Microsoft Office Excel	4	05.06.2009 13:10