Практикум по решению задач на ЭВМ. Тарова И.Н - 38 стр.

UptoLike

ВУЗ: 

ЕГУ им. Бунина | Елец

Составители: 

Рубрика: 

Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.
end.
Лабораторная работа № 8
Обработка последовательности символов
1) Дано натуральное число n и символы q
1
, q
2
, …, q
n
. Подсчитать, сколько
раз среди данных символов встречается буква х.
2) Дано натуральное число n и символы q
1
, q
2
, …, q
n
. Преобразовать после-
довательность, заменив в ней: все восклицательные знаки точками; каж-
дую точку - многоточием; каждую из групп стоящих рядом точек одной
точкой.
3) Задана строка символов. Определить длину строки
program stroca(input,output);
uses CRT;
var i:integer;s:string[15];
begin
clrscr;
writeln('Введите строку символов для определения длины: ');
readln (s);
i:=length(s);
writeln('Длина: ',i,' символов');
readln;
end.
4) В произвольно заданной строке выделить фрагмент
длиной n симво-
лов, начиная с позиции m.
program fragmstroc(input,output);
uses CRT;
38
                                Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.


  end.




   Лабораторная работа № 8
                Обработка последовательности символов
1) Дано натуральное число n и символы q1, q2, …, qn. Подсчитать, сколько
раз среди данных символов встречается буква х.

2) Дано натуральное число n и символы q1, q2, …, qn. Преобразовать после-
довательность, заменив в ней: все восклицательные знаки точками; каж-
дую точку - многоточием; каждую из групп стоящих рядом точек одной
точкой.

3) Задана строка символов. Определить длину строки
  program stroca(input,output);
  uses CRT;
  var i:integer;s:string[15];
  begin
   clrscr;
   writeln('Введите строку символов для определения длины: ');
   readln (s);
   i:=length(s);
   writeln('Длина: ',i,' символов');
   readln;
  end.




  4) В произвольно заданной строке выделить фрагмент длиной n симво-
лов, начиная с позиции m.

  program fragmstroc(input,output);
  uses CRT;


                                      38

Страницы