close

Вход

Забыли?

вход по аккаунту

?

Документ Microsoft Office Word (2)

код для вставкиСкачать
Лабораторная работа №8
Составить блок-схему алгоритма и программы на языках Бейсик и Паскаль ввода и обработки текста на русском языке (строки символов кириллицы) согласно заданию.
23. Исправить с учетом регистра ошибки согласно правописанию пер, пир: пишется буква и, если за корнем следует суффикс а
TP:
{s - фрагмент текста, i - переменная, p - флаг}
var
s: string;
i: integer;
p: boolean;
begin
p:=false;
writeln('Введите S');
readln(s);
for i:=1 to length(s)-1 do
begin
if (copy(s,i,4)= 'пера') or (copy(s,i,4)= 'Пера') then
begin
s[i+1]:='и';
p:=true
end
else
if (copy(s,i,4)= 'ПЕРА') then
begin
s[i+1]:='И';
p:=true;
end
end;
if p then
writeln ('Вывод ', s)
else
writeln ('Ошибок в правописании "пер, пир" не обнаружено');
end.
QB:
REM p - флаг.
REM i - переменная. REM s - фрагмент текста.
DEFINT I
DIM p AS INTEGER
DIM s AS STRING
p = 0
INPUT "Введите s$ ", s$
FOR i = 1 TO LEN(s) - 1
IF ((MID$(s$, i, 4) = "пера") OR (MID$(s$, i, 4) = "Пера")) THEN
MID$(s$, i + 1, 1) = "и"
p = 1
ELSEIF MID$(s$, i, 4) = "ПЕРА" THEN
MID$(s$, i + 1, 1) = "И"
p = 1
END IF
NEXT i
IF p THEN
PRINT "Вывод s$ ", s$
ELSE
PRINT "Ошибок в правописании 'пер, пир' не обнаружено"
END IF
Окно Вывода:
Введите S: Перамида
Вывод: Пирамида
Введите S: перамида
Вывод: пирамида
Введите S: ПЕРАМИДА
Вывод: ПИРАМИДА
Введите S: Пирамида
Вывод: Ошибок в правописании 'пер, пир' не обнаружено
Документ
Категория
Рефераты
Просмотров
17
Размер файла
14 Кб
Теги
word, office, документы, microsoft
1/--страниц
Пожаловаться на содержимое документа