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

Слайд 1

Структура программы на языке PASCAL Тимофеев А.А.

Слайд 2

Структура программы Заголовок программы Описание меток Описание констант Описание типов Описание переменных Описание процедуры Описание функции begin Операторы end. Подключение стандартных библиотечных модулей

Слайд 3

Подключение стандартных библиотечных модулей Для подключения стандартных библиотечных модулей используется служебное слово USES Пример: USES CRT, GRAPH, DOS;

Слайд 4

Описание констант Для описания констант используется слово CONST. Пример: const maxspeed=210; code=$124; Name=‘admin’;

Слайд 5

Описание переменных Для описания переменных используется слово VAR. Пример: VAR A, b, sale: integer; K, s, way: real;

Слайд 6

Типы данных (целые числа) Byte числа от 0 до 255 Shorint от -128 до 127 Integer от -32768 до 32767 Word от 0 до 65535 Longint от -2147483648 до 2147483647

Слайд 7

Типы данных (вещественные числа) Real от 2.9*10 ^-39 до 1.7*10^38 Single от 1 .5*10^-45 до 3.4*10^38 Double от 5.0*10^-324 до 1.7*10^308 Extended от 1.9*10^-4591 до 1.1*10^4932 Comp от -2 ^63+1 до 2^63-1

Слайд 8

Пример простой вычислительной программы Program proiz; Var a,b,c: integer; Begin Write(‘ введите 2 числа через пробел ’); Read(a, b); C:=a*b; Write(‘ призведение= ’,c); Readln; End.

Слайд 9

Операции и функции Сложение +, вычитание -, умножение *, деление / Возведение в квадрат числа x – sqr(x) Корень квадратный числа x – sqrt ( x ) Синус – sin(x) Косинус – cos(x) Тангенс – tan(x) Абсолютная величина (модуль) – ABS(x) X+1 – INC(x) X-1 – DEC(x)

Слайд 10

Задачи для самостоятельного решения Поменяйте значение переменных a и b местами, используя третью переменную c . Поменяйте значение переменных a и b местами, не используя третью переменную. Заданы катеты прямоугольного треугольника, определите его площадь.

Слайд 11

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

Слайд 1

Работа с файлами PASCAL Автор: Тимофеев А.А.

Слайд 2

Общие сведения Каждому файлу в языке PASCAL ставится в соответствие файловая переменная определённого типа. Для связывания файла с переменной используется процедура ASSIGN(var F; Name:string) , где F – переменная любого файлового типа, а строковое выражение Name содержит полное имя файла.

Слайд 3

Открытие файла RESET (var F: file); - открывает существующий файл. REWRITE (var F: file); - создаёт и открывает новый файл. В обоих случаях F – файловая переменная любого типа.

Слайд 4

Закрытие файла CLOSE (var F: file); - закрытие файла, соответствующего переменной F .

Слайд 5

Переименование файла RENAME (var: F: NewName: string) – переименование неоткрытого файла, связанного с переменной F , новое имя соответствует NewName

Слайд 6

Удаление файла ERASE (var F); - удаление неоткрытого файла, связанного с переменной F

Слайд 7

Пример программы для проверки наличия файла Var F: file; St: string; Begin Writeln(‘ Введите имя файла : ’); Readln(St); Assign(F, St); {$I-} { отключить стандартную обработку ошибок } Reset(F); { открыть файл } {$I+} { включить стандартную обработку ошибок } If IOresult=0 then begin Writeln(‘ файл существует и открыт ’); Close(F); end else Writeln(‘ Файла с именем ’, St,’ нет ’); Readln; end.

Слайд 8

Текстовые файлы Текстовый файл – это последовательность символов, разбитая на строки длиной от 0 до 255 символов. Стандартный тип для текстовых файлов TEXT Var f: text; f – файловая переменная

Слайд 9

Открытие текстового файла Поставить в соответствие имя файла файловой переменной – процедура ASSIGN , открыть новый текстовый файл – процедура REWRITE Поставить в соответствие имя файла файловой переменной – процедура ASSIGN , открыть существующий текстовый файл – процедура RESET Поставить в соответствие имя файла файловой переменной – процедура ASSIGN , открыть существующий текстовый файл для добавления информации – процедура APPEND

Слайд 10

Процедуры обработки текстовых файлов READ или READLN – чтение данных из файла в строковую переменную WRITE или WRITELN – запись данных из строковой переменной в строку, указанного файла. Проверка конца строки not Eoln(F) (Eoln – end of line) Проверка конца файла not Eof(F) (Eof – end of file)

Слайд 11

Задачи Прочитать из любого существующего файла первые 10 символов из первой строки и вывести на экран. Прочитать по 5 символов из каждой строки любого существующего файла и записать эти символы в файл с именем text1.txt. Записать в текстовый файл с именем fio.txt фамилии, имена и отчества 10 человек, фамилии, имена и отчества вводятся с клавиатуры.

Слайд 1

Операции с целыми числами в языке PASCAL

Слайд 2

Операция DIV Операция DIV вычисляет целое частное Например: 10 div 2 = 5 10 div 3 = 3 2 div 4 = 0 13 div 4 = 3

Слайд 3

Операция MOD Операция MOD вычисляет целый остаток от деления. Например: 10 mod 2 = 0 10 mod 3 = 1 14 mod 5 = 4 3 mod 5 = 3

