0 / 0 / 2
Регистрация: 28.04.2012
Сообщений: 9
1

Напечатать отдельными строками первое и последнее слово строки

28.04.2012, 10:15. Показов 1762. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
4. Ввести с клавиатуры строку символов. Напечатать отдельными строками первое и последнее слово.

Прошу, как можно скорей помочь в этом. Заранее спасибо!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.04.2012, 10:15
Ответы с готовыми решениями:

Удалить из строки первое и последнее слово
Всем доброй ночи. Не спящие помогите с решением задач. Знаю, что простейшие, но с Паскалем очень и...

Поменять местами первое и последнее слово
Помогите написать программу. "Поменяйте местами первое и последнее слово" (ввод строк...

Распечатать самое длинное слово (последнее) и самое короткое слово (первое)
Распечатать самое длинное слово (последнее) и самое короткое слово (первое).

В заданой строке S(string) обменять местами первое и последнее слово
Написать прогу. В заданой строке S(string) обменять местами первое и последнее слово!

2
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
28.04.2012, 10:59 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от RA_Pro Посмотреть сообщение
4. Ввести с клавиатуры строку символов. Напечатать отдельными строками первое и последнее слово.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
uses crt;
var s: string; i,n: byte;
begin
write('s='); readln(s);
if s[1]=' ' then
   repeat
   delete(s,1,1);
   until (s[1]<>' ') or (s='');
i:=1;
repeat
inc(i);
until (s[i]=' ') or (i>=length(s));
writeln(copy(s,1,i));
if s[length(s)]=' ' then
   repeat
   delete(s,length(s),1);
   until (s[length(s)]<>' ') or (s='');
i:=length(s);
repeat
dec(i);
until (s[i]=' ') or (i<=1);
writeln(copy(s,i+1,length(s)-i+1));
readln;
end.
1
0 / 0 / 2
Регистрация: 28.04.2012
Сообщений: 9
28.04.2012, 11:02  [ТС] 3
КонецСвета, я очень тебе благодарен, добрый людь. Большое спасибо.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.04.2012, 11:02
Помогаю со студенческими работами здесь

Разработать процедуру которая в строке меняет первое и последнее слово
разработать процедуру которая в строке меняет первое и последнее слово Помогите...

Составьте программу, которая меняет местами первое и последнее слово в строке
Составьте программу, которая меняет местами первое и последнее слово в строке: а) в строке &quot;Минск...

Напечатать последнее слово последовательности
1. Дана строка символов, содержащая последовательность слов, разделенных запятыми, за последним...

Найти самое короткое слово, начинающееся с буквы "А", и заменить это слово на первое слово строки
Строка символов. Надо найти кратчайший слово начинающееся с буквы &quot;А&quot; и надо заменить это слово на...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru