Написать программку в лазарусе. Дана строчка. Написать программу,которая находит и заменяет
Написать программку в лазарусе. Дана строка. Написать программу,которая находит и сменяет во всей строке числа от 0 до 9 на слова "ноль", "один",... "девять". Преобразованную строку вывести на екран.
Задать свой вопрос1 ответ
Шабрина Рита
Var
S:string;
i:integer;
begin
ReadLn(S);
i:=1;
While ilt;=Length(S) do
Begin
if ('0'lt;=S[i])and(S[i]lt;='9') then
Case S[i] of
'0':
Begin
Delete(S,i,1);
Insert('ноль',S,i);
end;
'1':
Begin
Delete(S,i,1);
Insert('один',S,i);
i:=i+3
end;
'2':
Begin
Delete(S,i,1);
Insert('два',S,i);
i:=i+2
end;
'3':
Begin
Delete(S,i,1);
Insert('три',S,i);
i:=i+2
end;
'4':
Begin
Delete(S,i,1);
Insert('четыре',S,i);
i:=i+5
end;
'5':
Begin
Delete(S,i,1);
Insert('5',S,i);
i:=i+3
end;
'6':
Begin
Delete(S,i,1);
Insert('6',S,i);
i:=i+4
end;
'7':
Begin
Delete(S,i,1);
Insert('семь',S,i);
i:=i+3
end;
'8':
Begin
Delete(S,i,1);
Insert('восемь',S,i);
i:=i+5
end;
'9':
Begin
Delete(S,i,1);
Insert('девять',S,i);
i:=i+5
end;
end;
i:=i+1
End;
WriteLn(S);
ReadLn;
end.
Для того, чтоб данная программка заработала, нажмите: Файл сделать простая программа.
Если русские буковкы отображаются правильно, нажмите правой кнопкой мыши по коду, изберите: параметры файла кодировка Ansi (cp1251).
S:string;
i:integer;
begin
ReadLn(S);
i:=1;
While ilt;=Length(S) do
Begin
if ('0'lt;=S[i])and(S[i]lt;='9') then
Case S[i] of
'0':
Begin
Delete(S,i,1);
Insert('ноль',S,i);
end;
'1':
Begin
Delete(S,i,1);
Insert('один',S,i);
i:=i+3
end;
'2':
Begin
Delete(S,i,1);
Insert('два',S,i);
i:=i+2
end;
'3':
Begin
Delete(S,i,1);
Insert('три',S,i);
i:=i+2
end;
'4':
Begin
Delete(S,i,1);
Insert('четыре',S,i);
i:=i+5
end;
'5':
Begin
Delete(S,i,1);
Insert('5',S,i);
i:=i+3
end;
'6':
Begin
Delete(S,i,1);
Insert('6',S,i);
i:=i+4
end;
'7':
Begin
Delete(S,i,1);
Insert('семь',S,i);
i:=i+3
end;
'8':
Begin
Delete(S,i,1);
Insert('восемь',S,i);
i:=i+5
end;
'9':
Begin
Delete(S,i,1);
Insert('девять',S,i);
i:=i+5
end;
end;
i:=i+1
End;
WriteLn(S);
ReadLn;
end.
Для того, чтоб данная программка заработала, нажмите: Файл сделать простая программа.
Если русские буковкы отображаются правильно, нажмите правой кнопкой мыши по коду, изберите: параметры файла кодировка Ansi (cp1251).
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
Облако тегов