Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
0 / 0 / 1
Регистрация: 19.04.2018
Сообщений: 42
1

Выяснить, имеется ли в строке пара соседствующих букв НО или ОН, если нет, то вывести на экран сообщение об этом

19.04.2018, 14:09. Показов 1004. Ответов 7
Метки нет (Все метки)

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
…
 
for i:=1 to length(a) do
 
begin
 
x:=copy(a,i,2);
 
if(x='но')or (x='он') then inc(n);
 
end;
 
if n=0 then writeln('нет') else writeln('есть.... ',n,' раз');
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.04.2018, 14:09
Ответы с готовыми решениями:

Выяснить, имеется ли среди символов S1, ..., Sn пара соседствующих букв 'но' или 'он'
Даны натуральное число n, символы S1,...,Sn. Выяснить, имеется ли среди символов S1,...,Sn пара...

Выяснить, имеется ли среди заданных символов пара соседствующих букв 'но' или 'он'
Даны натуральное число n, символы S1,...,Sn. Выяснить, имеется ли среди символов S1,...,Sn пара...

Дана последовательность символов.Выяснить,имеет ли в этой последовательности пара соседствующих букв НО или ОН
помогите,пожалуйста, написать программу!!! Дана последовательность символов.Выяснить,имеется ли в...

Выяснить, имеется' ли среди s1,…,sn пара соседствующих одинаковых символов
Выяснить, имеется' ли среди s1,…,sn пара соседствующих одинаковых символов.

7
Почетный модератор
64089 / 47498 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
19.04.2018, 14:34 2
Pascal
1
2
3
4
5
6
7
n:=0;
for i:=1 to length(a)-1 do
 begin
  x:=copy(a,i,2);
  if(x='но')or (x='он') then inc(n);
 end;
if n=0 then writeln('нет') else writeln('есть.... ',n,' раз');
0
0 / 0 / 1
Регистрация: 19.04.2018
Сообщений: 42
19.04.2018, 14:47  [ТС] 3
не работает( пишет встречено "n" а ожидался раздел описания

Добавлено через 34 секунды
Puporev, не работает( пишет встречено "n" а ожидался раздел описания
0
Почетный модератор
64089 / 47498 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
19.04.2018, 14:56 4
love26, У меня же не вся программа, я просто исправил тот кусок кода, который Вы привели. С головой видимо не дружите.
0
0 / 0 / 1
Регистрация: 19.04.2018
Сообщений: 42
19.04.2018, 15:01  [ТС] 5
Puporev;12321196]love26, Я дружу! я просто вообще не знаю как эти задания делать, я учусь на первом курсе заочно и нам вот это задали....а какое должно быть начало?
0
Почетный модератор
64089 / 47498 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
19.04.2018, 15:02 6
Цитата Сообщение от love26 Посмотреть сообщение
а какое должно быть начало?
А каким оно было в том месте где Вы содрали свой код?
0
0 / 0 / 1
Регистрация: 19.04.2018
Сообщений: 42
19.04.2018, 15:04  [ТС] 7
вот все задание
Миниатюры
Выяснить, имеется ли в строке пара соседствующих букв НО или ОН, если нет, то вывести на экран сообщение об этом  
0
Почетный модератор
64089 / 47498 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
19.04.2018, 15:07 8
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var a,x:string;
    i,n:integer;
begin
writeln('Введите строку из строчных русских букв, содержащую сочетания он и но');
readln(a);
n:=0;
for i:=1 to length(a)-1 do
 begin
  x:=copy(a,i,2);
  if(x='но')or (x='он') then inc(n);
 end;
if n=0 then writeln('нет') else writeln('есть.... ',n,' раз');
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.04.2018, 15:07

Выяснить, имеется ли среди s1,...,sn пара соседствующих одинаковых символов
Даны символы s1, s2,... Известно, что символ s1 отличен от восклицательного знака и что среди s2,...

Вычыслить количество слов в строке, длинна которых равна 3 символам и вывести их на экран, если же таких слов нет, то выдать об этом сообщение.
Вычыслить количество слов в строке, длинна которых равна 3 символам и вывести их на экран, если же...

Выяснить, имеется ли среди символов, пара соседствующих одинаковых символов
Даны натуральное число n, символы S1,...,Sn. Выяснить, имеется ли среди символов S1,...,Sn пара...

Выяснить, имеется ли среди символов S1,...,Sn пара соседствующих одинаковых символов
Даны натуральное число n, символы S1,...,Sn. Выяснить, имеется ли среди символов S1,...,Sn пара...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru