1085453
столько раз учителя, ученики и родители
посетили официальный сайт ООО «Инфоурок»
за прошедшие 24 часа
Добавить материал и получить бесплатное
свидетельство о публикации
в СМИ №ФС77-60625 от 20.01.2015

Скидка 0%

112 курсов профессиональной переподготовки от 3540 руб.

268 курсов повышения квалификации от 840 руб.

МОСКОВСКИЕ ДОКУМЕНТЫ ДЛЯ АТТЕСТАЦИИ

Лицензия на осуществление образовательной деятельности №038767 выдана 26 сентября 2017 г. Департаменотом образования города Москвы

Инфоурок Информатика ПрезентацииПрезентация по информатике на тему "Программирование ветвлений в Паскале"

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

библиотека
материалов
Программирование ветвлений в Паскале
Исправь ошибки в программе Program primer; Var b,s: real; Begin Writeln (‘Вв...
Запиши на языке программирования математическое выражение х2+2ху-у2 Переведи...
Условный оператор (полное ветвление) IF условие THEN  ELSE ; В качестве услов...
Условный оператор (неполное ветвление) IF условие THEN ;
Условный оператор (неполное ветвление) IF условие THEN begin ; ; ; end Констр...
Задача 1. Вывести на экран большее из двух чисел, введенных с клавиатуры. Pro...
Задача 2. Вывести на экран большее из трех чисел, введенных с клавиатуры. Pro...
Задача 3. Составить программу нахождения значения функции У= Program Primer;...
Задача 4: Составим программу решения квадратного уравнения. program kvadrat;...
Составьте блок-схему, соответствующую этому алгоритму.
Составить программу, соответствующую этому алгоритму. Program PRIMER; Var x,...
Составить программу, соответствующую этому алгоритму. Program PRIMER; Var x,...

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

1 слайд Программирование ветвлений в Паскале
Описание слайда:

Программирование ветвлений в Паскале

2 слайд Исправь ошибки в программе Program primer; Var b,s: real; Begin Writeln (‘Вв
Описание слайда:

Исправь ошибки в программе Program primer; Var b,s: real; Begin Writeln (‘Введите числа b и с’) Readln( b,c); a=b+c; Write ln ( ‘a=’,a); End.

3 слайд Запиши на языке программирования математическое выражение х2+2ху-у2 Переведи
Описание слайда:

Запиши на языке программирования математическое выражение х2+2ху-у2 Переведите запись с языка программирования Паскаль на математический язык Sqrt(x)*3 – (a+2)/b

4 слайд Условный оператор (полное ветвление) IF условие THEN  ELSE ; В качестве услов
Описание слайда:

Условный оператор (полное ветвление) IF условие THEN <оператор1> ELSE <оператор2>; В качестве условий используются логические выражения, например, такие: (C=D); (C<>D) (a>b) and (a>c) or (a=d)

5 слайд Условный оператор (неполное ветвление) IF условие THEN ;
Описание слайда:

Условный оператор (неполное ветвление) IF условие THEN <оператор 1>;

6 слайд Условный оператор (неполное ветвление) IF условие THEN begin ; ; ; end Констр
Описание слайда:

Условный оператор (неполное ветвление) IF условие THEN begin <оператор 1>; <оператор 2>; <оператор 3>; end Конструкция вида: begin <последовательность операторов> end называется составным оператором.

7 слайд Задача 1. Вывести на экран большее из двух чисел, введенных с клавиатуры. Pro
Описание слайда:

Задача 1. Вывести на экран большее из двух чисел, введенных с клавиатуры. Program BID; Var A,B, D: integer; Begin Writeln (‘Введи первое число’); Readln (A); Writeln (‘Введи первое число’); Readln (B); If A>B then D:=A else D:=B; Writeln (D); End.

8 слайд Задача 2. Вывести на экран большее из трех чисел, введенных с клавиатуры. Pro
Описание слайда:

Задача 2. Вывести на экран большее из трех чисел, введенных с клавиатуры. Program BIT1; var A,B,C,D: integer; begin write ('Введите первое число:'); read (A); write ('Введите второе число:'); read (B); write ('Введите второе число:'); read (C); if A>B then D:=A else D:=B; if C>D then D:=C; writeln ('Большее из трех чисел',D); End.

9 слайд Задача 3. Составить программу нахождения значения функции У= Program Primer;
Описание слайда:

Задача 3. Составить программу нахождения значения функции У= Program Primer; Var x,y: real; Begin Writeln (‘Введите число’); Readln (x); IF (X-4)>=0 THEN begin y:=sqrt (x-4); writeln (y); end ELSE writeln (‘корней нет’); end.

10 слайд Задача 4: Составим программу решения квадратного уравнения. program kvadrat;
Описание слайда:

Задача 4: Составим программу решения квадратного уравнения. program kvadrat; var a,b,c,x1,x2,d:real; begin readln (a,b,c); d:=sqr(b)-4*a*c; if d<0 then writeln ('нет корней') else begin x1:=(-b+sqrt(d))/(2*a); x2:=(-b-sqrt(d))/(2*a); writeln ('x1=', x1); writeln ('x2=', x2); end end.

11 слайд Составьте блок-схему, соответствующую этому алгоритму.
Описание слайда:

Составьте блок-схему, соответствующую этому алгоритму.

12 слайд Составить программу, соответствующую этому алгоритму. Program PRIMER; Var x,
Описание слайда:

Составить программу, соответствующую этому алгоритму. Program PRIMER; Var x, Y: integer; BEGIN Writeln (‘Введите x’); Readln(x); If (x<0) then Y:=x+1 else if (x<10) then Y:=2*x else Y:=0; Writeln (‘Y = ’,Y); END.

13 слайд Составить программу, соответствующую этому алгоритму. Program PRIMER; Var x,
Описание слайда:

Составить программу, соответствующую этому алгоритму. Program PRIMER; Var x, Y: integer; BEGIN Writeln (‘Введите x’); Readln(x); If (x<0) then Y:=x+1; If (x<10) and (x>0) then Y:=2*x; If (x>10) then Y:=0; Writeln (‘Y = ’); END.

Курс профессиональной переподготовки
Учитель информатики
Курс профессиональной переподготовки
Учитель математики и информатики
Найдите материал к любому уроку,
указав свой предмет (категорию), класс, учебник и тему:
также Вы можете выбрать тип материала:
Общая информация
ВНИМАНИЮ УЧИТЕЛЕЙ: хотите организовать и вести кружок по ментальной арифметике в своей школе? Спрос на данную методику постоянно растёт, а Вам для её освоения достаточно будет пройти один курс повышения квалификации (72 часа) прямо в Вашем личном кабинете на сайте "Инфоурок".

Пройдя курс Вы получите:
- Удостоверение о повышении квалификации;
- Подробный план уроков (150 стр.);
- Задачник для обучающихся (83 стр.);
- Вводную тетрадь «Знакомство со счетами и правилами»;
- БЕСПЛАТНЫЙ доступ к CRM-системе, Личному кабинету для проведения занятий;
- Возможность дополнительного источника дохода (до 60.000 руб. в месяц)!

Пройдите дистанционный курс «Ментальная арифметика» на проекте "Инфоурок"!

Подать заявку

Вам будут интересны эти курсы:

Курс повышения квалификации «Информационные технологии в деятельности учителя физики»
Курс повышения квалификации «Внедрение системы компьютерной математики в процесс обучения математике в старших классах в рамках реализации ФГОС»
Курс профессиональной переподготовки «Информатика: теория и методика преподавания в образовательной организации»
Курс повышения квалификации «Использование компьютерных технологий в процессе обучения в условиях реализации ФГОС»
Курс повышения квалификации «Введение в программирование на языке С (СИ)»
Курс профессиональной переподготовки «Управление в сфере информационных технологий в образовательной организации»
Курс профессиональной переподготовки «Теория и методика обучения информатике в начальной школе»
Курс повышения квалификации «Современные тенденции цифровизации образования»
Курс повышения квалификации «Специфика преподавания дисциплины «Информационные технологии» в условиях реализации ФГОС СПО по ТОП-50»
Курс повышения квалификации «Современные языки программирования интегрированной оболочки Microsoft Visual Studio C# NET., C++. NET, VB.NET. с использованием структурного и объектно-ориентированного методов разработки корпоративных систем»
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.