III. Первичная проверка усвоения знаний и закрепление знаний

Учитель решает задачи на интерактивной доске, учащиеся решают в тетрадях.. Идём обсуждение правильного решения задач.

· Определить длину строки "Информатики".

K=length(‘Информатики’); K=11

· Получить из слова " Информатики " слово "форма".

S:=’Информатика’

S1:=copy(S, 3, 5)

S1=’форма’

· Чему равна строка M:= copy (S,1,4)

S2=’инфо’

· Получить из слов "Язык", "Turbo", "Pascal" фразу "Язык Turbo Pascal".

A:=’ Язык’;

B:=’ Turbo’

D:= ‘Pascal’

С:=A+’ ’+B+’ ’+D

· Какова позиция буквы "и" в слове "Книга".

S:=’ Книга ’

S1:= ‘и’

K1=Pos(Sl, S); K1=3

· Преобразовать "a" в "A".

S1:=upcase(‘а’)

· Чему станет равной строка M1 после выполнения операторов?

М:= ’моток’

М1:=insert(‘ло’,M,3)

M1=’ молоток’

IV. Отработка навыков

Составьте программу, которая в строке подсчитает количество букв «r».

Program Podschet;

var s: string; i, kol: integer;

Begin

write('Vvedite stroku '); readln (s);

for i:= 1 to length(s) do if copy(S, i, 1)='r' then kol:=kol+1;

write('Bukva "r" vstrechaetsya=',kol, ' raz');

readln;

End.

V. Рефлексия и подведение итогов урока

VI.Домашнее задание.

Выучить команды работы с символьными данными (отработать данню программу)

Дата добавления: 2018-05-12; просмотров: 348; Мы поможем в написании вашей работы!

Поделиться с друзьями: