Урок 71 Інформатика 10 (АП)
Лабораторна робота № 10
“Реалізація алгоритмів з обробкою рядкових величин у вигляді програм (проектів)”
Мета:
Навчальна. Навчитися самостійно реалізовувати мовою програмування алгоритми алгоритми для роботи з рядковими величинами.
Розвиваюча. Розвивати логічне та алгоритмічне мислення, вміння застосовувати набуті знання.
Виховна. Виховувати наполегливість, самостійність, культуру оформлення програм.
Матеріали для роботи з учнями:
План
Хід уроку
1. Актуалізація опорних знань.
2. Техніка безпеки під час роботи на ПК.
Інструктаж з ТБ при роботі з ПК та в комп’ютерному класі.
Комплекс вправ для зняття зорової втоми.
3. Лабораторна робота № 9 “Реалізація алгоритмів з одновимірними і двовимірними масивами у вигляді програм (проектів)”
!!! Виконуючи роботу, необхідно дотримуватись правил техніки безпеки та протипожежної безпеки !!!
Варіанти завдань для самостійного виконання.
Варіант 1
1. Ввести довільний текст. Відредагувати його, замінивши всі символи «;» на «:».
2. Ввести довільний текст. У ньому замінити всі слова «час» на «світ».
Варіант 2
1. Ввести довільний текст. У ньому видалити всі символи «,» та знайти довжину утвореного тексту.
2. Ввести текст “Я люблю спорт”. Замінити слово “люблю” на “недолюблюю”.
Варіант 3
1. Ввести довільний текст. У ньому видалити всі символи «д» та знайти довжину утвореного тексту.
2. Ввести текст “Нарешті почалася весна”. Замінити слово “Нарешті” на “Ура,”.
Варіант 4
1. Ввести довільний текст. У ньому замінити всі слова «мама» на «тато».
2. Ввести текст “Скоро канікули!”. Замінити слово “канікули” на “додому”.
Варіант 5
1. Ввести довільний текст. Підрахувати, скільки раз у введеному тексті зустрічається буквосполучення «то».
2. Ввести довільний текст. У ньому замінити всі слова «чистий» на «брудний».
Варіант 6
1. Ввести довільний текст. У ньому замінити всі слова «весна» на «літо».
2. Ввести довільний текст. Підрахувати, скільки раз у введеному тексті зустрічається буквосполучення «ся».
Варіант 7
1. У введеному тексті підрахувати кількість букв «а» та «б» і сповістити, яких букв більше.
2. Ввести довільний текст. У ньому замінити всі слова «гарна» на «погана».
Варіант 8
1. Підрахувати кількість слів, які починаються на літеру “А” у введеному тексті.
2. Ввести довільний текст. У ньому замінити всі слова «закриті» на «відкриті».
Варіант 9
1. Порахувати скільки скільки слів закінчуються на літеру «о». Текст ввести без розділових знаків.
2. Ввести текст “Відкрийте ваші робочі зшити”. Замінити слово “Відкрийте” на “Закрийте”.
Варіант 10
1. Ввести довільний текст. У ньому замінити всі літери «а» на «и».
2. Ввести текст “Запишіть домашнє завдання”. Замінити слово “Запишіть” на “Виконайте”.
5. Підсумки уроку.
Оцінювання учнів.
Аналіз виконання завдань.
6. Домашнє завдання.
1. Повторити вивчений матеріал.
2. Виконати завдання наступного варіанту.
Приклади задач:
1. В заданому тексті підрахувати кількість слів. Слова в тексті відокремлені проміжками.
program text;
var s: string;
i,k: integer;
begin
write ('Введіть текст ');
readln(s);
k:=0;
for i:=1 to length(s) do
if (s[i]<>' ') and ((s[i-1]=' ')or (i=1)) then
k:=k+1;
write ('Кількість слів у тексті = ', k);
end.
2. Змінити у введеному тексті літеру “а” на “уя”.
program zmina_liter;
uses crt;
var t, t1, x: string;
i,k, n: integer;
begin
write ('Введіть вхідний текст');
readln(t);
k:=0;
n:=length(t);
t1:=’’;
for i:=1 to n do
begin
x:=Copy(t,i,1);
if x='a' then
t1:=t1+’уя’
else t1:=t1+x;
end;
writeln;
writeln ('Новый текст: ');
writeln(t1);
readln;
end.
3. В заданому тексті: “Бажаю тобі веселих канікул” замінити слово “тобі” на “вам”.
program p1;
var R,R1: string;
begin
R:='Бажаю тобі веселих канікул';
R1:='вам';
delete(R,7,4);
insert (R1,R,7);
writeln(R);
end.
4. Ввести довільний текст. У ньому видалити всі символи «а» та знайти довжину утвореного тексту.
program zamina_symvolu;
uses crt;
var t:string;
i,n: integer;
begin
writeln('Введіть вхідний текст');
readln(t);
i:=0;
while i<=length(t) do
begin
if t[i]='а' then
delete (t,i,1)
else
i:=i+1;
end;
writeln(t);
writeln(length(t));
readln;
end.
5. Ввести довільний текст. У ньому замінити всі слова «сміх» на «плач».
program zamina_slova;
var t,t1,t2:string;
i,k,n: integer;
flag:boolean;
begin
writeln('Введіть вхідний текст');
readln(t);
t1:='плач';
t2:='сміх';
flag:=true;
while flag=true do
begin
k:=pos (t2,t);
if k>0 then
begin
delete (t,k,length(t2));
insert (t1,t,k);
end
else
flag:=false;
end;
writeln(t);
end.