Главное меню  

   

Авторизация  

   
   
Хостинг в Украине
   


49.9%Russian Federation Russian Federation
24.5%Ukraine Ukraine
14.6%United States United States
1.9%Belarus Belarus
1.1%Romania Romania
0.8%Kazakhstan Kazakhstan
0.8%Czech Republic Czech Republic
0.7%United Kingdom United Kingdom
0.6%Republic Of Moldova Republic Of Moldova
0.6%Kuwait Kuwait

Сегодня: 46
Вчера: 315
На этой неделе: 1912
На прошлой неделе: 2232
В этом месяце: 6384
В прошлом месяце: 6131
Всего: 19365


   

Учитель информатики Бамбуркин С.П.

Записи

  • Главная
    Главная Страница отображения всех блогов сайта
  • Категории
    Категории Страница отображения списка категорий системы блогов сайта.

Практическая работа «Обработка символьных величин»

Добавлено : Дата: в разделе: 10 класс

 Задача. Сколько раз в слове повторяется буква.(написать программу на компьютерах).

Program Kolichestvo_bukv;
var slovo: string;
bukva: char;
len, i, k:integer;
begin
writeln ('задайте слово ');
readln (slovo);
writeln ('задайте букву ');
readln (bukva);
k:=0;
len:=length(slovo);//- колличество букв в слове
for i:=1 to len do
begin
if slovo[i]=bukva then //ищем букву в слове
k:=k+1;//- если находим прибавляем 1
end;
writeln ('количество букв' ,bukva, ' в слове ' ,slovo,' - ',k);
end.

 Знакомство с функцией POS

Функция  POS   осуществляет поиск некоторого фрагмента в строке. 
Если такого фрагмента нет, то результат = 0.

N= pos (w, word);          - номер позиции;

Задача.   Какую  позицию имеет в тексте ‘электрификация’   произвольный символ?

program p3;
var word, w: string; N: integer;
begin
readln(word);
writeln ('введите фрагмент для поиска');
readln (w);
N:= pos (w, word); // - номер позиции;
if N <> 0 then writeln ('позиция =',N)
else writeln ('такого фрагмента нет');
end.

Задача. Исправьте ошибки в слове «вилисипидисты»

Program velosiped;
var v: string;
i, len :integer;
begin
v:='вилисипидисты';
len:=length(v);//- колличество букв в слове
for i:=1 to len do
begin
insert('e',v,2);// - вставить «е» на 2 позицию
delete(v,3,1); //- удалить букву с 3 позиции, то есть «и».
insert('o',v,4);
delete(v,5,1);
insert('e',v,8);
delete(v,9,1);
end;
writeln(v);
end.
Редактировалось Дата:

Комментарии   

 
0 # Mai 10.10.2017 08:20
Will slammed his cock deep into my wife s cunt no condom my wife was on the pill.
We used to watch the Food Network and choose different recipes to try, and on Saturday nights, I d make fancy
dinners for Mom and Dad.

Feel free to surf to my webpage ... pdf; http://rubinko.wz.cz/wp-content/uploads/2017/10/KnihyctIr.html: http://rubinko.wz.cz/wp-content/uploads/2017/10/KnihyctIr.html,
Ответить
 

Добавить комментарий


Защитный код
Обновить

   
© 2012 fordus.