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

строки

19.11.2013, 00:55. Просмотров 218. Ответов 3
Метки нет (Все метки)

В заданной строке слова разделены пробелом. Напечатать все слова, которые содержат в себе заданную последовательность символов.
Помогите исправить программу ..
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Var s,sl,st:string;
   
Begin
    write('Строка: ');readln(s);
    write('Заданная последовательность символов: ');readln(st);
    s:=s+' ';
    While Pos(' ',s)>0 do
    Begin
      sl:=Copy(s,1,Pos(' ',s)-1);
      Delete(s,1,Pos(' ',s));
      if Pos(st,sl)>0 then writeln(sl);
    End;
       readln;
End.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.11.2013, 00:55
Ответы с готовыми решениями:

Файл: Создайте текстовый файл, содержащий в начале каждой строки гласные буквы соответствующей строки файла, а в конце строки - согласные
Создайте текстовый файл, содержащий в начале каждой строки гласные буквы соответствующей строки...

Слить две строки, вставив символы одной строки между символами другой строки
Строка a из n символов лексикографически меньше строки b из n символов, если существует такой...

Строки. Если в конце строки точка отсутствует, то найти слово, заканчивающееся точкой и перенести его в конец строки.
Дана строка, состоящая из слов и содержащая одну точку в конце одного из слов. Если в конце строки...

В матрице переставить строки в порядке убывания количества отрицательных элементов строки
В матрице А и В переставить строки в порядке убывания количества отрицательных чисел в строке....

Упорядочить строки матрицы по неубыванию сумм цифр элементов этой строки
Пусть дана матрица А(п х т). Упорядочьте строки по неубыванию сумм цифр элементов этой строки....

3
Cyborg Drone
Модератор
5286 / 3156 / 2441
Регистрация: 17.08.2012
Сообщений: 10,151
19.11.2013, 02:12 #2
krack, программа написана верно. Возникают какие-то ошибки?
0
krack
0 / 0 / 0
Регистрация: 18.10.2013
Сообщений: 46
19.11.2013, 18:43  [ТС] #3
Cyborg Drone, результата не пишет..
0
ildwine
Супер-модератор
2982 / 1864 / 1224
Регистрация: 04.03.2013
Сообщений: 4,566
Записей в блоге: 1
19.11.2013, 19:05 #4
Цитата Сообщение от krack Посмотреть сообщение
результата не пишет..
Всё работает прекрасно.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.11.2013, 19:05

Дописать в файл строки, проверяя, нет ли в файле точно такой строки
Помогите решить, заранее спасибо)) 10. Имеется текстовый файл. Написать программу, позволяющую...

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

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


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

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

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