Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Свидетельство о публикации

Автоматическая выдача свидетельства о публикации в официальном СМИ сразу после добавления материала на сайт - Бесплатно

Добавить свой материал

За каждый опубликованный материал Вы получите бесплатное свидетельство о публикации от проекта «Инфоурок»

(Свидетельство о регистрации СМИ: Эл №ФС77-60625 от 20.01.2015)

Инфоурок / Другое / Презентации / Презентация на тему "Программирование на языке Pascal"
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону № 313-ФЗ все педагоги должны пройти обучение навыкам оказания первой помощи.

Дистанционный курс "Оказание первой помощи детям и взрослым" от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (180 часов). Начало обучения новой группы: 28 июня.

Подать заявку на курс
  • Другое

Презентация на тему "Программирование на языке Pascal"

библиотека
материалов
Тема: Программирование на Pascal Форма: соревнование в группах Цель урока: вы...
Length Var Circle Integer While Begin String Rectangle Program Real For i:=1...
Посчитайте G при x=123, y=-247, z=-7569 В программе Pascal
G= program Formyla; var x,y,z:integer; g:real; begin x:=123;y:=-247; z:=-7569...
Откройте программу PowerPoint, запишите операторы Открыть цикл с параметром о...
For x:=1 to N do Write (‘Площадь круга равна’, S, ‘кв.см’); Rectangle (100, 1...
18 Div 5 19 Mod 6 30 Div 4 33 Div 3 27 Mod 7 42 Mod 5 1 3 1 Div Mod 7 6 11 2
20 Div 6 21 Mod 5 23 Div 3 44 Div 4 46 Mod 8 37 Mod 5 2 3 1 Div Mod 7 6 11 2
21 Div 9 21 Mod 4 34 Div 3 77 Div 7 49 Mod 8 17 Mod 2 3 3 1 Div Mod 11 1 11 1
Исправь ошибки в программе
Исправьте ошибки в программе Требуется найти сумму 7 целых чисел, которые пол...
Program Summa; Var i, s: integer; x: array [1..7] of integer; begin For i:=1...
S := '987654321'; S1 := Copy ( S, 3, 6); S2 := Copy ( S1, 2, 3); S3:=Insert (...
Высокий «5» Выше среднего «4 +» Удовлетво- рительный «3» Ниже среднего «4 - »...
15 1

Подайте заявку сейчас на любой интересующий Вас курс переподготовки, чтобы получить диплом со скидкой 50% уже осенью 2017 года.


Выберите специальность, которую Вы хотите получить:

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

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ

Описание презентации по отдельным слайдам:

№ слайда 1 Тема: Программирование на Pascal Форма: соревнование в группах Цель урока: вы
Описание слайда:

Тема: Программирование на Pascal Форма: соревнование в группах Цель урока: выявить уровень изученных ЗУН по данной теме урока. Задачи: Знать базовые понятия программирования Ликвидировать неосмысленность материала Воспитывать целеустремленность, толерантность.

№ слайда 2 Length Var Circle Integer While Begin String Rectangle Program Real For i:=1
Описание слайда:

Length Var Circle Integer While Begin String Rectangle Program Real For i:=1 Repeat Uses Graph Array If …Then Read Write Arc 1 2 3

№ слайда 3 Посчитайте G при x=123, y=-247, z=-7569 В программе Pascal
Описание слайда:

Посчитайте G при x=123, y=-247, z=-7569 В программе Pascal

№ слайда 4 G= program Formyla; var x,y,z:integer; g:real; begin x:=123;y:=-247; z:=-7569
Описание слайда:

G= program Formyla; var x,y,z:integer; g:real; begin x:=123;y:=-247; z:=-7569; g:=Sqrt(4*x*Sqr(x)+5*Sqr(y))/Abs(7.5*x*y+z)+x*Sqr(x)*Sqr(x); writeln (g); end. -1911714228.98818

№ слайда 5 Откройте программу PowerPoint, запишите операторы Открыть цикл с параметром о
Описание слайда:

Откройте программу PowerPoint, запишите операторы Открыть цикл с параметром от 1 до N Вывести сообщение: Площадь круга равна 40 кв.см Квадрат размером 60*60 Если Х≥У то А=Х-У иначе А=У-Х Описать массив от 1 до 15 элемента целых чисел с именем К Открыть цикл с предусловием пока Х<100 повторять Х+10 Часть окружности

№ слайда 6 For x:=1 to N do Write (‘Площадь круга равна’, S, ‘кв.см’); Rectangle (100, 1
Описание слайда:

For x:=1 to N do Write (‘Площадь круга равна’, S, ‘кв.см’); Rectangle (100, 110, 160, 170); If X>=Y Then A:=X-Y else A:=Y-X; Var K : array[1..N] of integer; While X<100 do X:=X+10; Arc (100,100, 50, 270, 90);

№ слайда 7 18 Div 5 19 Mod 6 30 Div 4 33 Div 3 27 Mod 7 42 Mod 5 1 3 1 Div Mod 7 6 11 2
Описание слайда:

18 Div 5 19 Mod 6 30 Div 4 33 Div 3 27 Mod 7 42 Mod 5 1 3 1 Div Mod 7 6 11 2

№ слайда 8 20 Div 6 21 Mod 5 23 Div 3 44 Div 4 46 Mod 8 37 Mod 5 2 3 1 Div Mod 7 6 11 2
Описание слайда:

20 Div 6 21 Mod 5 23 Div 3 44 Div 4 46 Mod 8 37 Mod 5 2 3 1 Div Mod 7 6 11 2

№ слайда 9 21 Div 9 21 Mod 4 34 Div 3 77 Div 7 49 Mod 8 17 Mod 2 3 3 1 Div Mod 11 1 11 1
Описание слайда:

21 Div 9 21 Mod 4 34 Div 3 77 Div 7 49 Mod 8 17 Mod 2 3 3 1 Div Mod 11 1 11 1

№ слайда 10 Исправь ошибки в программе
Описание слайда:

Исправь ошибки в программе

№ слайда 11 Исправьте ошибки в программе Требуется найти сумму 7 целых чисел, которые пол
Описание слайда:

Исправьте ошибки в программе Требуется найти сумму 7 целых чисел, которые пользователь введёт сам через клавиатуру.

№ слайда 12 Program Summa; Var i, s: integer; x: array [1..7] of integer; begin For i:=1
Описание слайда:

Program Summa; Var i, s: integer; x: array [1..7] of integer; begin For i:=1 to 7 do Begin Read (x[ i ]); S:=S+ x [i]; End; write ('Сумма =', S); end. Требуется найти сумму 7 целых чисел, которые пользователь введёт сам через клавиатуру.

№ слайда 13 S := &#039;987654321&#039;; S1 := Copy ( S, 3, 6); S2 := Copy ( S1, 2, 3); S3:=Insert (
Описание слайда:

S := '987654321'; S1 := Copy ( S, 3, 6); S2 := Copy ( S1, 2, 3); S3:=Insert ( 'ABC', S2, 3); S4:=Delete ( S3, 2, 4); 765432 654 65ABC4 64

№ слайда 14 Высокий «5» Выше среднего «4 +» Удовлетво- рительный «3» Ниже среднего «4 - »
Описание слайда:

Высокий «5» Выше среднего «4 +» Удовлетво- рительный «3» Ниже среднего «4 - » Средний «4»

№ слайда 15
Описание слайда:


Подайте заявку сейчас на любой интересующий Вас курс переподготовки, чтобы получить диплом со скидкой 50% уже осенью 2017 года.


Выберите специальность, которую Вы хотите получить:

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

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ

Краткое описание документа:

Презентация содержит некоторый обобщающий материал по теме "Программирование на языке Pascal".Урок носит соревновательный характер, который позволяет учащимся максимально проявить свои знания и умения по данной теме.Задания способствуют активизации мыслительной деятельности каждого ученика.Так как материал сложный, выбрана работа в группах, которая позволяет учащимся осмыслить и закрепить данную тему, получить ответы от своих товарищей на возникшие вопросы.Учитель выступает в роли ведущего координатора. В конце урока учащиеся проводят самоанализ работы в группе и группа выставляет оценку за урок.

Автор
Дата добавления 18.03.2015
Раздел Другое
Подраздел Презентации
Просмотров294
Номер материала 448037
Получить свидетельство о публикации
Похожие материалы

Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.
Специальное предложение
Вверх