- Главная
- Разное
- Образование
- Спорт
- Естествознание
- Природоведение
- Религиоведение
- Французский язык
- Черчение
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, фоны, картинки для презентаций
- Экология
- Экономика
Презентация, доклад по темеОбработка строк
Содержание
- 1. Презентация по темеОбработка строк
- 2. ПРОВЕРКА Домашней работы 3.Дана символьная строка.
- 3. 4.Дана строка.Определить,сколько в ней символов * ,
- 4. Решение задач.Обработка строк
- 5. Задача 1. Дана строка, содержащая текст. Найти
- 6. 2.Дана строка, содержащая текст, заканчивающийся точкой. Вывести
- 7. Практическая работа 1.Дана строка. Определить, сколько раз входит в нее группа букв abc.
- 8. Решение :varstr: string;cnt: integer;beginreadln(str);while pos('abc',str)0 dobegindelete(str,pos('abc',str),3);inc(cnt);end;writeln(cnt);end.
Слайд 2ПРОВЕРКА Домашней работы 3.Дана символьная строка. Подсчитать в ней количество вхождений
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.
Слайд 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.
Слайд 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
end;
k:=k+1;
end;
writeln('Самое короткое: ',min,'; самое длиное: ',max);
end.
Слайд 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.
Слайд 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.
