🗊Презентация Литерные величины в языке программирования Pascal

Литерные величины в языке программирования Pascal

Объявление строковых и символьных величин Var a:string; b:char; В этом фрагменте программы описываются: величина а строкового типа и величина b символьного типа

Соответствие типов Var a:string; b:char; begin ************ a:=b; так можно! b:=a; так нельзя!

Склеивание строк

Процедуры и функции функции

Решение задач 1. Дана литерная величина A. Подсчитать количество букв ‘b’ в этой величине. Решение 2. Дана литерная величина A. Удалить все буквы ‘p’ в этой величине. Решение 3. Дана литерная величина A. Вставить после каждой буквы ‘a’ букву ‘k’ в этой величине. Решение 4. Дана литерная величина A. Вставить перед каждой буквой ‘в’ букву ‘с’ в этой величине. Решение 5. Дана литерная величина A. Заменить слог ‘мa’ на ‘пa’ в этой величине. Решение 6. Дана литерная величина A. Удвоить слоги ‘пo’ в этой величине. Решение 7. Дана литерная величина A. Удалить все слоги 'до' из нее. Решение 8. Дана литерная величина A. Подсчитать количество слов, начинающиеся буквой ‘к’, cлова разделены только пробелами. Решение 9. Дана литерная величина A. Удвоить все слова ‘мама’ в этой величине, cлова разделены только пробелами. Решение 10. Дана литерная величина A. Удалить все слова ‘давление’ в этой величине, cлова разделены только пробелами. Решение 11. Дана литерная величина A. Удалить все слова, у которых вторая буква равна предпоследней в этой величине, cлова разделены только пробелами. Решение 12. Дана литерная величина A. Выяснить встречаются ли в литерной величине все буквы слова ‘лето’. Решение

Задача 1 Program exp1; Var A:string; k,i:integer; Begin writeln ('Введите строку'); readln (A); k:=0; for i:=1 to length(A) do if copy (A,i,1)=‘b’ then inc(k); write(k); end.

Задача 2 Program exp2; Var A:string; i:integer; Begin writeln ('Введите строку'); readln (A); i:=1; while i<=length(A) do if (a[i]='р' )or (a[i]=‘P' ) then delete (A,i,1) else inc(i); writeln('Результат: '); write(A); end.

Задача 3 Program exp3; Var A:string; i:integer; Begin writeln ('Введите строку'); readln (A); i:=1; while i<=length(A) do if copy (A,i,1)='а' then begin insert (‘k',A,i+1); inc(i,2); end else inc(i); writeln('Результат: '); write(A); end.

Задача 4 Program exp4; Var А:string; i:integer; Begin writeln ('Введите строку'); readln (А); i:=1; while i<=length(А) do if copy (А,i,1)='в‘ then begin insert ('с',А,i); inc(i,2); end else inc(i); writeln('Результат: '); write(А); end.

Задача 5 Program exp5; Var А:string; i:integer; begin writeln ('Введите строку'); readln (А); i:=1; while i<=length(А)-1 do if copy (А,i,2)='ма' then begin delete (А,i,2); insert ('при',А,i); inc(i,3); end else inc(i); writeln('Результат: '); write(А); end.

Задача 6 Program exp6; Var a:string; i:integer; Begin writeln ('Введите строку'); readln (a); i:=1; while i<=length(a)-1 do if copy (a,i,2)='по' then begin insert ('по',a,i+2); inc(i,4); end else inc(i); writeln('Результат: '); write(a); end.

Задача 7 Program exp7; Var a:string; i:integer; begin writeln ('Введите строку'); readln (a); i:=1; while i<=length(a)-2 do if copy (a,i,3)=‘cop' then delete (a,i,3) else inc(i); writeln('Результат: '); write(a); end.

Задача 8 Program exp8; Var a:string; i,k:integer; begin writeln ('Введите строку'); readln (a); insert (' ',a,1); k:=0; for i:=1 to length(a)-1 do if copy (a,i,2)=‘ к‘ then inc(k); writeln('Результат: '); write(k); end.

Задача 9 Program exp9; Var a:string; i:integer; begin writeln ('Введите строку'); readln (a); a:=‘ ‘+a+’ ‘; i:=1; while i<= length(a)-5 do if copy (a,i,6)=' мама ' then begin insert ('мама ',a,i+6); inc(i,10); end else inc(i); writeln('Результат: '); write(a); end.

Задача 10 Program exp10; Var a:string; i:integer; begin writeln ('Введите строку'); Readln(a); a:=‘ ‘+a+’ ‘; i:=1; while i<= length(a)-9 do if copy (a,i,10)=‘ давление ‘ then delete (a,i,9) else inc(i); writeln('Результат: '); write(a); end.

Задача 11 Program exp11; Var a:string; i,k,b:integer; begin writeln ('Введите строку'); readln(a); insert(' ',a,1); insert(' ',a,length(a)+1); i:=1; while i<=length(a)-3 do if (a[i]=' ') and (a[i+1]<>' ') then begin inc(i); b:=i; k:=0; while ((i<=length(a)) and (a[i]<>' ')) do begin inc(i); inc(k); end; if ((k>=4) and (a[b+1]=a[i-2])) then delete(a,b,k); end else inc(i); writeln('Результат:'); write(a); end.

Задача 12 Program exp12; Var a:string; i,c,x,y:integer; begin writeln ('Введите строку'); readln (a); i:=pos(‘л’,a); c:=pos(‘е’,a); x:=pos(‘т’,a); y:=pos(‘о’,a); If (i<>0) and (c<>0) and (x<>0) and (y<>0) then writeln(‘да’) else writeln(‘нет’); end.