ДЗ на 2и 3 декабря

 Все кто не писал практическую - будут писать

Остальные отвечают долг:

В тетрадь ответы и Выучить
1. Вывод элементов массива через ;
 2. Опишите массив Р из 10 вещественных элементов
3 Вывод отрицательных чисел
4.Ввод 7 элементов массива с клавиатуры
5. Ввод 10 элементов массива с клавиатуры с комментарием
6. Вывод элеммассива А, увеличенных на 11
7 Опишите массив F из 7 целых элементов
8. .Вывод эл/ массива с новой строки
9. .Проверка числа на четность  и кратность 7
 10 Проверка числа на нечетность и кратность 4

Кто желает, тот смотрит видео на блоге СЛЕВА  по номерам

• 1
• 2
• 3
• 5

Практическая 18 и 19 ноября

 1 Написать программу, заменяющую в строке все буквы «В» на буквы «л».

2 Напишите  программу,  которая  определит  количество  слов  в  тексте,  если  между 
любыми  двумя  словами  стоит ;

3Написать программу, определяющую, сколько раз в строке встречается буква «р» маленькая, русская. 
 
4Написать программу, заменяющую в строке все буквы «м» на буквы «т» и подсчитать количество замен

5 Напишите программу, которая определит, каких букв в строке с русским текстом 
больше: «ч» или «я» 
 6 Напишите  программу,  которая  определит,  сколько  слов  в  тексте  начинается  на букву «а».

7Написать программу, определяющую, сколько раз в строке встречается буква «п» маленькая, русская и вывести все индексы буквы  «п».

8 Напишите  программу,  которая  заменит  в  заданном  тексте  из  латинских  букв все 
вхождения «l» на «lf»

9  Напишите программу, которая определит количество предложений в тексте. Предложение  заканчивается  символом  «!»

10Написать программу, определяющую является ли слово полиндромом

 Шаблон команд 

• var s:string; 
•  i,k:integer; 
• begin 
• read(s);  
•  k:=0;
• for i:= 1 to length(s)  do
•  if s[i]='а' then k:=k+1; 
• w rite('а штук' , k); 
•   for i:=1 to length(s) do
•  if s[i]='а' then s[i]:='о' ;   
•   if s[i]='а' then  w rite('индекс буквы а' , i); 
• if s[i]='а' then  begin w rite('индекс буквы а' , i); n := n+1 ;end  ;
•   if (s[i]=' ' ) and (s[i+1]='а' ) then n := n+1 ;
• 
  

 

Урок 11-12 ноября подготовка к практической работе 18 и 19 ноября

1  Напишите программу, которая определит количество предложений в тексте. Предложение  заканчивается  символом  «.»

2 Напишите  программу,  которая  определит  количество  слов  в  тексте,  если  между 
любыми  двумя  словами  может  быть  неболее  одного  пробела.  

3Написать программу, определяющую, сколько раз в строке встречается буква «п» маленькая, русская. 
 
4Написать программу, определяющую, сколько раз в строке встречается буква «л» маленькая, русская. 

5 Написать программу, заменяющую в строке все буквы «и» на буквы «ы».

  6Написать программу, определяющую, сколько раз в строке встречается буква «п» маленькая, русская и вывести все индексы буквы  «п».

7 Написать программу, заменяющую в строке все буквы «и» на буквы «ы» и подсчитать количество замен

8 Напишите программу, которая определит, каких букв в строке с русским текстом 
больше: «о» или «O» 

 9 Напишите  программу,  которая  определит,  сколько  слов  в  тексте  начинается  на 
букву «а».

10 Напишите  программу,  которая  заменит  в  заданном  тексте  из  латинских  букв все 
вхождения «f» на «kf»

Шаблон команд

• var s:string; 
•  i,k:integer; 
• begin 
• read(s);  
•  k:=0;
• for i:= 1 to length(s)  do
•  if s[i]='а' then k:=k+1; 
• w rite('а штук' , k); 
•   for i:=1 to length(s) do
•  if s[i]='а' then s[i]:='о' ;   
•   if s[i]='а' then  w rite('индекс буквы а' , i); 
• if s[i]='а' then  begin w rite('индекс буквы а' , i); n := n+1 ;end  ;

 

К уроку 11 и 12 ноября

 Выписать в тетрадь и выучить( если не знали), то что должны знать с 1 четверти. 

var s:string; описание строковой величины

read(s); ввод величины с клавиатуры

s := ' Школа '+ ' '+ 'привет ' ; склейка величины из слов

 length(s) ; подсчет количесва символов в величине

for i:= 1 to length(s) do if s[i]='A'  then ka:=ka+1; подсчет количества букв А в величине

for i:=1 to length(s) do if s[i]='а' then s[i]:='о' ;    замена букв а на о

if s[ length(s)-1]='A'  then writeln ('предпоследняя буква слова А') проверка предпоследней буквы на букву А

План работы на 2 четверть

 План работы 2 четверть

11.11 Подготовка к практической работе, решение задач

18.11 Практическая работа

2 5.11 Тест. Новая тема ирешение задач

02.12  решение задач. Итоговое зания по Pascal

09.12 Новая тема Электронные таблицы

16.12Закрепление темы. Тест по терминам

23.12 Решение задач

УРОК 28-29 ОКТЯБРЯ

 //ФАМ
//Даны строка S и символы А и В. Написать программу, определяющую, какой символ – А или В – встречается чаще
var s:string;
      k ,i,ka,kb:integer;
begin
   read(s);
   ka:=0;
   kb:=0;
for i:= 1 to length(s)
 do if s[i]='A'
  then ka:=ka+1;
 
for i:= 1 to length(s)
 do if s[i]='B'
  then kb:=kb+1;
  if ka> kb THEN write('a,ЧАЩЕ',ka)
            ELSE write('B,ЧАЩЕ',kb);
 
 
end.