Пример 5. Дана строка. Написать программу, определяющую, сколько раз в строке встречается буква «а» маленькая, русская.
Для решения задачи достаточно просмотреть каждый символ строки и сравнить его с буквой «а». При наличии совпадения необходимо увеличить на единицу счетчик количества букв «а».
var s:string;
i,k:integer;
begin
read(s);
k:=0;
for i:= 1 to length(s) do if s[i]='а' then k:=k+1;
write(k);
end.
Пример 6. Выучить)
Дана строка. Написать программу, заменяющую в строке все буквы «а» на буквы «о».
Var s:string;
i:integer;
begin
read(s);
for i:=1 to length(s) do if s[i]='а' then s[i]:='о' ;
write(s);
end.
Пример 7. Дана строка. Написать программу, вставляющую после каждой точки символ пробела.
Без привлечения дополнительных знаний, используя только одну строку, задачу решить не удастся. Поэтому заведем вторую строку и будем в неё переписывать по одному символу из оригинальной строки. Если повстречаем символ точки, то будем к новой строке добавлять пробел.
Var s1, s2:string;
i:integer;
begin
read(s2);
s2:=''; // задаем начальное значение новой строки
for i:=1 to length(s1) do // просматриваем каждый символ строки
begin
s2:=s2+s1[i]; // добавляем символ к новой строке
if s1[i] = '.' then s2:=s2+' '; // если символ равен точке
end;
write(s2;
end.
Обратите внимание, как задается начальное значение новой строки:
s2:='';
Используя две подряд одинарные кавычки, в строку записывается пустая строка, т. е. строка, не содержащая ни одного символа.
Для решения задачи достаточно просмотреть каждый символ строки и сравнить его с буквой «а». При наличии совпадения необходимо увеличить на единицу счетчик количества букв «а».
var s:string;
i,k:integer;
begin
read(s);
k:=0;
for i:= 1 to length(s) do if s[i]='а' then k:=k+1;
write(k);
end.
Пример 6. Выучить)
Дана строка. Написать программу, заменяющую в строке все буквы «а» на буквы «о».
Var s:string;
i:integer;
begin
read(s);
for i:=1 to length(s) do if s[i]='а' then s[i]:='о' ;
write(s);
end.
Пример 7. Дана строка. Написать программу, вставляющую после каждой точки символ пробела.
Без привлечения дополнительных знаний, используя только одну строку, задачу решить не удастся. Поэтому заведем вторую строку и будем в неё переписывать по одному символу из оригинальной строки. Если повстречаем символ точки, то будем к новой строке добавлять пробел.
Var s1, s2:string;
i:integer;
begin
read(s2);
s2:=''; // задаем начальное значение новой строки
for i:=1 to length(s1) do // просматриваем каждый символ строки
begin
s2:=s2+s1[i]; // добавляем символ к новой строке
if s1[i] = '.' then s2:=s2+' '; // если символ равен точке
end;
write(s2;
end.
Обратите внимание, как задается начальное значение новой строки:
s2:='';
Используя две подряд одинарные кавычки, в строку записывается пустая строка, т. е. строка, не содержащая ни одного символа.
Комментариев нет:
Отправить комментарий