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

Программирование на языке Паскаль

В ПОМОЩЬ УЧИТЕЛЮ ОТ ПРОЕКТА "ИНФОУРОК":
СКАЧАТЬ ВСЕ ВИДЕОУРОКИ СО СКИДКОЙ 86%

Видеоуроки от проекта "Инфоурок" за Вас изложат любую тему Вашим ученикам, избавив от необходимости искать оптимальные пути для объяснения новых тем или закрепления пройденных. Видеоуроки озвучены профессиональным мужским голосом. При этом во всех видеоуроках используется принцип "без учителя в кадре", поэтому видеоуроки не будут ассоциироваться у учеников с другим учителем, и благодарить за качественную и понятную подачу нового материала они будут только Вас!

МАТЕМАТИКА — 603 видео
НАЧАЛЬНАЯ ШКОЛА — 577 видео
ОБЖ И КЛ. РУКОВОДСТВО — 172 видео
ИНФОРМАТИКА — 201 видео
РУССКИЙ ЯЗЫК И ЛИТ. — 456 видео
ФИЗИКА — 259 видео
ИСТОРИЯ — 434 видео
ХИМИЯ — 164 видео
БИОЛОГИЯ — 305 видео
ГЕОГРАФИЯ — 242 видео

Десятки тысяч учителей уже успели воспользоваться видеоуроками проекта "Инфоурок". Мы делаем все возможное, чтобы выпускать действительно лучшие видеоуроки по общеобразовательным предметам для учителей. Традиционно наши видеоуроки ценят за качество, уникальность и полезность для учителей.

Сразу все видеоуроки по Вашему предмету - СКАЧАТЬ

  • Информатика
