Приобретение практических навыков работы с ПК Изучение основ информатики и начал программирования Освоение мультимедийных возможностей компьютера Начальная. - презентация

1

2

3

4 Приобретение практических навыков работы с ПК Изучение основ информатики и начал программирования Освоение мультимедийных возможностей компьютера Начальная подготовка к ЕГЭ

5

6

7

8

9

10

11

12

13 Пример многостраничного документа

14

15

16 Цель обучения: Научиться работать с базами данных Ms Access 2010

17

18

19

20 begin var count := 0; var beg := Random( )+2; for var i:=beg to beg+5000 do begin var f := True; var j := 2; var r := round(sqrt(i)); while f and (j<=r) do if i mod j = 0 then f := false else j += 1; if f then begin write(i,' '); Inc(count); if count mod 5 = 0 then writeln; end; end. begin var count := 0; var beg := Random( )+2; for var i:=beg to beg+5000 do begin var f := True; var j := 2; var r := round(sqrt(i)); while f and (j<=r) do if i mod j = 0 then f := false else j += 1; if f then begin write(i,' '); Inc(count); if count mod 5 = 0 then writeln; end; end. var Rost, Ves: integer; N: string; begin write('Как Вас зовут?'); read(N); write('Какой у Вас рост в метрах?'); read(Rost); write('Каков Ваш вес в кг?'); read(Ves); if (Rost>180)and(Ves>80) then write('Вы – достойный кандидат в гренадеры, ',N,'!') else write('К сожалению, ',N,' в гренадеры Вы не годитесь!'); end. var Rost, Ves: integer; N: string; begin write('Как Вас зовут?'); read(N); write('Какой у Вас рост в метрах?'); read(Rost); write('Каков Ваш вес в кг?'); read(Ves); if (Rost>180)and(Ves>80) then write('Вы – достойный кандидат в гренадеры, ',N,'!') else write('К сожалению, ',N,' в гренадеры Вы не годитесь!'); end. uses GraphABC; begin Coordinate.Origin := Window.Center; Coordinate.SetMathematic; Brush.Color := Color.LightSkyBlue; while True do begin LockDrawing; ClearWindow; Ellipse(-120,-70,120,70); Line(0,0,200,0); Line(0,0,0,200); Redraw; Coordinate.Angle := Coordinate.Angle + 1; Sleep(100); end; end. uses GraphABC; begin Coordinate.Origin := Window.Center; Coordinate.SetMathematic; Brush.Color := Color.LightSkyBlue; while True do begin LockDrawing; ClearWindow; Ellipse(-120,-70,120,70); Line(0,0,200,0); Line(0,0,0,200); Redraw; Coordinate.Angle := Coordinate.Angle + 1; Sleep(100); end; end.

21 Образцы задач

22

23

24

25

26

27 диплом победителя за 1 место грамота лауреата

28 Успешное освоение программы дает возможность продолжить обучение на профессиональных курсах Образовательного центра «Нива»: «Основы Web-дизайна» «Основы Web-программирования» «Основы PHP-программирования» «Администратор сети» «Основы Flash-анимации» «Векторная графика: 3D Studio Max»