25 / 25 / 2
Регистрация: 08.11.2011
Сообщений: 284
1

Дана строка, состоящая из слов, разделенных пробелами. Вывести слова этой строки, которые отличны от последнего слова

28.11.2011, 18:03. Показов 2503. Ответов 3
Метки нет (Все метки)

ана строка, состоящая из слов, разделенных пробелами. Вывести слова этой строки, которые отличны от последнего слова. Ввожу: "aa bb cc dd ff aa" она мне тоже самое в ответ!
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
program Lab_1;
uses crt;
 function wor(const s:string; var i:byte):string;
    var w:string;
    begin
    w:='';
 
    while (i<=length(s)) and (s[i]<>' ') do begin
          w:=w+s[i];
          i:=i+1;
          end;
    wor:=w;
    end;
 
var stroka:string;
w,t,l:string;
i: byte;
 
begin
writeln ('Vvedite stroky');
readln (stroka);
w:='';
t:='';
begin
i:=length(stroka);
while (i<=length(stroka)) and (stroka[i]<>' ') do
begin
 
t:=t+stroka[i];
dec(i);end;
for i:=length(t) downto 1 do
begin
w:=w+t[i];
end;
end;
    i:=1;
 
while i<=length(stroka) do
begin
 
l:=wor(stroka,i);
if l<>w then write(l); write(' '); inc(i); end;
readln;
end.
 Комментарий модератора 
Заголовок темы изменен модератором.
Он должен быть информативным, отображая содержание темы.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.11.2011, 18:03
Ответы с готовыми решениями:

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

Дана строка, состоящая из слов разделенных пробелами. Вывести на экран порядковый номер слова максмимальной дл
Подскажите как сделать. Дана строка, состоящая из слов разделенных пробелами. Вывести на экран...

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

Дана строка, состоящая из слов, разделенных пробелами. Вывести на экран порядковый номер слова минимальной длины и
Дана строка, состоящая из слов, разделенных пробелами. Вывести на экран порядковый номер слова...

3
Почетный модератор
64071 / 47482 / 32733
Регистрация: 18.05.2008
Сообщений: 115,185
29.11.2011, 07:17 2
Неправильно составляешь слово когда идешь с конца
Pascal
1
2
3
4
5
6
7
t:='';
i:=length(stroka);
while (i>=1) and (stroka[i]<>' ') do
 begin
  t:=stroka[i]+t;
  dec(i);
 end;
2
25 / 25 / 2
Регистрация: 08.11.2011
Сообщений: 284
29.11.2011, 14:09  [ТС] 3
Точно! Спасибо!
1
0 / 0 / 0
Регистрация: 12.11.2017
Сообщений: 18
15.11.2017, 17:48 4
Ох ребят,спасибо,выручили
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.11.2017, 17:48

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

Дана строка, состоящая из слов на английском языке, разделенных пробелами. Вывести на экран эти слова в порядке алфавита
Дана строка, состоящая из слов на английском языке, разделенных пробелами. Вывести на экран эти...

Дана строка, состоящая из слов, разделенных пробелами. Если встречаются слова из 2 букв то заменить их *
ребята, помогите напишите код даны строка s состоящая из слов разделенных пробелами, если...

Дана строка, состоящая из латинских слов, разделенных пробелами. Определить длину самого короткого слова
Дана строка, состоящая из латинских слов, разделенных пробелами. Определить длину самого короткого...

Дана строка, состоящая из латинских слов, разделенных пробелами. Определить длину самого короткого слова.
Дана строка, состоящая из латинских слов, разделенных пробелами. Определить длину самого короткого...

Дана строка символов, состоящая из цифр, разделенных пробелами. Вывести четные числа этой строки
Дана строка символов, состоящая из цифр, разделенных пробелами. Вывести четные числа этой строки....


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

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

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