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

В заданной последовательности слов найти все слова с заданной приставкой

19.06.2012, 13:20. Просмотров 1879. Ответов 1
Метки нет (Все метки)

2)В заданной последовательности слов найти все слова, с заданной приставкой.

P.S
Очень прошу помощи...Спасибо большое заранее!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.06.2012, 13:20
Ответы с готовыми решениями:

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

В заданной последовательности слов найдите все слова, начинающиеся с заданной приставки
Люди помогите с задачкой, я пишу на паскале а язык С++ я попросту не знаю...))) В долгу не...

В заданной последовательности слов, найти все слова, отличные от первого
Задана последовательность из 50 слов, каждое слово из 5 букв. Напечатать все слова, отличные от...

Дана строка символов. В заданной последовательности найдите все слова, начинающиеся с заданной приставки. php
Дана строка символов. В заданной последовательности найдите все слова, начинающиеся с заданной...

1
Лучи добра
172 / 170 / 191
Регистрация: 08.06.2012
Сообщений: 292
19.06.2012, 21:48 2
Лучший ответ Сообщение было отмечено WhiteCrow38 как решение

Решение

Лови
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
program z;
uses crt;
var s,p:string; i,j,f:byte;
a:array [1..100] of string;
begin
     clrscr;
     write('Введите строку: ');
     readln(s);
     write('Введите приставку: ');
     readln(p);
     j:=1; a[j]:='';
     for i:=1 to length(s) do
         if copy(s,i,1)<>' '
            then
                a[j]:=a[j]+copy(s,i,1)
         else
             j:=j+1;
     write('Слова с приставкой "',p,'": ');
     f:=0;
     for i:=1 to j do
         if lowercase(copy(a[i],1,length(p)))=lowercase(p)
            then
                begin
                     write(a[i],' ');
                     f:=1;
                end;
     if f=0
        then
            write('в заданной строке нет слов с приставкой "',p,'"!');
     readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.06.2012, 21:48

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

В заданной стройке найти все слова, в которых нет заданной буквы
1.В заданной стройке найти все слова, в которых нет заданной буквы. Считать, что слова разделены...

Из заданной последовательности слов удалить слова,содержащие слова
Из заданной последовательности слов удалить слова, содержащие числа.

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

Из заданной последовательности слов удалить слова, содеpжащие числа
Из заданной последовательности слов удалить слова,содеpжащие числа C++ Builder вот программа...


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

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

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