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

Презентация:



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

Создание движущихся объектов. USES Graph; VAR x, Device, Mode: Integer; BEGIN Device:=0; InitGraph(Device, Mode, ); ReadLn; x:=40; repeat SetColor(White);
Позволяет освоить азы компьютерной грамотности и научиться работать в операционной системе Microsoft Windows с пакетом офисных программ Позволяет освоить.
5.Дана матрица А и вектор Х соответствующих размерностей. Нечетные строки матрицы заменить элементами вектора Х. Результаты работы: n=4 m=
Алгоритмические структуры 1.Линейный 2.Ветвление 3.Цикл.
Тема: Нахождение минимального и максимального элемента в массиве.
1 Программирование на языке Паскаль Тема 2. Максимальный элемент массива.
Урок информатики 9 физико-математический класс.
PROGRAM example1; const m=100; var a : ARRAY [1.. m] of INTEGER; i,k,n,q : INTEGER; BEGIN readln (n); randomize; WRITELN('Полученный массив:' ); FOR i.
Тема: «Понятие квадратная матрица» :17:47.
3. Дана прямоугольная матрица, элементами которой являются целые числа. Поменять местами ее строки следующим образом: первую строку с последней, вторую.
АЛГОРИТМ ВЕТВЛЕНИЯ ОПЕРАТОР ВЕТВЛЕНИЯ. Какая задача решается по этой программе? Program Z1: Var a,b,c: integer; Begin Write ( vv a,b:); Read (a,b); C:=(a+b)*(b-a);
Задача: определить является ли простым заданное число.
Обработка символов строки. Дано слово. Переставить первые три и последние три буквы, сохранив порядок их следования.
класс-ПОВТОРЕНИЕ ОСНОВНЫХ ПОНЯТИЙ ТЕМЫ « ОСНОВЫ АЛГОРИТМИЗАЦИИ И ПРОГРАММИРОВАНИЯ » 8 КЛАСС.
Циклы. Вычислить сумму ряда чисел Program sum; var a: integer; s: real; Begin a:=1; s:=0; while a<600 do begin a:=a+1; s:=s+1/a; end; writeln ( ' s=
Курс преподается в Образовательном центре «Нива» с 1996 года Курс преподается в Образовательном центре «Нива» с 1996 года Позволяет освоить азы компьютерной.
1 Программирование на языке Паскаль Максимальный элемент массива.
Мозговой штурм по Паскалю. 1.Заголовок программы 2.Подключение библиотек (модулей) 3.Описание переменных 4.Типы переменных 5.Оператор присваивания 6.Оператор.
Учитель математики МБОУ «СОШ 2» Перевезенцева Елена Николаевна Г.Новочебоксарск,2011.
Транксрипт:

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

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

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

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.

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

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

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