Инфоурок / Информатика / Презентации / Презентация по информатике на тему "Основы Pascal"
Обращаем Ваше внимание: Министерство образования и науки рекомендует в 2017/2018 учебном году включать в программы воспитания и социализации образовательные события, приуроченные к году экологии (2017 год объявлен годом экологии и особо охраняемых природных территорий в Российской Федерации).

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

ПРИЁМ ЗАЯВОК ТОЛЬКО ДО 21 ОКТЯБРЯ!

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

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

Такого ещё не было!
Скидка 70% на курсы повышения квалификации

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

(Лицензия на осуществление образовательной деятельности № 5201 выдана ООО "Инфоурок" 20 мая 2016 г. бессрочно).


Список курсов, на которые распространяется скидка 70%:

Курсы повышения квалификации (144 часа, 1800 рублей):

Курсы повышения квалификации (108 часов, 1500 рублей):

Курсы повышения квалификации (72 часа, 1200 рублей):
библиотека
материалов
Паскаль. Основы 9 класс
Зарезервированные слова And - бинарный логический оператор умножения; Аrray –...
Div – деление нацело; Mod – возвращает остаток от деления; Not – логическая о...
Sqr - функция языка Паcкаль, которая возводит число в квадрат; Xor(либо). Это...
Типы переменных
Целочисленный тип
Вещественный тип
Логический тип Boolean (принимает значения Правда и Ложь) Строковый тип Strin...
Линейные программы
Вывод строки Program HelloWord;  begin 	 writeln ('Hello World!'); readln; end.
Арифметические вычисления program raznost; var a,b,c: integer; begin write(‘V...
Периметр треугольника Program perimetr; Var a, b, c, p :longint; begin WriteL...
Задачи на линейные алгоритмы Дан угол в градусах. Найти его величину в радиан...
5. Заданы моменты начала и конца некоторого промежутка времени в часах, минут...
7. Три пассажира одновременно сели в такси. Когда вышел первый пассажир, на с...
9. Известна этажность дома и количество квартир на каждой лестничной клетке к...
12. Ввести десятичное число из интервала от 64 до 511. Вывести представление...
Разветвление if-then-else
Решение квадратного уравнения Program yravnenie;  var a, b, c, D : integer; x...
В каком случае программа выдаст ошибку? Что нужно сделать, чтобы её исправить?
if D >= 0 then begin     x1 := (- b - sqrt (D)) / (2 * a);    x2 := (- b + sq...
Отметка Var otmetka: longint; Begin WriteLn(‘Vvedite ocenku'); ReadLn(otmetka...
Задачи на разветвляющиеся алгоритмы Ввести два числа, вывести наибольшее из н...
Известны года рождения Владимира, Ивана и Петра. Определить, кто кому из них...
Известны фамилии, а также часы, минуты и секунды финиша двух спортсменов на м...
Два друга в августе приезжают в отпуске в родной город. Известны даты их при...
Определить взаимное расположение круга заданного радиуса и квадрата с заданно...
Можно ли из круглой заготовки радиуса r вырезать две прямоугольные пластины с...
Между городами, находящимися на заданном расстоянии друг от друга, существует...
Циклы
Цикл for-to-do Program Test; var i : integer; x : integer; begin x := 10; for...
Цикл While - do Program Test; var i : integer; x : integer; begin i := 1; x :...
 Почему программа выдает так много чисел? Как это исправить?
i := 1; x := 10; Temp := x; while i
Цикл через repeat i := 10; repeat writeLn (i); i := i - 1 until i = 0;
Объясните, как вы выберете нужный цикл из трех изученных при решении различны...
Факториал Program Factorial; Var n, i : integer; Result : longint; begin Writ...
Циклические алгоритмы Ввести число, вывести его удвоенное значение. Повторять...
Одноклеточная амеба делится пополам каждые 15 минут. Вывести количество амеб...
program ameba; var i,n,b,c:longint; begin readln(n); b:=n*4; c:=1; for i:=1 t...
program ameba; var i,n,b,c:longint; begin c:=1; n:=1000000; while c
В водоеме V тонн рыбы. Ежегодно в конце года рыболовецкая бригада вылавливает...
Рандомные числа program Random; var a,z: integer; begin for a:=0 to 10 do beg...
program massiv; uses crt; var a:integer; begin clrscr; randomize; repeat a:=r...
Упражнение на знание таблицы умножения var c,i:integer; a:2..10; b:2..10; Beg...
Массив Program Mass00; Var a: array[1..10] of integer; i,s:integer; Begin For...
Массивы Найти сумму элементов массива Найти произведение элементов массива Оп...
Известно количество каждого товара и стоимость единицы каждого товара. Опреде...
Найти среднее арифметическое элементов массива, не равных ни наименьшему, ни...
Ввод-вывод данных в файл Program p1; Var a: longint ; t: text; s: integer;{на...
50 1

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

№ слайда 1 Паскаль. Основы 9 класс
Описание слайда:

Паскаль. Основы 9 класс

№ слайда 2 Зарезервированные слова And - бинарный логический оператор умножения; Аrray –
Описание слайда:

Зарезервированные слова And - бинарный логический оператор умножения; Аrray – определяет массив; Case - состоит из выражения (селектора) и списка операторов, каждый из которых выполнится в определенном случае; Const – определение константы

№ слайда 3 Div – деление нацело; Mod – возвращает остаток от деления; Not – логическая о
Описание слайда:

Div – деление нацело; Mod – возвращает остаток от деления; Not – логическая операция «НЕ» Or – логическая операция «ИЛИ» Abs - функция языка Паскаль, которая вычисляет модуль числа;

№ слайда 4 Sqr - функция языка Паcкаль, которая возводит число в квадрат; Xor(либо). Это
Описание слайда:

Sqr - функция языка Паcкаль, которая возводит число в квадрат; Xor(либо). Это операция, которая называется исключающее или. Комбинация 2-х логических переменных, связанных между собой союзом «xor» (либо) является истинной только в том случае, если обе переменные разные (т.е. одна истинна, другая ложна). 

№ слайда 5 Типы переменных
Описание слайда:

Типы переменных

№ слайда 6 Целочисленный тип
Описание слайда:

Целочисленный тип

№ слайда 7 Вещественный тип
Описание слайда:

Вещественный тип

№ слайда 8 Логический тип Boolean (принимает значения Правда и Ложь) Строковый тип Strin
Описание слайда:

Логический тип Boolean (принимает значения Правда и Ложь) Строковый тип String (Число символов (длина строки) должно не превышать 255) Алфавитно-цифровой тип Char (хранит только один символ)

№ слайда 9 Линейные программы
Описание слайда:

Линейные программы

№ слайда 10 Вывод строки Program HelloWord;  begin 	 writeln ('Hello World!'); readln; end.
Описание слайда:

Вывод строки Program HelloWord;  begin writeln ('Hello World!'); readln; end.

№ слайда 11 Арифметические вычисления program raznost; var a,b,c: integer; begin write(‘V
Описание слайда:

Арифметические вычисления program raznost; var a,b,c: integer; begin write(‘Vvedite chislo’); readln(a); write(‘Vvedite chislo’); readln(b); c:=a-b; writeln(c); readln; end.

№ слайда 12 Периметр треугольника Program perimetr; Var a, b, c, p :longint; begin WriteL
Описание слайда:

Периметр треугольника Program perimetr; Var a, b, c, p :longint; begin WriteLn(‘Vvedite 1 storony treugolnika a'); readLn(a); WriteLn(' Vvedite 2 storony treugolnika b'); readLn(b); writeLn(' Vvedite 3 storony treugolnika c'); readLn(c); p:=(a+b+c); writeLn('Периметр треугольника равен ', p); Readln; end.

№ слайда 13 Задачи на линейные алгоритмы Дан угол в градусах. Найти его величину в радиан
Описание слайда:

Задачи на линейные алгоритмы Дан угол в градусах. Найти его величину в радианах. Дан угол в радианах. Найти его величину в градусах. Момент времени задан в часах, минутах и секундах. Определить количество секунд, прошедших от полуночи до этого момента. Момент времени задан в секундах от полуночи. Определить время в часах, минутах и секундах.

№ слайда 14 5. Заданы моменты начала и конца некоторого промежутка времени в часах, минут
Описание слайда:

5. Заданы моменты начала и конца некоторого промежутка времени в часах, минутах и секундах (в пределах одних суток). Найти продолжительность этого промежутка в тех же единицах измерения. 6. Два пассажира одновременно сели в такси. Когда вышел первый пассажир, на счетчике было S1 рублей, когда вышел второй - S2 рублей. Сколько должен заплатить каждый пассажир, если таксист за всю поездку должен получить S2 рублей, а за равные расстояния пассажиры платят равные суммы? В начале поездки счетчик показывал 0.

№ слайда 15 7. Три пассажира одновременно сели в такси. Когда вышел первый пассажир, на с
Описание слайда:

7. Три пассажира одновременно сели в такси. Когда вышел первый пассажир, на счетчике было S1 рублей, когда вышел второй – S2 рублей, когда вышел третий – S3 рублей. Сколько должен заплатить каждый пассажир? 8 Известны моменты времени в часах, минутах и секундах включения и выключения электрокамина заданной мощности. Зная стоимость одного киловатт-часа электроэнергии, определить общую стоимость обогрева. Оба момента времени в пределах одних суток.

№ слайда 16 9. Известна этажность дома и количество квартир на каждой лестничной клетке к
Описание слайда:

9. Известна этажность дома и количество квартир на каждой лестничной клетке каждого подъезда. По номеру квартиры определить номер подъезда и этаж. 10. Ввести цифры трехзначного восьмеричного числа. Вывести значение этого числа в десятичной системе счисления. 11. Ввести цифры трехзначного двоичного числа. Вывести значение этого числа в десятичной системе счисления.

№ слайда 17 12. Ввести десятичное число из интервала от 64 до 511. Вывести представление
Описание слайда:

12. Ввести десятичное число из интервала от 64 до 511. Вывести представление этого числа в восьмеричной системе счисления. 13. Ввести число из интервала от 4 до 7. вывести представление этого числа в двоичной системе счисления. 14. Ввести цифры трехзначного числа в системе счисления с заданным основанием, не большим 10. Вывести значение этого числа в десятичной системе счисления.

№ слайда 18 Разветвление if-then-else
Описание слайда:

Разветвление if-then-else

№ слайда 19 Решение квадратного уравнения Program yravnenie;  var a, b, c, D : integer; x
Описание слайда:

Решение квадратного уравнения Program yravnenie;  var a, b, c, D : integer; x1, x2 : real; begin writeLn (‘3*х^2 + 8*x + 5 = 0'); Writeln(‘Введите a’); Readln(a); Writeln(‘Введите b’); Readln(b); Writeln(‘Введите c’); Readln(c);  D := sqr (b) - 4 * a * c;  x1 := (- b - sqrt (D)) / (2 * a); x2 := (- b + sqrt (D)) / (2 * a);  writeLn (‘Корни уравнения:'); writeLn ('X1 = ', x1 : 8 : 5); writeLn ('X2 = ', x2 : 8 : 5); Readln; end.

№ слайда 20 В каком случае программа выдаст ошибку? Что нужно сделать, чтобы её исправить?
Описание слайда:

В каком случае программа выдаст ошибку? Что нужно сделать, чтобы её исправить?

№ слайда 21 if D >= 0 then begin     x1 := (- b - sqrt (D)) / (2 * a);    x2 := (- b + sq
Описание слайда:

if D >= 0 then begin     x1 := (- b - sqrt (D)) / (2 * a);    x2 := (- b + sqrt (D)) / (2 * a);      writeLn ('Корни уравнения:');     writeLn ('X1 = ', x1 : 1 : 5);     writeLn ('X2 = ', x2 : 1 : 5) End else begin     writeLn (‘Корней нет!');     writeLn (‘Попробуйте еще!') end.

№ слайда 22 Отметка Var otmetka: longint; Begin WriteLn(‘Vvedite ocenku'); ReadLn(otmetka
Описание слайда:

Отметка Var otmetka: longint; Begin WriteLn(‘Vvedite ocenku'); ReadLn(otmetka); if (otmetka = 1) or (otmetka = 2) then WriteLn(‘Very bad') else if otmetka = 3 then WriteLn(‘Bad') else if otmetka = 4 then writeLn(‘Nice') else if otmetka = 5 then writeLn(‘Cool!') else writeLn(‘Takih otmetok ne byvaet'); Readln; end.

№ слайда 23 Задачи на разветвляющиеся алгоритмы Ввести два числа, вывести наибольшее из н
Описание слайда:

Задачи на разветвляющиеся алгоритмы Ввести два числа, вывести наибольшее из них. Ввести два числа, вывести их в порядке возрастания. Ввести три числа, вывести наименьшее из них. Ввести три числа, вывести их в порядке убывания (упорядочить по убыванию).

№ слайда 24 Известны года рождения Владимира, Ивана и Петра. Определить, кто кому из них
Описание слайда:

Известны года рождения Владимира, Ивана и Петра. Определить, кто кому из них дед, отец, сын, внук. Известны размеры очередей на трех соседних остановках. Определить размеры очередей после проезда маршрутного такси заданной вместимости. Дано линейное уравнение ax+b=0. Определить решение этого уравнения в зависимости от параметров a и b.

№ слайда 25 Известны фамилии, а также часы, минуты и секунды финиша двух спортсменов на м
Описание слайда:

Известны фамилии, а также часы, минуты и секунды финиша двух спортсменов на марафонской дистанции. Определить победителя. Даны длины трех отрезков. Определить, могут ли отрезки быть сторонами треугольника. Если да, то определить тип треугольника: равносторонний, равнобедренный, разносторонний, прямоугольный.

№ слайда 26 Два друга в августе приезжают в отпуске в родной город. Известны даты их при
Описание слайда:

Два друга в августе приезжают в отпуске в родной город. Известны даты их приезда и отъезда. Определить, смогут ли они встретиться и сколько дней могут провести вместе. Для каждой из трех деталей известен один из двух станков, на котором она должна быть обработана, и время обработки в минутах. Определить, когда освободится каждый из станков.

№ слайда 27 Определить взаимное расположение круга заданного радиуса и квадрата с заданно
Описание слайда:

Определить взаимное расположение круга заданного радиуса и квадрата с заданной стороной. У круга и квадрата общий центр. По результатам сессии, состоящей из трех экзаменов, определить тип студента: отличник, хорошист, троечник, двоечник. Определить, пройдет ли шкаф размера A*B*C в дверь размера X*Y. Можно ли коробку размером a*b*c упаковать в посылку размером u*v*w?

№ слайда 28 Можно ли из круглой заготовки радиуса r вырезать две прямоугольные пластины с
Описание слайда:

Можно ли из круглой заготовки радиуса r вырезать две прямоугольные пластины с размерами a*b и c*d? Путник двигался t1 часов со скоростью V1, затем t2 часов со скоростью V2 и t3 часов со скоростью V3. За какое время он достиг середины пути? Число делится на 3 тогда и только тогда, когда сумма его цифр делится на 3. Проверить этот признак делимости на примере заданного трехзначного числа.

№ слайда 29 Между городами, находящимися на заданном расстоянии друг от друга, существует
Описание слайда:

Между городами, находящимися на заданном расстоянии друг от друга, существует железнодорожное сообщение. Известны времена выхода в часах и минутах и скорости движения каждого из двух встречных поездов. Определить, встретятся ли поезда. Если да, то найти время встречи и расстояние точки встречи от первого города. Ввести номер дня недели. Вывести его название (case).

№ слайда 30 Циклы
Описание слайда:

Циклы

№ слайда 31 Цикл for-to-do Program Test; var i : integer; x : integer; begin x := 10; for
Описание слайда:

Цикл for-to-do Program Test; var i : integer; x : integer; begin x := 10; for i := 0 to х do begin writeLn (i, ' ', x); x := x + 2 end; Readln; end.

№ слайда 32 Цикл While - do Program Test; var i : integer; x : integer; begin i := 1; x :
Описание слайда:

Цикл While - do Program Test; var i : integer; x : integer; begin i := 1; x := 10; while i <= x do begin writeLn (i, ' ', x); x := x + 1; i := i + 1; End; Readln; end.

№ слайда 33  Почему программа выдает так много чисел? Как это исправить?
Описание слайда:

Почему программа выдает так много чисел? Как это исправить?

№ слайда 34 i := 1; x := 10; Temp := x; while i
Описание слайда:

i := 1; x := 10; Temp := x; while i <= Temp do begin writeLn (i, ' ', x); x := x + 1; i := i + 1 end.

№ слайда 35 Цикл через repeat i := 10; repeat writeLn (i); i := i - 1 until i = 0;
Описание слайда:

Цикл через repeat i := 10; repeat writeLn (i); i := i - 1 until i = 0;

№ слайда 36 Объясните, как вы выберете нужный цикл из трех изученных при решении различны
Описание слайда:

Объясните, как вы выберете нужный цикл из трех изученных при решении различных задач?

№ слайда 37 Факториал Program Factorial; Var n, i : integer; Result : longint; begin Writ
Описание слайда:

Факториал Program Factorial; Var n, i : integer; Result : longint; begin Write (‘Kakoe znachenie? '); ReadLn (n); Result := 1; for i := 1 to n do begin Result := Result * i; writeln(Result) end; writeLn (‘Rezultat: ', Result); ReadLn; end.

№ слайда 38 Циклические алгоритмы Ввести число, вывести его удвоенное значение. Повторять
Описание слайда:

Циклические алгоритмы Ввести число, вывести его удвоенное значение. Повторять действия, пока не будет введен 0; Вывести на экран десять раз текст «Мне нравится мороженое»; Найти сумму натуральных чисел от 1 до n; Найти сумму четных чисел от 2 до 100;

№ слайда 39 Одноклеточная амеба делится пополам каждые 15 минут. Вывести количество амеб
Описание слайда:

Одноклеточная амеба делится пополам каждые 15 минут. Вывести количество амеб через каждые 15 минут а) в течение n часов; б) пока клеток не станет больше 1 миллиона.

№ слайда 40 program ameba; var i,n,b,c:longint; begin readln(n); b:=n*4; c:=1; for i:=1 t
Описание слайда:

program ameba; var i,n,b,c:longint; begin readln(n); b:=n*4; c:=1; for i:=1 to b do begin c:=c*2; writeln(c); end; readln; end.

№ слайда 41 program ameba; var i,n,b,c:longint; begin c:=1; n:=1000000; while c
Описание слайда:

program ameba; var i,n,b,c:longint; begin c:=1; n:=1000000; while c<n do begin c:=c*2; writeln(c); end; readln; end.

№ слайда 42 В водоеме V тонн рыбы. Ежегодно в конце года рыболовецкая бригада вылавливает
Описание слайда:

В водоеме V тонн рыбы. Ежегодно в конце года рыболовецкая бригада вылавливает Z тонн. Воспроизводство рыбы 5% в год. Для сохранения воспроизводства после отлова в конце года в водоеме должно остаться не меньше 5 тонн рыбы. Через какое количество лет должна быть прекращена ловля?

№ слайда 43 Рандомные числа program Random; var a,z: integer; begin for a:=0 to 10 do beg
Описание слайда:

Рандомные числа program Random; var a,z: integer; begin for a:=0 to 10 do begin z:=random(37); writeln(z); Readln; end end.

№ слайда 44 program massiv; uses crt; var a:integer; begin clrscr; randomize; repeat a:=r
Описание слайда:

program massiv; uses crt; var a:integer; begin clrscr; randomize; repeat a:=random(1000); writeln(a); until a=256; readln end.

№ слайда 45 Упражнение на знание таблицы умножения var c,i:integer; a:2..10; b:2..10; Beg
Описание слайда:

Упражнение на знание таблицы умножения var c,i:integer; a:2..10; b:2..10; Begin randomize; a:=random(10); b:=random(10); c:=a*b; Write('Сколько будет', a,'x', b, '= '); read(i); if i<>c then begin Writeln('Ответ неправильный'); end; if i=c then begin Writeln('Ответ правильный'); end; Readln; End.

№ слайда 46 Массив Program Mass00; Var a: array[1..10] of integer; i,s:integer; Begin For
Описание слайда:

Массив Program Mass00; Var a: array[1..10] of integer; i,s:integer; Begin For i:=1 to 10 do begin Write('a[',i,'] = '); ReadLn(a[i]); s:=s+a[i]; end; Write('Сумма всех элементов массива равна' , s); Readln; End.

№ слайда 47 Массивы Найти сумму элементов массива Найти произведение элементов массива Оп
Описание слайда:

Массивы Найти сумму элементов массива Найти произведение элементов массива Определить количество положительных элементов массива По массиву оценок определить средний балл. По массиву оценок определить количество отличных, хороших, удовлетворительных и неудовлетворительных оценок

№ слайда 48 Известно количество каждого товара и стоимость единицы каждого товара. Опреде
Описание слайда:

Известно количество каждого товара и стоимость единицы каждого товара. Определить суммарную стоимость всех товаров. Определить максимальный элемент массива. Определить максимальный из отрицательных элементов массива и его номер.

№ слайда 49 Найти среднее арифметическое элементов массива, не равных ни наименьшему, ни
Описание слайда:

Найти среднее арифметическое элементов массива, не равных ни наименьшему, ни наибольшему элементам данного массива. По массиву оценок определить тип ученика: отличник, хорошист, троечник, двоечник.

№ слайда 50 Ввод-вывод данных в файл Program p1; Var a: longint ; t: text; s: integer;{на
Описание слайда:

Ввод-вывод данных в файл Program p1; Var a: longint ; t: text; s: integer;{назначаем переменные} begin assign( t,'input.txt');{привязываем переменную к фаилу из которого будет производится чтение} Reset(t); {открываем этот фаил} s:=0; read(t, a); {читаем данные находящиеся в фаиле} while(a<>0) do begin s:=s+(a mod 10); a:=a div 10; end; close(t); {закрываем фаил для дого чтоб переменная была свободной и к ней можно еще раз привезать фаил} assign(t,'output.txt'); {что мы и делаем. К переменной привязываем фаил,в который будет выводится результат} rewrite(t); {перезаписываем фаил} write(t,s); {Выводим данные. Не забываем ставить файловую переменную в начале списка вывода.} close(t);{закрываем фаил} end.


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

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

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

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

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

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

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

Тип разработки: Презентация.

Тема: "Основы Pascal"

Презентация знакомит с базовыми понятиями языка программирования Pascal: типы переменных, зарезервированные слова, линейные алгоритмы, разветвление, циклы, массивы. Содержит ряд задач разной сложности.

Данная презентация использовалась при изучении главы "Основы алгоритмизации и объектно-ориентированного программирования" для ввода учащихся в азы языка программирования с последующим углублением знаний.

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

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

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