Программирование на языке Паскаль
Структура программы program ; uses crt; const …;{константы} var …; {переменны...
Основные понятия Константа – постоянная величина, имеющая имя. Переменная – и...
Алфавит языка 1. Символы, используемые в идентификаторах латинские буквы (A-Z...
Константы const 	 	i2 = 45; { целое число } 	pi = 3.14; { вещественное число...
Переменные Переменная – это величина, имеющая имя, тип и значение. Значение п...
Изменение значений переменной Оператор – это команда языка программирования в...
Оператор присваивания Общая структура: 	 := ; Арифметическое выражение может...
program qq; 	var a, b: integer; 		 x, y: real; 	begin 	 a := 5; 10 := x; y :...
Арифметические функции Функции 	Назначение 	Тип результата Abs 	абсолютное зн...
Порядок выполнения операций вычисление выражений в скобках умножение, деление...
Оператор ввода read ( a ); { ввод значения переменной a} read ( a, b ); { вво...
Оператор вывода write ( a ); { вывод значения переменной a} writeln ( a ); {...
Форматы вывода program qq; var i: integer; x: real; begin i := 15; writeln (...
Задания для самостоятельной работы Составить программу, переводящую введенные...
Задания для самостоятельной работы 4. Составить программу, запрашивающую имя...
Операторы языка Паскаль
Операторы языка Паскаль Простые операторы (оператор присваивания, оператор бе...
Условный оператор IF 	if  then begin {что делать, если условие верно} end els...
Разветвляющиеся алгоритмы Задача. Ввести два целых числа и вывести на экран н...
Блок-схема полная форма ветвления блок "решение"
Программа 	uses crt; 	var a, b, max: integer; 	begin 	 clrscr; writeln('Введи...
Сложные условия Сложное условие – это условие, состоящее из нескольких просты...
Сложные условия Порядок выполнения выражения в скобках not and or, xor =, =,...
Сложные условия Задача. Фирма набирает сотрудников от 25 до 40 лет включитель...
Вариант 1. Алгоритм начало ввод x 'подходит' конец да нет x >= 25? да нет x
Вариант 1. Программа 	uses crt; 	var x: integer; 	begin 	 clrscr; writeln('Вв...
Вариант 2. Алгоритм начало ввод x 'подходит' да нет x >= 25 и x
Вариант 2. Программа 	uses crt; 	var x: integer; 	begin clrscr; writeln('Введ...
Задания для самостоятельной работы 	 1. Составить программу, запрашивающую во...
Задания для самостоятельной работы 	 3. Составьте программу, увеличивающую вв...
Операторы циклы Цикл – это многократное выполнение одинаковой последовательно...
Оператор цикла FOR 	for  :=  to  do begin {тело цикла} end; Увеличение переме...
Оператор цикла FOR Задача. Вывести на экран квадраты и кубы целых чисел от 1...
Программа uses crt; var i, i2, i3: integer; begin clrscr; for i:=1 to 8 do be...
Цикл FOR с уменьшением переменной Задача. Вывести на экран квадраты и кубы це...
Оператор цикла WHILE 	while  do begin {тело цикла} end; Особенности: можно ис...
Цикл с условием Особенности: условие пересчитывается каждый раз при входе в ц...
Сколько раз выполняется цикл? a := 4; b := 6; while a < b do a := a + 1; 2 ра...
Цикл WHILE Задача: Ввести целое число (
Алгоритм начало count конец нет да n  0? count := 0; count := count + 1; n :=...
Программа uses crt; var n, count: integer; Begin 	 clrscr; writeln('Введите ц...
Замена for на while и наоборот for i:=1 to 10 do begin {тело цикла} end; i :=...
Задания для самостоятельной работы 1. Найти сумму чисел от 1 до 10 2. Напечат...
Цикл с постусловием (цикл REPEAT) Особенность: Один раз тело цикла надо сдела...
Цикл с постусловием: алгоритм начало конец да нет n > 0? тело цикла условие В...
Программа program qq; var n: integer; begin repeat writeln('Введите положител...
Задания для самостоятельной работы 1. Составить программу , запрашивающую чис...
Оператор выбора CASE Особенности: после case может быть имя переменной или ар...
Оператор выбора Особенности: если нужно выполнить только один оператор, слова...
Оператор выбора Особенности: значения, при которых выполняются одинаковые дей...
Оператор выбора CASE Задача: Ввести номер месяца и вывести количество дней в...
Алгоритм начало конец оператор выбора ни один вариант не подошел ввод M да не...
Программа uses crt; var M, D: integer; begin 	 clrscr; writeln('Введите номер...
Задания для самостоятельной работы 1. По введенному номеру от 1 до 7 определи...
Процедуры Процедура – это вспомогательный алгоритм, который предназначен для...
Процедуры Особенности: в процедуре можно объявлять дополнительные локальные п...
Процедуры Задача: найти наибольшее из 4-х чисел, используя подпрограмму нахож...
program max; uses crt; var a,b,c,d, max1,max2,max3,max4,p,q,s,k: integer; pro...
Функции Функция – это вспомогательный алгоритм (подпрограмма), результатом ра...
Функции Особенности: заголовок начинается словом function формальные параметр...
Функции Особенности: можно объявлять и использовать локальные переменные знач...
Функции Задача: найти наибольшее из 4-х чисел, используя подпрограмму нахожде...
Массивы Массив – это группа однотипных элементов, имеющих общее имя и располо...
Объявление массивов определить имя массива определить тип массива определить...
Массивы Объявление: Ввод с клавиатуры: Поэлементные операции: const N = 5; va...
Массивы Задача: Заполнить массив из 5 элементов с клавиатуры и вывести на экр...
Задания для самостоятельной работы 1. Заполнить массив из 5 элементов и вывес...
Строковые величины Строка – это последовательность символов кодовой таблице....
Символьные строки Задача: ввести строку с клавиатуры и заменить все буквы "а"...
Операции со строками Объединение: добавить одну строку в конец другой. Запись...
Удаление и вставка Удаление части строки: Вставка в строку: s := '123456789';...
Задания для самостоятельной работы 1. Ввели слово, определить его длину и выв...
Файлы Файл – это область на диске, имеющая имя. Файлы только текст без оформл...
Принцип сэндвича I этап. открыть файл : связать переменную f с файлом открыть...
Работа с файлами Особенности: имя файла упоминается только в команде assign,...
Пример Задача: в файле input.txt записаны числа (в столбик), сколько их – неи...
Программа program qq; var s, x: integer; f: text; begin assign(f, 'input.txt'...
Обработка текстовых данных Задача: в файле input.txt записаны строки, в котор...
Обработка текстовых данных Алгоритм: Прочитать строку из файла (readln). Удал...
Работа с файлами program qq; var s: string; i: integer; fIn, fOut: text; begi...
Полный цикл обработки файла while not eof(fIn) do begin readln(fIn, s); write...
Задания для самостоятельной работы 1. Создать на диске С файл 1.txt с 5 числа...
1 из 83

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

№ слайда 1 Программирование на языке Паскаль
Описание слайда:

Программирование на языке Паскаль

№ слайда 2 Структура программы program ; uses crt; const …;{константы} var …; {переменны
Описание слайда:

Структура программы program <имя программы>; uses crt; const …;{константы} var …; {переменные} begin clrscr; … {основная программа} readkey; end. { процедуры и функции } комментарии в фигурных скобках не обрабатываются

№ слайда 3 Основные понятия Константа – постоянная величина, имеющая имя. Переменная – и
Описание слайда:

Основные понятия Константа – постоянная величина, имеющая имя. Переменная – изменяющаяся величина, имеющая имя (ячейка памяти). Процедура – вспомогательный алгоритм, описывающий некоторые действия (рисование окружности). Функция – вспомогательный алгоритм для выполнения вычислений (вычисление квадратного корня, sin).

№ слайда 4 Алфавит языка 1. Символы, используемые в идентификаторах латинские буквы (A-Z
Описание слайда:

Алфавит языка 1. Символы, используемые в идентификаторах латинские буквы (A-Z) цифры знак подчеркивания _ заглавные и строчные буквы не различаются 2. Разделители любой управляющий символ (коды от 0 до 31) пробел Комментарий – { }; * * имя не может начинаться с цифры 3. Специальные символы знаки пунктуации [ ],( ), { }, * *, :=, .. , #, $ знаки операций: буквенные (not, div, or, mod) и небуквенные (+, =, *, /, <, >, <>, <=, >=) зарезервированные слова (begin, end) 4. Неиспользуемые символы (буквы рус. алфавита, %, &)

№ слайда 5 Константы const 	 	i2 = 45; { целое число } 	pi = 3.14; { вещественное число
Описание слайда:

Константы const i2 = 45; { целое число } pi = 3.14; { вещественное число } qq = 'Вася'; { строка символов } L = True; { логическая величина } целая и дробная часть отделяются точкой можно использовать русские буквы! может принимать два значения: True (истина, "да") False (ложь, "нет")

№ слайда 6 Переменные Переменная – это величина, имеющая имя, тип и значение. Значение п
Описание слайда:

Переменные Переменная – это величина, имеющая имя, тип и значение. Значение переменной можно изменять во время работы программы. Типы переменных: integer { целая } real, longint { вещественная } char { один символ } string { символьная строка } boolean { логическая } Объявление переменных (выделение памяти): var a, b: integer; Q: real; s1, s2: string;

№ слайда 7 Изменение значений переменной Оператор – это команда языка программирования в
Описание слайда:

Изменение значений переменной Оператор – это команда языка программирования высокого уровня. Оператор присваивания служит для изменения значения переменной. Пример: program qq; var a, b: integer; begin a := 5; b := a + 2; a := (a + 2)*(b – 3); end. a ? 5 5 b ? 5+2 7 a 5 7*4 28

№ слайда 8 Оператор присваивания Общая структура: 	 := ; Арифметическое выражение может
Описание слайда:

Оператор присваивания Общая структура: <имя переменной> := <выражение>; Арифметическое выражение может включать константы имена переменных знаки арифметических операций: + - * / div mod вызовы функций круглые скобки ( ) умножение деление деление нацело остаток от деления

№ слайда 9 program qq; 	var a, b: integer; 		 x, y: real; 	begin 	 a := 5; 10 := x; y :
Описание слайда:

program qq; var a, b: integer; x, y: real; begin a := 5; 10 := x; y := 7,8; b := 2.5; x := 2*(a + y); a := b + x; end. Какие операторы неправильные? имя переменной должно быть слева от знака := целая и дробная часть отделяются точкой нельзя записывать вещественное значение в целую переменную

№ слайда 10 Арифметические функции Функции 	Назначение 	Тип результата Abs 	абсолютное зн
Описание слайда:

Арифметические функции Функции Назначение Тип результата Abs абсолютное знание аргумента совпадает с типом X Arctan (X) арктангенс аргумента веществ. Cos (X) косинус аргумента веществ. Exp (X) е веществ. Frac (X) дробная часть числа веществ. Ln (X) натуральный логарифм веществ. Pi (X) значение величины Pi= 3,14159265358979932385 веществ. Sin (x) синус аргумента веществ. Sqr (X) квадрат аргумента совпадает с типом X Sqrt (X) квадратный корень аргумента веществ.

№ слайда 11 Порядок выполнения операций вычисление выражений в скобках умножение, деление
Описание слайда:

Порядок выполнения операций вычисление выражений в скобках умножение, деление, div, mod слева направо сложение и вычитание слева направо 2 3 5 4 1 7 8 6 9 z := (5*a*c+3*(c-d))/a*(b-c)/ b; 2 6 3 4 7 5 1 12 8 11 10 9 x:=(a*a+5*c*c-d*(a+b))/((c+d)*(d-2*a));

№ слайда 12 Оператор ввода read ( a ); { ввод значения переменной a} read ( a, b ); { вво
Описание слайда:

Оператор ввода read ( a ); { ввод значения переменной a} read ( a, b ); { ввод значений переменных a и b} Как вводить два числа? через пробел: 25 30 через Enter: 25 30

№ слайда 13 Оператор вывода write ( a ); { вывод значения переменной a} writeln ( a ); {
Описание слайда:

Оператор вывода write ( a ); { вывод значения переменной a} writeln ( a ); { вывод значения переменной a и переход на новую строчку} writeln ( 'Привет!' ); { вывод текста} writeln ( 'Ответ: ', c ); { вывод текста и значения переменной c} writeln ( a, '+', b, '=', c );

№ слайда 14 Форматы вывода program qq; var i: integer; x: real; begin i := 15; writeln (
Описание слайда:

Форматы вывода program qq; var i: integer; x: real; begin i := 15; writeln ( '>', i, '<' ); writeln ( '>', i:5, '<' ); x := 12.345678; writeln ( '>', x, '<' ); writeln ( '>', x:10, '<' ); writeln ( '>', x:7:2, '<' ); end. всего символов всего символов в дробной части

№ слайда 15 Задания для самостоятельной работы Составить программу, переводящую введенные
Описание слайда:

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

№ слайда 16 Задания для самостоятельной работы 4. Составить программу, запрашивающую имя
Описание слайда:

Задания для самостоятельной работы 4. Составить программу, запрашивающую имя и приветствующую по этому имени. 3. Вычислить периметр и площадь прямоугольника, по введенным с клавиатуры сторонам.

№ слайда 17 Операторы языка Паскаль
Описание слайда:

Операторы языка Паскаль

№ слайда 18 Операторы языка Паскаль Простые операторы (оператор присваивания, оператор бе
Описание слайда:

Операторы языка Паскаль Простые операторы (оператор присваивания, оператор безусловного перехода Goto, пустой оператор) Структурированные операторы (составной оператор, условный оператор IF, условный оператор CASE, оператор цикла REPEAT, оператор цикла WHILE, оператор цикла FOR)

№ слайда 19 Условный оператор IF 	if  then begin {что делать, если условие верно} end els
Описание слайда:

Условный оператор IF if <условие> then begin {что делать, если условие верно} end else begin {что делать, если условие неверно} end; Особенности: перед else НЕ ставится точка с запятой вторая часть (else …) может отсутствовать (неполная форма) если в блоке один оператор, можно убрать слова begin и end

№ слайда 20 Разветвляющиеся алгоритмы Задача. Ввести два целых числа и вывести на экран н
Описание слайда:

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

№ слайда 21 Блок-схема полная форма ветвления блок &quot;решение&quot;
Описание слайда:

Блок-схема полная форма ветвления блок "решение"

№ слайда 22 Программа 	uses crt; 	var a, b, max: integer; 	begin 	 clrscr; writeln(&#039;Введи
Описание слайда:

Программа uses crt; var a, b, max: integer; begin clrscr; writeln('Введите два целых числа'); read ( a, b ); if a > b then begin end else begin end; writeln ('Наибольшее число ', max); readkey; end. max := a; max := b; полная форма условного оператора

№ слайда 23 Сложные условия Сложное условие – это условие, состоящее из нескольких просты
Описание слайда:

Сложные условия Сложное условие – это условие, состоящее из нескольких простых условий (отношений), связанных с помощью логических операций: not – НЕ (отрицание, инверсия) and – И (логическое умножение, конъюнкция, одновременное выполнение условий) or – ИЛИ (логическое сложение, дизъюнкция, выполнение хотя бы одного из условий) xor – исключающее ИЛИ (выполнение только одного из двух условий, но не обоих) Простые условия (отношения) < <= > >= = <> равно не равно

№ слайда 24 Сложные условия Порядок выполнения выражения в скобках not and or, xor =, =,
Описание слайда:

Сложные условия Порядок выполнения выражения в скобках not and or, xor <, <=, >, >=, =, <> Особенность – каждое из простых условий обязательно заключать в скобки. Пример 4 1 6 2 5 3 if not (a > b) or (c <> d) and (b <> a) then begin ... end

№ слайда 25 Сложные условия Задача. Фирма набирает сотрудников от 25 до 40 лет включитель
Описание слайда:

Сложные условия Задача. Фирма набирает сотрудников от 25 до 40 лет включительно. Ввести возраст человека и определить, подходит ли он фирме (вывести ответ "подходит" или "не подходит"). Особенность: надо проверить, выполняются ли два условия одновременно.

№ слайда 26 Вариант 1. Алгоритм начало ввод x &#039;подходит&#039; конец да нет x &gt;= 25? да нет x
Описание слайда:

Вариант 1. Алгоритм начало ввод x 'подходит' конец да нет x >= 25? да нет x <= 40? 'не подходит' 'не подходит'

№ слайда 27 Вариант 1. Программа 	uses crt; 	var x: integer; 	begin 	 clrscr; writeln(&#039;Вв
Описание слайда:

Вариант 1. Программа uses crt; var x: integer; begin clrscr; writeln('Введите возраст'); read ( x ); if x >= 25 then if x <= 40 then writeln ('Подходит') else writeln ('Не подходит') else writeln ('Не подходит'); readkey; end.

№ слайда 28 Вариант 2. Алгоритм начало ввод x &#039;подходит&#039; да нет x &gt;= 25 и x
Описание слайда:

Вариант 2. Алгоритм начало ввод x 'подходит' да нет x >= 25 и x <= 40? 'не подходит'

№ слайда 29 Вариант 2. Программа 	uses crt; 	var x: integer; 	begin clrscr; writeln(&#039;Введ
Описание слайда:

Вариант 2. Программа uses crt; var x: integer; begin clrscr; writeln('Введите возраст'); read ( x ); if (x >= 25) and (x <= 40) then writeln ('Подходит') else writeln ('Не подходит') readkey; end. сложное условие

№ слайда 30 Задания для самостоятельной работы 	 1. Составить программу, запрашивающую во
Описание слайда:

Задания для самостоятельной работы 1. Составить программу, запрашивающую возраст и отвечающую «Привет друг» если возраст введен меньше 16 лет и отвечающую «Не знаю тебя» в противном случае. 2. Составить программу - отзывающуюся только на имя «Саша»

№ слайда 31 Задания для самостоятельной работы 	 3. Составьте программу, увеличивающую вв
Описание слайда:

Задания для самостоятельной работы 3. Составьте программу, увеличивающую введенное число на 1 , если оно больше или равно100 и уменьшающее число на 1 в противном случае. 4. Составить программу, вычисляющую функцию:

№ слайда 32 Операторы циклы Цикл – это многократное выполнение одинаковой последовательно
Описание слайда:

Операторы циклы Цикл – это многократное выполнение одинаковой последовательности действий. цикл с известным числом шагов цикл с неизвестным числом шагов (цикл с условием)

№ слайда 33 Оператор цикла FOR 	for  :=  to  do begin {тело цикла} end; Увеличение переме
Описание слайда:

Оператор цикла FOR for <переменная> := <начальное значение> to <конечное значение> do begin {тело цикла} end; Увеличение переменной на 1: for <переменная> := <начальное значение> downto <конечное значение> do begin {тело цикла} end; Уменьшение переменной на 1:

№ слайда 34 Оператор цикла FOR Задача. Вывести на экран квадраты и кубы целых чисел от 1
Описание слайда:

Оператор цикла FOR Задача. Вывести на экран квадраты и кубы целых чисел от 1 до 8 (от a до b). Особенность: одинаковые действия выполняются 8 раз.

№ слайда 35 Программа uses crt; var i, i2, i3: integer; begin clrscr; for i:=1 to 8 do be
Описание слайда:

Программа uses crt; var i, i2, i3: integer; begin clrscr; for i:=1 to 8 do begin i2 := i*i; i3 := i2*i; writeln(i:4, i2:4, i3:4); end; readkey; end. переменная цикла начальное значение конечное значение

№ слайда 36 Цикл FOR с уменьшением переменной Задача. Вывести на экран квадраты и кубы це
Описание слайда:

Цикл FOR с уменьшением переменной Задача. Вывести на экран квадраты и кубы целых чисел от 8 до 1 (в обратном порядке). Особенность: переменная цикла должна уменьшаться. Решение: ... for i:=8 1 do begin i2 := i*i; i3 := i2*i; writeln(i:4, i2:4, i3:4); end; ... downto

№ слайда 37 Оператор цикла WHILE 	while  do begin {тело цикла} end; Особенности: можно ис
Описание слайда:

Оператор цикла WHILE while <условие> do begin {тело цикла} end; Особенности: можно использовать сложные условия: если в теле цикла только один оператор, слова begin и end можно не писать: while (a<b) and (b<c) do begin {тело цикла} end; while a < b do a := a + 1;

№ слайда 38 Цикл с условием Особенности: условие пересчитывается каждый раз при входе в ц
Описание слайда:

Цикл с условием Особенности: условие пересчитывается каждый раз при входе в цикл если условие на входе в цикл ложно, цикл не выполняется ни разу если условие никогда не станет ложным, программа зацикливается a := 4; b := 6; while a > b do a := a – b; a := 4; b := 6; while a < b do d := a + b;

№ слайда 39 Сколько раз выполняется цикл? a := 4; b := 6; while a &lt; b do a := a + 1; 2 ра
Описание слайда:

Сколько раз выполняется цикл? a := 4; b := 6; while a < b do a := a + 1; 2 раза a = 6 a := 4; b := 6; while a < b do a := a + b; 1 раз a = 10 a := 4; b := 6; while a > b do a := a + 1; 0 раз a = 4 a := 4; b := 6; while a < b do b := a - b; 1 раз b = -2 a := 4; b := 6; while a < b do a := a - 1; зацикливание

№ слайда 40 Цикл WHILE Задача: Ввести целое число (
Описание слайда:

Цикл WHILE Задача: Ввести целое число (<2000000) и определить число цифр в нем. Идея решения: Отсекаем последовательно последнюю цифру, увеличиваем счетчик. Проблема: Неизвестно, сколько шагов надо сделать. Решение: Надо остановиться, когда n = 0, т.е. надо делать "пока n <> 0". n count 123 0 12 1 1 2 0 3

№ слайда 41 Алгоритм начало count конец нет да n  0? count := 0; count := count + 1; n :=
Описание слайда:

Алгоритм начало count конец нет да n <> 0? count := 0; count := count + 1; n := n div 10; обнулить счетчик цифр ввод n выполнять "пока n <> 0"

№ слайда 42 Программа uses crt; var n, count: integer; Begin 	 clrscr; writeln(&#039;Введите ц
Описание слайда:

Программа uses crt; var n, count: integer; Begin clrscr; writeln('Введите целое число'); read(n); count := 0; while n <> 0 do begin count := count + 1; n := n div 10; end; writeln('В числе ', n, ' нашли ', count, ' цифр'); readkey; end. , n1: integer; n1 := n; n1, выполнять "пока n <> 0"

№ слайда 43 Замена for на while и наоборот for i:=1 to 10 do begin {тело цикла} end; i :=
Описание слайда:

Замена for на while и наоборот for i:=1 to 10 do begin {тело цикла} end; i := 1; while i <= 10 do begin {тело цикла} i := i + 1; end; for i:=a downto b do begin {тело цикла} end; i := a; while i >= b do begin {тело цикла} i := i - 1; end; Замена while на for возможна только тогда, когда можно заранее рассчитать число шагов цикла. Замена цикла for на while возможна всегда.

№ слайда 44 Задания для самостоятельной работы 1. Найти сумму чисел от 1 до 10 2. Напечат
Описание слайда:

Задания для самостоятельной работы 1. Найти сумму чисел от 1 до 10 2. Напечатать таблицу умножения на введенное с клавиатуры число, например ввели 7 7х1=7 7х2=14 ……. 7х9=63

№ слайда 45 Цикл с постусловием (цикл REPEAT) Особенность: Один раз тело цикла надо сдела
Описание слайда:

Цикл с постусловием (цикл REPEAT) Особенность: Один раз тело цикла надо сделать в любом случае => проверку условия цикла надо делать в конце цикла (цикл с постусловием). Цикл с постусловием – это цикл, в котором проверка условия выполняется в конце цикла.

№ слайда 46 Цикл с постусловием: алгоритм начало конец да нет n &gt; 0? тело цикла условие В
Описание слайда:

Цикл с постусловием: алгоритм начало конец да нет n > 0? тело цикла условие ВЫХОДА блок "типовой процесс" ввод n основной алгоритм

№ слайда 47 Программа program qq; var n: integer; begin repeat writeln(&#039;Введите положител
Описание слайда:

Программа program qq; var n: integer; begin repeat writeln('Введите положительное число'); read(n); until n > 0; ... { основной алгоритм } end. until n > 0; условие ВЫХОДА Особенности: тело цикла всегда выполняется хотя бы один раз после слова until ("до тех пор, пока не…") ставится условие ВЫХОДА из цикла

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

Задания для самостоятельной работы 1. Составить программу , запрашивающую числа до тех пор, пока не ввели числа большего 50. 2. Составить программу, печатающую слово «Привет» и запрашивающую «Повторить Д/Н?». Программа завершает выполнение в случае нажатия Н, если Д, то повторяет.

№ слайда 49 Оператор выбора CASE Особенности: после case может быть имя переменной или ар
Описание слайда:

Оператор выбора CASE Особенности: после case может быть имя переменной или арифметическое выражение целого типа (integer) или символьного типа (char) case i+3 of 1: begin a := b; end; 2: begin a := c; end; end; var c: char; ... case c of 'а': writeln('Антилопа'); 'б': writeln('Барсук'); else writeln('Не знаю'); end;

№ слайда 50 Оператор выбора Особенности: если нужно выполнить только один оператор, слова
Описание слайда:

Оператор выбора Особенности: если нужно выполнить только один оператор, слова begin и end можно не писать нельзя ставить два одинаковых значения case i+3 of 1: a := b; 1: a := c; end; case i+3 of 1: a := b; 2: a := c; end;

№ слайда 51 Оператор выбора Особенности: значения, при которых выполняются одинаковые дей
Описание слайда:

Оператор выбора Особенности: значения, при которых выполняются одинаковые действия, можно группировать case i of 1: a := b; 2,4,6: a := c; 10..15: a := d; 20,21,25..30: a := e; else writeln('Ошибка'); end; перечисление диапазон смесь

№ слайда 52 Оператор выбора CASE Задача: Ввести номер месяца и вывести количество дней в
Описание слайда:

Оператор выбора CASE Задача: Ввести номер месяца и вывести количество дней в этом месяце. Решение: Число дней по месяцам: 28 дней – 2 (февраль) 30 дней – 4 (апрель), 6 (июнь), 9 (сентябрь), 11 (ноябрь) 31 день – 1 (январь), 3 (март), 5 (май), 7 (июль), 8 (август), 10 (октябрь), 12 (декабрь) Особенность: Выбор не из двух, а из нескольких вариантов в зависимости от номера месяца.

№ слайда 53 Алгоритм начало конец оператор выбора ни один вариант не подошел ввод M да не
Описание слайда:

Алгоритм начало конец оператор выбора ни один вариант не подошел ввод M да нет M = 1? D := 31; нет M = 2? D := 28; да нет M = 12? D := 31; да вывод D ошибка

№ слайда 54 Программа uses crt; var M, D: integer; begin 	 clrscr; writeln(&#039;Введите номер
Описание слайда:

Программа uses crt; var M, D: integer; begin clrscr; writeln('Введите номер месяца:'); read ( M ); case M of 2: begin D := 28; end; 4,6,9,11: begin D := 30; end; 1,3,5,7,8,10,12: D := 31; else D := -1; end; if D > 0 then writeln('В этом месяце ', D, ' дней.') else writeln('Неверный номер месяца'); readkey; end. ни один вариант не подошел

№ слайда 55 Задания для самостоятельной работы 1. По введенному номеру от 1 до 7 определи
Описание слайда:

Задания для самостоятельной работы 1. По введенному номеру от 1 до 7 определить день недели- например 1 – Понедельник и т.д. 2. Ставить программу , запрашивающую возраст и при введении до 15 включительно - говорит «Привет», от 16 до 20 говорит «друг», и говорит «Пока» в противном случае.

№ слайда 56 Процедуры Процедура – это вспомогательный алгоритм, который предназначен для
Описание слайда:

Процедуры Процедура – это вспомогательный алгоритм, который предназначен для выполнения какой-то законченной последовательности действий. Для исполнения подпрограммы процедуры необходимо сначала описать ее, а потом к ней обращаться Описание процедуры включает заголовок (имя) и тело процедуры Заголовок состоит из зарезервированного слова procedure, имени процедуры и заключенных в скобки списка формальных параметров с указанием типа

№ слайда 57 Процедуры Особенности: в процедуре можно объявлять дополнительные локальные п
Описание слайда:

Процедуры Особенности: в процедуре можно объявлять дополнительные локальные переменные, остальные процедуры не имеют к ним доступа program qq; procedure A(x, y: integer); var a, b: real; begin a := (x + y)/6; ... end; begin ... end. локальные переменные

№ слайда 58 Процедуры Задача: найти наибольшее из 4-х чисел, используя подпрограмму нахож
Описание слайда:

Процедуры Задача: найти наибольшее из 4-х чисел, используя подпрограмму нахождения наибольшего из 2-х чисел program max; uses crt; var a,b,c,d,p,q,m: integer; procedure bid(x,y: real; var z: real); begin if x>y then z:=x else z:=y end; begin clrscr; write(‘введите 4 числа:’); readln (a,b,c,d); bid (a,b,p); bid (c,d,q); bid (p,q,m); writeln(‘наибольшее из 4-х чисел’; m); readkey; end.

№ слайда 59 program max; uses crt; var a,b,c,d, max1,max2,max3,max4,p,q,s,k: integer; pro
Описание слайда:

program max; uses crt; var a,b,c,d, max1,max2,max3,max4,p,q,s,k: integer; procedure bid(x,y: integer; var z,k: integer); begin if x>y then begin z:=x; k:=y; end else begin z:=y; k:=z end; end; begin clrscr; write(‘введите 4 числа:’); readln (a,b,c,d); bid (a,b,max1, max2); bid (c,d,max3,max4); bid (max1,max2, p,q); bid (max3,max4, s,k); writeln(p,’ ‘,q,’ ‘,s,’ ‘,k); readkey; end.

№ слайда 60 Функции Функция – это вспомогательный алгоритм (подпрограмма), результатом ра
Описание слайда:

Функции Функция – это вспомогательный алгоритм (подпрограмма), результатом работы которого является некоторое значение. Примеры: вычисление , , расчет значений по сложным формулам ответ на вопрос (простое число или нет?) Отличия в заголовке в теле функции: хотя бы раз имени функции должно быть присвоено значение

№ слайда 61 Функции Особенности: заголовок начинается словом function формальные параметр
Описание слайда:

Функции Особенности: заголовок начинается словом function формальные параметры описываются так же, как и для процедур в конце заголовка через двоеточие указывается тип результата функции располагаются ВЫШЕ основной программы

№ слайда 62 Функции Особенности: можно объявлять и использовать локальные переменные знач
Описание слайда:

Функции Особенности: можно объявлять и использовать локальные переменные значение, которое является результатом, записывается в переменную, имя которой совпадает с названием функции; объявлять ее НЕ НАДО:

№ слайда 63 Функции Задача: найти наибольшее из 4-х чисел, используя подпрограмму нахожде
Описание слайда:

Функции Задача: найти наибольшее из 4-х чисел, используя подпрограмму нахождения наибольшего из 2-х чисел program max; uses crt; var a,b,c,d,p,q,m: real; function bid(x,y: real): real; begin if x>y then bid:=x else bid:=y end; begin clrscr; write(‘введите 4 числа:’); readln(a,b,c,d); p:=bid(a,b); q:=bid(c,d); m:=bid(p,q); writeln(‘наибольшее из 4-х чисел’,m); readkey; end.

№ слайда 64 Массивы Массив – это группа однотипных элементов, имеющих общее имя и располо
Описание слайда:

Массивы Массив – это группа однотипных элементов, имеющих общее имя и расположенных в памяти рядом. Особенности: все элементы имеют один тип весь массив имеет одно имя все элементы расположены в памяти рядом Примеры: список учеников в классе квартиры в доме школы в городе данные о температуре воздуха за год

№ слайда 65 Объявление массивов определить имя массива определить тип массива определить
Описание слайда:

Объявление массивов определить имя массива определить тип массива определить число элементов выделить место в памяти Массив целых чисел: Размер через константу: имя начальный индекс конечный индекс тип элементов var A: array[1.. ] of integer; const N=5; N var A : array[ 1 .. 5 ] of integer ;

№ слайда 66 Массивы Объявление: Ввод с клавиатуры: Поэлементные операции: const N = 5; va
Описание слайда:

Массивы Объявление: Ввод с клавиатуры: Поэлементные операции: const N = 5; var a: array[1..N] of integer; i: integer; for i:=1 to N do begin write('a[', i, ']='); read ( a[i] ); end; for i:=1 to N do a[i]:=a[i]*2;

№ слайда 67 Массивы Задача: Заполнить массив из 5 элементов с клавиатуры и вывести на экр
Описание слайда:

Массивы Задача: Заполнить массив из 5 элементов с клавиатуры и вывести на экран сумму 2 и 5 элементов uses crt; var i,sum: integer; a: array[1..5] of integer; begin clrscr; for i:=1 to 5 do begin write(‘Введите’, i, ‘элемент’); read (a[i]); end; sum:=a[2]+a[5]; write(‘Сумма 2 и 5 равна’, sum); readkey; end.

№ слайда 68 Задания для самостоятельной работы 1. Заполнить массив из 5 элементов и вывес
Описание слайда:

Задания для самостоятельной работы 1. Заполнить массив из 5 элементов и вывести на печать сначала все, ниже третий. 2. Заполнить массив из 5 элементов с клавиатуры и найти их среднее арифметическое.

№ слайда 69 Строковые величины Строка – это последовательность символов кодовой таблице.
Описание слайда:

Строковые величины Строка – это последовательность символов кодовой таблице. Длина строки (количества символов) может лежать в диапазоне 0..255 Для определения длины данных строкового типа используется идентификатор string, за которым следует максимальное значение длины строки данного типа. В программе значения переменных и констант типа char (символьный) заключается в апострофы. Например, st:=’река’ var s: string[20];

№ слайда 70 Символьные строки Задача: ввести строку с клавиатуры и заменить все буквы &quot;а&quot;
Описание слайда:

Символьные строки Задача: ввести строку с клавиатуры и заменить все буквы "а" на буквы "б". program qq; var s: string; i: integer; begin writeln('Введите строку'); readln(s); for i:=1 to Length(s) do if s[i] = 'а' then s[i] := 'б'; writeln(s); end. readln(s); writeln(s); Length(s) ввод строки длина строки вывод строки

№ слайда 71 Операции со строками Объединение: добавить одну строку в конец другой. Запись
Описание слайда:

Операции со строками Объединение: добавить одну строку в конец другой. Запись нового значения: var s, s1, s2: string; s := 'Вася'; s1 := 'Привет'; s2 := 'Вася'; s := s1 + ', ' + s2 + '!'; 'Привет, Вася!' Подстрока: выделить часть строки в другую строку. s := '123456789'; s1 := Copy ( s, 3, 6 ); s2 := Copy ( s1, 2, 3 ); '345678' '456' с 3-его символа 6 штук

№ слайда 72 Удаление и вставка Удаление части строки: Вставка в строку: s := &#039;123456789&#039;;
Описание слайда:

Удаление и вставка Удаление части строки: Вставка в строку: s := '123456789'; Delete ( s, 3, 6 ); с 3-его символа 6 штук строка меняется! '123456789' '129' s := '123456789'; Insert ( 'ABC', s, 3 ); Insert ( 'Q', s, 5 ); куда вставляем что вставляем начиная с 3-его символа '12ABC3456789' '12ABQC3456789'

№ слайда 73 Задания для самостоятельной работы 1. Ввели слово, определить его длину и выв
Описание слайда:

Задания для самостоятельной работы 1. Ввели слово, определить его длину и вывести 3 символ, а так же вывести вырезку с 2 символа , длинной 5 символов. 2. Из слова «вирус» путем замены букв получите слово «фокус».

№ слайда 74 Файлы Файл – это область на диске, имеющая имя. Файлы только текст без оформл
Описание слайда:

Файлы Файл – это область на диске, имеющая имя. Файлы только текст без оформления, не содержат управляющих символов (с кодами < 32) ACSII (1 байт на символ) UNICODE (2 байта на символ) *.txt, *.log, *.htm, *.html могут содержать любые символы кодовой таблицы *.doc, *.exe, *.bmp, *.jpg, *.wav, *.mp3, *.avi, *.mpg Текстовые Двоичные Папки (каталоги)

№ слайда 75 Принцип сэндвича I этап. открыть файл : связать переменную f с файлом открыть
Описание слайда:

Принцип сэндвича I этап. открыть файл : связать переменную f с файлом открыть файл (сделать его активным, приготовить к работе) assign(f, 'qq.dat'); reset(f); {для чтения} rewrite(f); {для записи} II этап: работа с файлом Переменная типа "текстовый файл": var f: text; III этап: закрыть файл close(f); read ( f, n ); { ввести значение n } write ( f, n ); { записать значение n } writeln ( f, n );{c переходом на нов.строку } append(f); {дописывать данные}

№ слайда 76 Работа с файлами Особенности: имя файла упоминается только в команде assign,
Описание слайда:

Работа с файлами Особенности: имя файла упоминается только в команде assign, обращение к файлу идет через файловую переменную файл, который открывается на чтение, должен существовать если файл, который открывается на запись, существует, старое содержимое уничтожается данные записываются в файл в текстовом виде при завершении программы все файлы закрываются автоматически после закрытия файла переменную f можно использовать еще раз для работы с другим файлом

№ слайда 77 Пример Задача: в файле input.txt записаны числа (в столбик), сколько их – неи
Описание слайда:

Пример Задача: в файле input.txt записаны числа (в столбик), сколько их – неизвестно. Записать в файл output.txt их сумму. Алгоритм: Открыть файл input.txt для чтения. S := 0; Если чисел не осталось, перейти к шагу 7. Прочитать очередное число в переменную x. S := S + x; Перейти к шагу 3. Закрыть файл input.txt. Открыть файл output.txt для записи. Записать в файл значение S. Закрыть файл output.txt. цикл с условием "пока есть данные"

№ слайда 78 Программа program qq; var s, x: integer; f: text; begin assign(f, &#039;input.txt&#039;
Описание слайда:

Программа program qq; var s, x: integer; f: text; begin assign(f, 'input.txt'); reset(f); s := 0; while not eof(f) do begin readln(f, x); s := s + x; end; close(f); assign(f, 'output.txt'); rewrite(f); writeln(f, 'Сумма чисел ', s); close(f); end. f: text; eof(f) логическая функция, возвращает True, если достигнут конец файла запись результата в файл output.txt

№ слайда 79 Обработка текстовых данных Задача: в файле input.txt записаны строки, в котор
Описание слайда:

Обработка текстовых данных Задача: в файле input.txt записаны строки, в которых есть слово-паразит "короче". Очистить текст от мусора и записать в файл output.txt. Файл input.txt : Мама, короче, мыла, короче, раму. Декан, короче, пропил, короче, бутан. А роза, короче, упала на лапу, короче, Азора. Каждый, короче, охотник желает, короче, знать, где ... Результат - файл output.txt : Мама мыла раму. Декан пропил бутан. А роза упала на лапу Азора. Каждый охотник желает знать, где сидит фазан.

№ слайда 80 Обработка текстовых данных Алгоритм: Прочитать строку из файла (readln). Удал
Описание слайда:

Обработка текстовых данных Алгоритм: Прочитать строку из файла (readln). Удалить все сочетания ", короче," (Pos, Delete). Перейти к шагу 1. Обработка строки s: Особенность: надо одновременно держать открытыми два файла (один в режиме чтения, второй – в режиме записи). пока не кончились данные repeat i := Pos(', короче,', s); if i <> 0 then Delete(s, i, 9); until i = 0; искать ", короче," удалить 9 символов

№ слайда 81 Работа с файлами program qq; var s: string; i: integer; fIn, fOut: text; begi
Описание слайда:

Работа с файлами program qq; var s: string; i: integer; fIn, fOut: text; begin assign(fIn, 'instr.txt'); reset(fIn); assign(fOut, 'outstr.txt'); rewrite(fOut); ... { обработать файл } close(fIn); close(fOut); end. fIn, fOut: text; файловые переменные открыть файл для чтения открыть файл для записи

№ слайда 82 Полный цикл обработки файла while not eof(fIn) do begin readln(fIn, s); write
Описание слайда:

Полный цикл обработки файла while not eof(fIn) do begin readln(fIn, s); writeln(fOut, s); end; repeat i := Pos(', короче,', s); if i <> 0 then Delete(s, i, 9); until i = 0; пока не достигнут конец файла обработка строки запись "очищенной" строки

№ слайда 83 Задания для самостоятельной работы 1. Создать на диске С файл 1.txt с 5 числа
Описание слайда:

Задания для самостоятельной работы 1. Создать на диске С файл 1.txt с 5 числами, введенными с клавиатуры. 2. Дописать в существующий файл 1.txt данные, введенные с клавиатуры.

Самые низкие цены на курсы профессиональной переподготовки и повышения квалификации!

Предлагаем учителям воспользоваться 50% скидкой при обучении по программам профессиональной переподготовки.

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

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

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

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


Идёт приём заявок на самые массовые международные олимпиады проекта "Инфоурок"

Для учителей мы подготовили самые привлекательные условия в русскоязычном интернете:

1. Бесплатные наградные документы с указанием данных образовательной Лицензии и Свидeтельства СМИ;
2. Призовой фонд 1.500.000 рублей для самых активных учителей;
3. До 100 рублей за одного ученика остаётся у учителя (при орг.взносе 150 рублей);
4. Бесплатные путёвки в Турцию (на двоих, всё включено) - розыгрыш среди активных учителей;
5. Бесплатная подписка на месяц на видеоуроки от "Инфоурок" - активным учителям;
6. Благодарность учителю будет выслана на адрес руководителя школы.

Подайте заявку на олимпиаду сейчас - https://infourok.ru/konkurs

Автор
Дата добавления 07.11.2016
Раздел Информатика
Подраздел Презентации
Просмотров45
Номер материала ДБ-326872
Получить свидетельство о публикации

УЖЕ ЧЕРЕЗ 10 МИНУТ ВЫ МОЖЕТЕ ПОЛУЧИТЬ ДИПЛОМ

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

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

Список всех тестов можно посмотреть тут - https://infourok.ru/tests


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