Оцените презентацию от 1 до 5 баллов!
Тип файла:
ppt / pptx (powerpoint)
Всего слайдов:
23 слайда
Для класса:
1,2,3,4,5,6,7,8,9,10,11
Размер файла:
201.50 kB
Просмотров:
116
Скачиваний:
0
Автор:
неизвестен
Слайды и текст к этой презентации:
№1 слайд
Содержание слайда: Литерные величины в языке программирования Pascal
№2 слайд
№3 слайд
Содержание слайда: Объявление строковых и символьных величин
Var a:string;
b:char;
В этом фрагменте программы описываются: величина а строкового типа и величина b символьного типа
№4 слайд
Содержание слайда: Соответствие типов
Var a:string;
b:char;
begin
************
a:=b; так можно!
b:=a; так нельзя!
№5 слайд
Содержание слайда: Склеивание строк
№6 слайд
Содержание слайда: Процедуры и функции
функции
№7 слайд
№8 слайд
№9 слайд
№10 слайд
№11 слайд
Содержание слайда: Решение задач
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. Выяснить встречаются ли в литерной величине все буквы слова ‘лето’. Решение
№12 слайд
Содержание слайда: Задача 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.
№13 слайд
Содержание слайда: Задача 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.
№14 слайд
Содержание слайда: Задача 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.
№15 слайд
Содержание слайда: Задача 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.
№16 слайд
Содержание слайда: Задача 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.
№17 слайд
Содержание слайда: Задача 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.
№18 слайд
Содержание слайда: Задача 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.
№19 слайд
Содержание слайда: Задача 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.
№20 слайд
Содержание слайда: Задача 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.
№21 слайд
Содержание слайда: Задача 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.
№22 слайд
Содержание слайда: Задача 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.
№23 слайд
Содержание слайда: Задача 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.