вторник, 4 октября 2016 г.

Задание на 11 и 13 октября

Пример 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:='';
Используя две подряд одинарные кавычки, в строку записывается пустая строка, т. е. строка, не содержащая ни одного символа.

Комментариев нет:

Отправить комментарий