Презентация, доклад на тему Решение задач по обработке строк

ПРОВЕРКА Домашней работы 3.Дана символьная строка. Подсчитать в ней количество вхождений букв r, k, tvar st: string; i, count: integer;begin readln(st); for i:=1 to length(st) do if st[i] in ['r', 'k', 't'] then

Слайд 1Обработка строк

Обработка строк

Слайд 2ПРОВЕРКА Домашней работы 3.Дана символьная строка. Подсчитать в ней количество вхождений

букв r, k, t

var
st: string;
i, count: integer;
begin
readln(st);
for i:=1 to length(st) do
if st[i] in ['r', 'k', 't'] then
inc(count);
writeln(count);
end.

ПРОВЕРКА Домашней работы  3.Дана символьная строка. Подсчитать в ней количество вхождений букв r, k, tvar st:

Слайд 34.Дана строка.Определить,сколько в ней символов * , ; , : .
Решение

:
Var
s: String;i,k1,k2,k3: Integer;
BEGIN
Writeln('Введите строку: '); Readln(s);
For i:=1 to Length(s) do
begin
If s[i]='*' Then Inc(k1);
If s[i]=';' Then Inc(k2);
If s[i]=':' Then Inc(k3);
end;
Writeln('Количество знаков "*" = ',k1);
Writeln('Количество знаков ";" = ',k2);
Writeln('Количество знаков ":" = ',k3);
Readln
END.


Слайд 4Решение задач.Обработка строк

Решение задач.Обработка строк

Слайд 5Задача 1. Дана строка, содержащая текст. Найти длину самого короткого слова

и самого длинного слова

Решение 1. Var s:string; max,min,i,k:integer;
begin
write('Введите строку: ');
readln(s);
s:=s+' ';
for i:=1 to length(s) do
  begin
  if s[i]=' ' then
     begin
     if k>max then max:=k;
     if (k     k:=-1;
     end;
  k:=k+1;
  end;
writeln('Самое короткое: ',min,'; самое длиное: ',max);
end.

Задача 1. Дана строка, содержащая текст. Найти длину самого короткого слова и самого длинного слова Решение 1.

Слайд 62.Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие

три буквы.

Решение. c,s: string;
begin
write ('vvedite stroku: '); readln (s);
for i:=1 to length(s) do
if (s[i]<>' ') and (s[i]<>'.') then c:=c+s[i]
else begin
if length (c)=3 then writeln (c);
c:=‘ ’; end;
read;
end.

2.Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три буквы. Решение. c,s: string;beginwrite ('vvedite

Слайд 7Практическая работа
1.Дана строка. Определить, сколько раз входит в нее группа

букв abc.
Практическая работа 1.Дана строка. Определить, сколько раз входит в нее группа букв abc.

Слайд 8Решение :
var
str: string;
cnt: integer;
begin
readln(str);
while pos('abc',str)0 do
begin
delete(str,pos('abc',str),3);
inc(cnt);
end;
writeln(cnt);
end.

Решение :varstr: string;cnt: integer;beginreadln(str);while pos('abc',str)0 dobegindelete(str,pos('abc',str),3);inc(cnt);end;writeln(cnt);end.

Что такое shareslide.ru?

Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.


Для правообладателей

Яндекс.Метрика

Обратная связь

Email: Нажмите что бы посмотреть