пятница, 16 ноября 2018 г.

Подготовка к практической с19-23 ноября

1.      Подсчитать сумму чисел

for i:=1 to 5 do Sum:=Sum+h[i];

2.      Подсчитать сумму четных чисел

 for i:=1 to 5 do   if h[i] mod 2 = 0 then Sum:=Sum+h[i];
3.      Увеличить каждый элемент массива на 7

for i:=1 to 5 do h[i]:=h[i]+7 ;

4.      Подсчитать сумму положительных чисел

for i:=1 to 5 do if  h[i] >0  then Sum:=Sum+h[i];

5.      Подсчитать сумму чисел, больших 150

for i:=1 to 5 do if  h[i] >150  then Sum:=Sum+h[i];

6.      Подсчитать количество нечетных чисел

 for i:=1 to 5 do   if h[i] mod 2 = 1 then k:=k+1
7.      Подсчитать количество четных чисел  и больших 5

 for i:=1 to 5 do   if (h[i] mod 2 = 0) and ( h[i] >0)   then k:=k+1
8.      Подсчитать количество четных чисел  и больших 10

for i:=1 to 5 do   if (h[i] mod 2 = 0) ( h[i] >0)  then k:=k+1
Задача о нахождении максимального элемента стр53

вторник, 9 октября 2018 г.

Решение задач к практической работе 15-19 октября


Увеличить каждый элемент массива на 2 
program aaa;
var h: array[1..5] of integer;
 i:integer;
begin
      for i:=1 to 5 do       read(h[i]);
      for i:=1 to 5 do h[i]:=h[i]+2 ;
  for i:=1 to 5 do      writeln ('новый элем ', h[i]);
end.

Подсчитать сумму чисел, введенных с клавиатуры
program aaa;
var h: array[1..5] of integer;
 Sum,i:integer;
begin
Sum:=0;
      for i:=1 to 5 do       read(h[i]);
      for i:=1 to 5 do Sum:=Sum+h[i];
write('Сумма чисел =',Sum);
end.
Подсчитать сумму положительных чисел, введенных с клавиатуры
program aaa;
var h: array[1..5] of integer;
 Sum,i:integer;
begin
Sum:=0;
      for i:=1 to 5 do       read(h[i]);
      for i:=1 to 5 do if  h[i] >0  then Sum:=Sum+h[i];
write('Сумма чисел =',Sum);
end.
Подсчитать сумму отрицательных чисел, введенных с клавиатуры
program aaa;
var h: array[1..5] of integer;
 Sum,i:integer;
begin
Sum:=0;
      for i:=1 to 5 do       read(h[i]);
      for i:=1 to 5 do if h[i]<0 then Sum:=Sum+h[i];
write('Сумма чисел =',Sum); 
end.
Подсчитать сумму четных чисел, введенных с клавиатуры
program aaa;
var h: array[1..5] of integer;
 Sum,i:integer;
begin
Sum:=0;
      for i:=1 to 5 do       read(h[i]);
      for i:=1 to 5 do   if h[i] mod 2 = 0 then Sum:=Sum+h[i];
write('Сумма чисел =',Sum);
end.







понедельник, 7 мая 2018 г.

Анимация текста

1. Одно слово исчезает, второе появляется- shape
2  слово превращается в другое слово и в третье слово - shape
3 слово двигается по листу уходит за край листа стр 131- motion
4 несколько слов на разных слоях двигаются по листу и выстраиваются внизу листа в нужном порядке- motion
5 слово  преобразуется в искаженное наклоненное слово - motion стр128
6  слово  преобразуется в искаженное наклоненное слово и еще раз преобразуется в искаженное наклоненное  - motion
7 Слово превращается в другое и уходит за край листа-shape, motion
8. .Слово разделить по слоям, каждая буква двигается и собирается в одно слово(рассыпанные буквы) стр 131
9- 10 создать анимированный плакат

понедельник, 12 марта 2018 г.

Урок 12 марта

На 10 баллов
На 8 баллов
1 слой

Сделать фон голубым В углу написать свою фам (arial cyr
1 балла
2 слой

Нарисовать ежика –серо-коричн градиент
2 балла
3 слой

импортировать зайку
3 балла
4 слой

Импортировать цветок  

4 слой
ПА
через5 кадров появляются еще 5 цветов
4 баллов
5 слой
АФ
Нарисовать солнце меняет цвет и  форму на тучу
5 баллов
3 слой
АФ
Фамилия превращается в имя с 1по 40 кадр
6 баллов
2 слой
АД
Ежик пересекает полянку
7 баллов
3 слой
4 слой
АД
Зайка прыгает с цветком

6 слой
АФ и АД
Нарисовать пень, он  превращается в чудовище и бежит за зайцем
8 баллов

понедельник, 19 февраля 2018 г.

Домашняя работа на 12 марта

Продумать алгоритм своего мудьтфильма. в тетрадь

урок 19 февраля


 «Две коровы играют в мяч »

1 слой
Сделать фон голубой В углу написать свою фам (arial cyr) Фамилия превращается в имя
1 балла
2 слой
Нарисовать сетку
2 балла
3 слой
Нарисовать мяч, сделать его объектом
3 балла
4 слой
импортировать корову
4 балла
5 слой
импортировать корову
5 балла
коровы двигаются, мяч летает(играют в волейбол)

Подготовка к практической с19-23 ноября

1.       Подсчитать сумму чисел for i:=1 to 5 do Sum:=Sum+h[i]; 2.       Подсчитать сумму четных ч...