Слайд 4

Вычислите значения выражений 12 div 6 = 17 div 9 = 15 mod 4 = 21 mod 3 = 45 div 9 = 53 mod 7 = 100 mod 8 =

Слайд 5

Проверьте ответы 12 div 6 = 2 17 div 9 = 1 15 mod 4 = 3 21 mod 3 = 0 45 div 9 = 5 53 mod 7 = 4 100 mod 8 = 4

Слайд 6

Применение операций DIV и MOD Операция DIV может использоваться для выделения цифр из числа. Есть число x:=345 надо определить сумму цифр этого числа. Решение: A:=x div 100; B:=(x-a*100) div 10; C:=x – a*100 – b*10; S:=a+b+c; Writeln(s); Придумайте другой вариант выделения цифр из числа.

Слайд 7

Применение операций DIV и MOD Операция MOD используется для определения делимости нацело одного числа на другое. Например в программу вводится целое число d надо определить делится ли оно на 4 без остатка? Решение: READL (d); If d mod 4 = 0 then writeln(‘ d делится без остатка на 4 ’) else writeln(‘d не делится без остатка на 4 ’);

Слайд 8

Задачи В программу вводятся 3 целых числа, выведите на экран не четные числа? В программу вводятся 3 целых числа, определите сколько из них чётных? В программу вводится целое четырёхзначное число. Определите будет ли сумма первых двух цифр равна сумме третьей и четвёртой цифры.

Слайд 9

Задачи В программу вводится целое четырёхзначное число. Определите суммы цифр стоящих под чётными и не чётными номерами, какая сумма цифр больше? В программу вводится трёхзначное целое число. Определите будет ли произведение цифр этого числа больше 20?

Слайд 1

Циклы PASCAL

Слайд 2

Что такое цикл? Цикл это повторение одних и тех же действий несколько раз. Количество повторений определяется либо условием, либо количество повторений известно заранее и задаётся начальным и конечным значением счётчика.

Слайд 3

Цикл с параметром Повторить 10 раз Подойди к доске Покрась доску

Слайд 5

Цикл с параметром начало S:=0 A от 1 до 9 S:=S+A Вывести: A, S конец A:=1 S:=1 A:=2 S:=3 A:=3 S:=6 A:=4 9 45

Слайд 6

Программа на языке PASCAL Program sum1; Var a, s: integer; Begin s:=0; for a:=1 to 9 do s:=s+a; Writeln (a,’ ‘ ,s); READLN; End.

Слайд 7

Изменения к программе Измените программу так, чтобы выводились все промежуточные результаты A и S . Измените программу так, чтобы суммировались целые числа от числа x до числа y .

Слайд 8

Задачи для самостоятельного решения Дана арифметическая прогрессия 1, 5, 9, 13 … Напишите программу определения суммы 10 первых членов такой прогрессии. Выведите все слагаемые и сумму. Среди целых чисел от 11 до 99 определите числа, кратные 7 и выведите их на экран.

Слайд 9

Задачи для самостоятельного решения Среди чисел от 21 до 57 определите сумму всех нечётных чисел. Среди чисел от 10 до 100 определите сумму чисел, которые делятся на 4 и на 8. Выведите эти числа и их сумму. Среди чисел от 20 до 40 найдите и выведите на экран числа, у которых сумма цифр делится на 4.

Слайд 10

Задачи для самостоятельного решения Найдите двузначное число, равное квадрату числа его единиц, сложенному с кубом числа его десятков.

Слайд 1

Цикл типа «ПОКА»

Слайд 2

Цикл «ПОКА» Используется, когда не известно количество повторений команд цикла, выход из цикла происходит при нарушении указанного условия. Задача: дана последовательность чисел 2, 6, 10, 14 … Запишите алгоритм суммирования этих чисел, пока сумма не превысит или не окажется равна 150. Выведите все слагаемые и промежуточные суммы.

Слайд 3

начало S:=0; n:=2 S<150 s:=s+n; n:=n+4 Вывести: n, s конец Program sum4; Var s,n: INTEGER; Begin S:=0; N:=2; WHILE s<150 do Begin s:=s+n; WRITELN(n,’ ‘ ,s); n:=n+4; end; READLN; End.

Слайд 4

Задачи Сколько чисел последовательности 2, 4, 6, 8 … нужно взять, чтобы их сумма превысила 1000? Вывести величину последнего слагаемого и суммы. Студент решил накопить сумму в S рублей для покупки ПК. В первый месяц он отложил P рублей, затем его вклад возрастал на 5% больше предыдущего вклада. Через какое число месяцев студент сможет приобрести ПК? Величины P и S введите с клавиатуры.

Слайд 5

Задачи В водоёме 100 тонн рыбы. Каждый год рыболовецкая бригада вылавливает 15 тонн. Воспроизводство рыбы 5% в год. Для сохранения воспроизводства рыбы необходимо прекращать лов, когда в водоёме её останется менее 5 тонн. Через какое число лет должен быть прекращён лов рыбы?

Слайд 6

Задачи Лыжник, начав тренировки, в первый день пробежал 10 км. Каждый следующий день он увеличивал пробег на 10% от пробега предыдущего дня. Сколько километров он пробежит за 7 дней. Дано натуральное число. Верно ли, что сумма его цифр больше 10? написать программу возведения числа A в целую степень N.