Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Отман
0 / 0 / 0
Регистрация: 17.04.2016
Сообщений: 17
#1

Вывести второе слово из предложения - Turbo Pascal

22.05.2016, 15:45. Просмотров 514. Ответов 2
Метки нет (Все метки)

Дано предложение, состоящее из трех слов, разделенных одиночными пробелами. Вывести второе слово.
Формат ввода:

s - предложение
http://www.cyberforum.ru/turbo-pascal/thread142088.html
Формат вывода:

t - второе слово
Пример ввода:

My name is
Пример вывода:

name



Заранее спасибо!!!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.05.2016, 15:45
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вывести второе слово из предложения (Turbo Pascal):

Вывести первое слово каждого предложения
Помогите написать программу на Pascal Которая будет выводить Первое слово с...

Вывести на экран только те предложения, в которых есть хотя бы одно однобуквенное слово
Люди, помогите переделать эту прогу таким образом чтобы она читала текстовые...

Считать текст из файла и вывести на экран только предложения, содержащие заданное слово
Добрый день. форумчане! помогите, пожалуйста, со следующей задачей: Написать...

Образовать новое слово из символов, не входящих ни в первое слово, ни во второе
Ребят ,помогите пожалуйста сделать програму! Даны 2 слова;Образовать новое...

Верно ли, что первое слово начинается на ту же букву, на которую заканчивается второе слово
1.Вводится два слова. Верно ли, что первое слово начинается на ту же букву, на...

2
shilko2013
249 / 226 / 184
Регистрация: 02.04.2016
Сообщений: 886
Завершенные тесты: 1
22.05.2016, 17:58 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var s,t:string;
c:char;
BEGIN
s:='';
Repeat //чтение до первого пробела
Read (c);
Until c=' ';
Repeat  //запись второго слова
Read (c);
s:=s+c;
Until c=' ';
Readln (t); //чтение конца строки
Writeln (s); //распечатка второго слова
END.
0
ezhukov67
22 / 22 / 39
Регистрация: 10.05.2014
Сообщений: 52
27.05.2016, 20:34 #3
Лучший ответ Сообщение было отмечено Отман как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses  Crt;
var   s,s1:string;
      t,i:integer;
begin
      ClrScr;
       Writeln('String :');
        Readln(s);
         Writeln;
       s1:='';
        for i:=1 to Length(s) do
         if s[i]=' '
          then
           begin
             t:=i+1;
             Break;
           end;
        for i:=t to Length(s) do
         if s[i]<>' '
          then s1:=s1+s[i]
          else Break;
       Writeln(s1);
      ReadKey;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.05.2016, 20:34
Привет! Вот еще темы с решениями:

Даны два слова.Верно ли, что первое слово начинается на ту же букву на которую заканчивается второе слово
1)Даны два слова.Верно ли, что первое слово начинается на ту же букву на...

Составить программу, определяющую, на какую букву оканчивается второе слово предложения
составить программу, определяющую, на какую букву оканчивается второе слово...

Нужно ввести строку и вывести из строки второе слово
Нужно ввести строку и вывести из строки второе слово.

Подсчитать пробелы и вывести в обратном порядке второе слово
Помогите решить плз))) Дано X строк S из n символов. Подсчитать в подпрограмме...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru