Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
0 / 0 / 3
Регистрация: 24.02.2014
Сообщений: 59
1

В заданном тексте найти первое и последнее слово, из полученных слов составить предложение

26.05.2014, 15:47. Просмотров 1092. Ответов 1
Метки нет (Все метки)

Ваша программа должна в заданном тексте найти первое и последнее слово, из полученных слов составить предложение (слова разделить пробелом)
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.05.2014, 15:47
Ответы с готовыми решениями:

Нужно из текста взять первое и последнее слово. И из данных слов составить предложение (два слова разделённых
Нужно из текста взять первое и последнее слово. И из данных слов составить предложение (два слова...

Строка: В заданном тексте (слова разделены пробелами) поменять первое и последнее слово
Помогите написать программы в Delphi, надо очень срочно, а то я понять не могу как их писать.......

Ввести через клавиатуру предложение (несколько слов, которые отделены пробелом). Поменять первое и последнее слово
Доброго времени суток. Господа, требуется ваша помощь (буде премного благодарен). Необходимо...

Найти первое слово заканчивающееся мягким знаком в заданном тексте
Найти первое слово заканчивающееся мягким знаком в заданом тексте

1
22 / 22 / 39
Регистрация: 10.05.2014
Сообщений: 52
27.05.2014, 21:06 2
Лучший ответ Сообщение было отмечено masha1994 как решение

Решение

Если я правильно понял задание то:
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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
type mass= array of string;
var     f: Text;
     s,s1: string;
    j,i,t: integer;
        A: mass;
begin
      Assign(f,'Text_in.txt'); Reset(f);
      s1:=''; t:=0;
       While not Eof(f) do begin
        Readln(f,s);
         for i:=1 to Length(s) do begin
          if s[i] in ['A'..'Z'] then
            s1:= s1+s[i]
            else
          if s[i] in ['a'..'z'] then
            s1:= s1+s[i]
            else
          if Length(s1)<>0 then begin
           Inc(t);
           s1:=''
          end;
         end;
        end;
       SetLength(A,t);
       Reset(f);
       s1:=''; j:=1;
       While not Eof(f) do begin
        Readln(f,s);
         for i:=1 to Length(s) do begin
          if s[i] in ['A'..'Z'] then
            s1:= s1+s[i]
            else
          if s[i] in ['a'..'z'] then
            s1:= s1+s[i]
            else
          if Length(s1)<>0 then begin
           A[j]:=s1;
           Inc(j);
           s1:=''
          end;
         end;
        end;
       Close(f);
       Writeln(A[1],' ',A[t]);
       A:=nil;
       Readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.05.2014, 21:06

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Как поменять местами в предложение первое и последнее слово?
Доброго времени суток) подскажите ,пожалуйста,как в поменять местами в предложение первое и...

Дано предложение. Поменять местами его первое и последнее слово.
Дано предложение. Поменять местами его первое и последнее слово.

Дано предложение. Поменять местами его первое и последнее слово
Часть 1. Дан числовой массив. Реализовать алгоритм сортировки подсчётом. Часть 2. Дано...

Дано предложение. Поменять местами его первое и последнее слово
Не знаю как записать во вторую переменную последнее слово. Помогите пожалуйста :wall: #include...


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

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

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