суббота, 8 декабря 2018 г.

Урок с 10 по 15 декабря

Будет тест по основам ЭТ
  • Укажите правильный адрес ячейки:
  • В электронных таблицах выделена группа ячеек А1:В3. Сколько ячеек входит в этот диапазон?
  • Результатом вычислений в ячейке С1 будет:

  • В ЭТ нельзя удалить:

  • Основным элементом ЭТ является:
  •  
  • Укажите неправильную формулу:
  •  
  • Диапазон – это:

  • Рабочая книга Excel состоит из

10 а придумать задачу, решить ее




понедельник, 12 ноября 2018 г.

Задание 19 и 22 ноября

Всем и 10 а и 10 б
В тетрадь выписать команды, и что они обозначают.
1)ТЕСТ

  1. var st: string;
  2. k:=length(a);
  3. for i:=1 to length(st) do 
  4. for i:=1 to length(st) do   if st[i]=b then k:=k+1;
  5. write(’введите строку: ’); read(st);
  6. st:=st+’ ’;
  7. if length(a)>length(b) then writeln(a) else writeln(b);
  8. if (st[i]=’д ’)
  9. if (st[i]=’ .’) and (st[i+1]=’ ’)
  10. if (st[i]<>’ ’) and (st[i+1]=’ ’) then n:=n+1

2)Практическая по задачам , похожим, что решали на уроке

четверг, 11 октября 2018 г.

Задачи к практической работе

Подсчитать сколько букв а в слове?
Program aaa;
var s: string; k, i: integer;
begin
readln(s);
for i:=1 to length(s) do
if s[i]='а' then k:= k+1;
write (k);
end.

Подсчитать сколько букв  в слове и четное или нечетное количество?
Program aaa;
var s, c: string; i: integer;
begin
readln(s,c);
write(length(s)+length(c),' символов');
if (length(s)+length(c)) mod 2 = 0 then writeln(', чётное количество.')
else writeln(', нечётное количество.');
end.
Заменить буквы "а" на буквы" б" Подсчитать сколько букв заменили
Program aaa;
var s: string; k, i: integer;
begin
readln(s);
for i:=1 to length(s) do if s[i]='а' then
     begin
     s[i]:='б' ;  k:= k+1;
     end;
write ('заменили букв б ',k)
end.
На 9-10 будут похожие задачи