Инфоурок / Информатика / Презентации / Презентация по информатике "Составление программ на языке программирования Pascal"
Обращаем Ваше внимание, что в соответствии с Федеральным законом N 273-ФЗ «Об образовании в Российской Федерации» в организациях, осуществляющих образовательную деятельность, организовывается обучение и воспитание обучающихся с ОВЗ как совместно с другими обучающимися, так и в отдельных классах или группах.

Педагогическая деятельность в соответствии с новым ФГОС требует от учителя наличия системы специальных знаний в области анатомии, физиологии, специальной психологии, дефектологии и социальной работы.

Только сейчас Вы можете пройти дистанционное обучение прямо на сайте "Инфоурок" со скидкой 40% по курсу повышения квалификации "Организация работы с обучающимися с ограниченными возможностями здоровья (ОВЗ)" (72 часа). По окончании курса Вы получите печатное удостоверение о повышении квалификации установленного образца (доставка удостоверения бесплатна).

Автор курса: Логинова Наталья Геннадьевна, кандидат педагогических наук, учитель высшей категории. Начало обучения новой группы: 27 сентября.

Подать заявку на этот курс    Смотреть список всех 216 курсов со скидкой 40%

Презентация по информатике "Составление программ на языке программирования Pascal"

библиотека
материалов
Задание : Напишите программу вычисления y по формуле: y = ( 1- x2 + 5x4 )2,...
Итоговая практическая работа по программированию 9 класс Язык программировани...
Логические операции Program BIT3; var А,В,С,D: real; begin readln(А,В,С);    ...
Задание 3. Составьте программу сортировки по возрастанию значений трех переме...
Решение: Program Рг; Var S1, S2, S3, С: Integer; Begin Writeln(' Введите три...
Задание 4. Составьте программу решения линейного уравнения вида Ах — В.
Решение: Program linear_equation; Var a, b: real; Begin Write('введите коэффи...
 Задание 5. Составьте программу решения квадратного уравнения.
Решение: program kv; var a,b,c,D,x1,x2:real; begin Read (a,b,c); D:=b*b-4*a*c...
program sum; uses crt; var a,summ: integer; begin writeln(‘Введите произвольн...
Пример программы с использованием массива program Maximum; var 	A :	array [1....
11 1

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

№ слайда 1 Задание : Напишите программу вычисления y по формуле: y = ( 1- x2 + 5x4 )2,
Описание слайда:

Задание : Напишите программу вычисления y по формуле: y = ( 1- x2 + 5x4 )2, где x - данное целое число. Program zadacha2; Var х, у: integer; Вegin Write(‘Введите целое число ’); Read(x); y:=sqr(1-sqr(x)+5*sqr(sqr(x))); Write(‘Значение у равно ’,y); Read(y); End.

№ слайда 2 Итоговая практическая работа по программированию 9 класс Язык программировани
Описание слайда:

Итоговая практическая работа по программированию 9 класс Язык программирования Pascal

№ слайда 3 Логические операции Program BIT3; var А,В,С,D: real; begin readln(А,В,С);    
Описание слайда:

Логические операции Program BIT3; var А,В,С,D: real; begin readln(А,В,С);      if (A>=B) and (A>=C) then D:=A;      if (B>=A) and (B>=C) then D:=B;      if (C>=A) and (C>=B) then D:=C;      writeln(D) end. Составим еще один, третий вариант программы определения большего числа из трех. В Паскале присутствуют все три основные логические операции: and - И (конъюнкция), or - ИЛИ (дизъюнкция), not - НЕ (отрицание). Операция and – это логическое умножение или конъюнкция. Ее результат - "истина", если значения обоих операндов - "истина". Очевидно, что если А>=В и А>=С, то А имеет наибольшее значение и т. д.

№ слайда 4 Задание 3. Составьте программу сортировки по возрастанию значений трех переме
Описание слайда:

Задание 3. Составьте программу сортировки по возрастанию значений трех переменных: А, В, С.

№ слайда 5 Решение: Program Рг; Var S1, S2, S3, С: Integer; Begin Writeln(' Введите три
Описание слайда:

Решение: Program Рг; Var S1, S2, S3, С: Integer; Begin Writeln(' Введите три числа'); Readln(S1,S2,S3); If S1>S2 then begin C:=S1; S1:=S2; S2:=C; end; {Меняем местами содержимое S1 и S2} If S2>S3 then begin C:=S2; S2:=S3; S3:=C; end; {Меняем местами содержимое S2 и S3} If S1>S2 then begin C:=S1; S1:=S2; S2:=C; end; {Меняем местами содержимое SI и S2} Writeln('Числа в порядке возрастания:', S1,S2,S3) End.

№ слайда 6 Задание 4. Составьте программу решения линейного уравнения вида Ах — В.
Описание слайда:

Задание 4. Составьте программу решения линейного уравнения вида Ах — В.

№ слайда 7 Решение: Program linear_equation; Var a, b: real; Begin Write('введите коэффи
Описание слайда:

Решение: Program linear_equation; Var a, b: real; Begin Write('введите коэффициенты а и b:'); Readln(a, b); If a<>0 then write('x0',-b/a) Else If b=0 then write('Kopeнь любое число') Else write('Kopней нет'); End.

№ слайда 8  Задание 5. Составьте программу решения квадратного уравнения.
Описание слайда:

Задание 5. Составьте программу решения квадратного уравнения.

№ слайда 9 Решение: program kv; var a,b,c,D,x1,x2:real; begin Read (a,b,c); D:=b*b-4*a*c
Описание слайда:

Решение: program kv; var a,b,c,D,x1,x2:real; begin Read (a,b,c); D:=b*b-4*a*c; if D<0 then Writeln('KOPHEЙ НЕТ') else if D=0 then begin D:=sqrt(D); x1:=(-b)/(2*a); Writeln('x=',x1); else begin D:=sqrt(D); xl:=(-b+D)/(2*a); x2:=(-b-D)/(2*a); Writeln('xl=',xl); Write Ln('x2=',x2); end; end.

№ слайда 10 program sum; uses crt; var a,summ: integer; begin writeln(‘Введите произвольн
Описание слайда:

program sum; uses crt; var a,summ: integer; begin writeln(‘Введите произвольные целые числа, признак окончания ввода: "0" '); read(a); summ:=0; while a<>0 do begin if (a mod 7=0) and (a mod 10 =4) then summ:=summ+a; Readln(a); end; writeln (‘Сумма чисел равна  ' ,summ); readln; end. Нахождение чисел кратных А и оканчивающихся на B

№ слайда 11 Пример программы с использованием массива program Maximum; var 	A :	array [1.
Описание слайда:

Пример программы с использованием массива program Maximum; var A : array [1..5] of integer; i, max : integer; begin for i:=1 to 5 do read( A[i] ); max:= A[1]; for i:=2 to 5 do if A[i] > max then max:= A[i]; write(max); end. Вопрос: как изменится программа, если чисел станет 10? Вопрос: как изменится программа, если чисел станет 1000? Вопрос: как изменится программа, если числа будут действительными?



Самые низкие цены на курсы переподготовки

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

После окончания обучения выдаётся диплом о профессиональной переподготовке установленного образца с присвоением квалификации (признаётся при прохождении аттестации по всей России).

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

Начало обучения ближайшей группы: 27 сентября. Оплата возможна в беспроцентную рассрочку (10% в начале обучения и 90% в конце обучения)!

Подайте заявку на интересующий Вас курс сейчас: https://infourok.ru

Общая информация

Номер материала: ДБ-352787

Похожие материалы

2017 год объявлен годом экологии и особо охраняемых природных территорий в Российской Федерации. Министерство образования и науки рекомендует в 2017/2018 учебном году включать в программы воспитания и социализации образовательные события, приуроченные к году экологии.

Учителям 1-11 классов и воспитателям дошкольных ОУ вместе с ребятами рекомендуем принять участие в международном конкурсе «Законы экологии», приуроченном к году экологии. Участники конкурса проверят свои знания правил поведения на природе, узнают интересные факты о животных и растениях, занесённых в Красную книгу России. Все ученики будут награждены красочными наградными материалами, а учителя получат бесплатные свидетельства о подготовке участников и призёров международного конкурса.

Конкурс "Законы экологии"