0 / 0 / 0
Регистрация: 25.11.2011
Сообщений: 3
1

Проверить, правильно ли в ней записаны сочетания «жи» и «ши»

25.11.2011, 12:51. Показов 2353. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дана последовательность слов. Проверить, правильно ли в ней записаны сочетания «жи» и «ши»
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.11.2011, 12:51
Ответы с готовыми решениями:

Дана последовательность слов. Проверить правильно ли в ней записаны буквосочетания жи и ши.
Дана последовательность слов. Проверить правильно ли в ней записаны буквосочетания жи и ши. (на...

Проверить, правильно ли в строке записаны сочетания "жи" и "ши"
1)Дана последовательность слов. Проверить, правильно ли в ней записаны сочетания "жи" и "ши"....

Проверить правильно ли записаны буквосочетания жи и ши
Дана последовательность слов. Проверить правильно ли в ней записаны буквосочетания жи и ши

Дана строка текста S. Требуется проверить, правильно ли в ней расставлены скобки
Дана строка текста S. Требуется проверить, правильно ли в ней расставлены скобки. Согласно...

3
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
26.11.2011, 20:10 2
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
uses crt;
var s: string;
    i,k,j,d: integer;
    a: array [1..255] of integer;
begin
write('Введите строку ');
readln(s);
j:=1;
for i:=1 to length(s)-1 do
    begin
    if (s[i]='ж') and (s[i+1]='ы') then
    begin
    a[j]:=i;
    inc(k);
    inc(j);
    end;
    if (s[i]='ш') and (s[i+1]='ы') then
    begin
    a[j]:=i;
    inc(k);
    inc(j);
    end;
    end;
if k>0 then
   begin
   writeln('Обнаружены ошибки в написании "жи"/"ши" в следующих позициях');
   d:=j;
   for j:=1 to d-1 do
       write(a[j],' ');
   end
   else writeln ('Ошибок нет');
readkey;
end.
1
Фрилансер
Эксперт С++
5845 / 1226 / 499
Регистрация: 23.11.2010
Сообщений: 3,375
Записей в блоге: 1
26.11.2011, 22:31 3
Pascal
1
2
3
4
5
6
7
8
bool:=false;
for i:=1 to length(Str)-1 do
  if (copy(Str,i,2)='жы') or (copy(Str,i,2)='шы') then
    bool:=true;
if bool then
  writeln('Есть ошибки')
else
  writeln('Нет ошибок');
3
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
26.11.2011, 22:34 4
Спасибо, мастер!
0
26.11.2011, 22:34
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.11.2011, 22:34
Помогаю со студенческими работами здесь

Проверить, правильно ли в предложении записаны буквосочетания "жи" и "ши"
Дана последовательность слов. Проверить, правильно ли в ней записаны буквосочетания "жи" и "ши"....

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


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

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

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