Написать программу проверки правильности сочетаний "ча", "ща", "чу", "щу"

@BooR · Регистрация: 09.03.2012

Author24 — интернет-сервис помощи студентам

дан русский текст. написать программу проверки правильности сочетаний"ча","ща","чу","щу".указать слова, в которых были найдены ошибки и устранить их.

@КонецСвета · 20.03.2012, 23:12

Pascal

uses crt;
var s,sc,sl: string;
    i,j,k,ko: integer;
begin
write('s=');
readln(s);
sl:='';
if s[length(s)]<>'.' then s:=s+'.';
writeln('Ошибки в словах');
ko:=0;
for i:=1 to length(s) do
    if (s[i]<>' ') and (s[i]<>'.')
       then sl:=sl+s[i] else
           begin
               k:=0;
           for j:=1 to length(sl)-1 do
               begin
               sc:=copy(sl,j,2);
               if (sc='чя') or (sc='щя')
                  or (sc='чю') or (sc='щю') then
                        begin
                        if k=0 then write(sl,' ');
                        inc(k);
                        inc(ko);
                        end;
               end;
           sl:='';
           end;
if ko=0 then writeln('не обнаружены') else
   begin
   for i:=1 to length(s)-1 do
    begin
    sc:=copy(s,i,2);
    if (sc='чя') or (sc='щя') then
       begin
       s[i+1]:='а';
       inc(k);
       end;
    if (sc='чю') or (sc='щю') then
       begin
       s[i+1]:='у';
       inc(k);
       end;
    end;
writeln;
writeln('Ошибки исправлены:');
writeln(s);
   end;
readkey
end.

пс извини, если грубовато, писалось из двух...

@BooR · 21.03.2012, 15:05 **[ТС]**

можешь скрин результата сделать а то он мне чето не понятное выводит

@КонецСвета · 21.03.2012, 15:58

вот так

@BooR · 21.03.2012, 19:16 **[ТС]**

Огромное спасибо!!!

@BooR 1 / 1 / 0 Регистрация: 09.03.2012 Сообщений: 29
		1
	Написать программу проверки правильности сочетаний "ча", "ща", "чу", "щу" 20.03.2012, 21:35. Показов 2469. Ответов 4 Метки нет (Все метки) дан русский текст. написать программу проверки правильности сочетаний"ча","ща","чу","щу".указать слова, в которых были найдены ошибки и устранить их. 0

@BooR 1 / 1 / 0 Регистрация: 09.03.2012 Сообщений: 29
	21.03.2012, 15:05 [ТС]	3
	можешь скрин результата сделать а то он мне чето не понятное выводит 0

@КонецСвета Почетный модератор 7966 / 3937 / 2464 Регистрация: 30.10.2011 Сообщений: 5,377
	21.03.2012, 15:58	4
	вот так Миниатюры 0

@BooR 1 / 1 / 0 Регистрация: 09.03.2012 Сообщений: 29
	21.03.2012, 19:16 [ТС]	5
	Огромное спасибо!!! 0

Написать программу проверки правильности сочетаний "ча", "ща", "чу", "щу"

Решение