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

Проверить, входит ли в строку слово, введенное с клавиатуры - Turbo Pascal

13.01.2013, 04:27. Просмотров 904. Ответов 3
Метки нет (Все метки)

//Проверить, входит ли в строку слово, введенное с клавиатуры. Строчные и заглавные буквы не различаются.

//''Пример: Слово “камыш” входит в строку “Шумел камыш, деревья гнулись”, но не входит в строку “камышовый кот”.
//cкажите, в чем ошибка
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program bbb;
var
 s1,s2:string;
 p,c:integer;
 f:boolean;
begin
writeln('vvedite stroku 1');
readln(s1);
writeln('vvedite stroku 2');
readln(s2);
f:=false;
c:=length(s2);
p:=pos(s2,s1);
if (p<>0) and (s2[c+1] =' ') then f:=true;
writeln(f);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.01.2013, 04:27
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Проверить, входит ли в строку слово, введенное с клавиатуры (Turbo Pascal):

Проверить, является ли введенное с клавиатуры число чётным
1)«Чётность». Проверить, является ли введенное с клавиатуры число чётным...

Проверить, находится ли в массиве введенное с клавиатуры число
объесните программу пожалуста в каком случае 'есть' в каком 'нет' const n...

Процедура определяющая входит ли введенное слово в текст
Нужно написать процедура определяющую входит ли введенное слово в текст....

Проверить является ли введенное слово перевертышем
Составьте программу : проверить- является ли введенное слово перевертышем....

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

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

3
Zhexon
312 / 271 / 272
Регистрация: 25.09.2011
Сообщений: 477
13.01.2013, 10:45 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
var
  s1,s2 : string;
  p     : integer;
  f     : boolean;
Begin
   write('vvedite stroku 1 : '); readln(s1);
   write('vvedite stroku 2 : '); readln(s2);
   p:=pos(s2,s1);
   f:=(p>0);
   writeln(f); readln;
End.
0
CodeR
Фрилансер
3379 / 2781 / 2999
Регистрация: 08.02.2012
Сообщений: 6,651
Записей в блоге: 1
13.01.2013, 11:29 #3
Цитата Сообщение от Nike1995 Посмотреть сообщение
но не входит в строку “камышовый кот”.
Zhexon, а у вас напишет что входит

Добавлено через 8 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Const mn=[' ',',','.','?','!'];
Var s1,s2,s3:string;
    i:byte;
    f:boolean;
Begin
    write('Введите 1 строку: ');readln(s1);
    write('Введите 2 строку: ');readln(s2);
    s1:=s1+' ';s3:='';f:=false;
    For i:=1 to Length(s1) do
     if not(s1[i] in mn) then s3:=s3+s1[i]
     else
     Begin
       if s2=s3 then f:=true;
       s3:='';
     End;
    writeln(f);
    readln;
End.
Цитата Сообщение от Nike1995 Посмотреть сообщение
Строчные и заглавные буквы не различаются.
Это сам уже сделаешь
1
Nike1995
3 / 3 / 8
Регистрация: 14.10.2012
Сообщений: 288
13.01.2013, 16:18  [ТС] #4
ок, спасибо
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.01.2013, 16:18
Привет! Вот еще темы с решениями:

Если введенное слово имеется в тексте, то вывести строку с этим словом
Вводится слово. Если введенное слово имеется в тексте, то вывести строку с...

Если слово in входит в строку то переменной t присвоить значение true
Если в строку длиной 80 символов входит слово in то логический переменной t...

Файл. Найти заданное слово и вывести строку, в которую оно входит
программа по поиску слова в файле и при его нахождении на экран должна...

Проверить, делится ли натуральное число введенное с клавиатуры на число в
проверить длится ли натуральное число введенное с клавиатуры на число в.


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

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

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