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

Слайд 1

Слайд 2

Задача. Даны 4 целых числа. Найдите наибольшее из них. Program chisla; var a,b,c,d,f:integer; Begin writeln(‘ Введите 4 целых числа ’); readln(a,b,c,d); if a>b then f:=a else f:=b; if c>f then f:=c; if d>f then f:=d; writeln(‘ Большее число из четырех чисел ’, f ); readln; End. 2способ

Слайд 3

Назначение: Встречаются похожие или повторяющиеся фрагменты Улучшает структуру программы Улучшает внешний вид программы Уменьшает вероятность ошибок и облегчает отладку Виды подпрограмм: Процедуры Функции

Слайд 4

Описание процедуры: procedure name ( список формальных параметров ); описательная часть; begin тело процедуры; end; ФОРМАЛЬНЫЕ ПАРАМЕТРЫ ПАРАМЕТРЫ-ПЕРЕМЕННЫЕ ПАРАМЕТРЫ-ЗНАЧЕНИЯ ( исходные данные ) ( результаты )

Слайд 5

ПАРАМЕТРЫ ФАКТИЧЕСКИЕ ФОРМАЛЬНЫЕ ИСПОЛЬЗУЮТСЯ В ОСНОВНОЙ ПРОГРАММЕ ПЕРЕДАЮТСЯ ПРОЦЕДУРЕ ПРИ ЕЕ ВЫЗОВЕ ИСПОЛЬЗУЮТСЯ В ПОДПРОГРАММЕ ЗАМЕНЯЮТСЯ СООТВЕТСТВУЮЩИМИ ФАКТИЧЕСКИМИ Количество и типы формальных и фактических параметров должны в точности совпадать. Важно

Слайд 6

Решение задач Задача. Даны 4 целых числа. Найдите наибольшее из них.

Слайд 7

Program chisla; var a,b,c,d,f : integer; procedure two ( var x,y: integer; k:integer ); begin if x>y then k:=x else k:=y; end; Begin writeln(‘ Введите 4 целых числа ’); readln(a,b,c,d); two(a,b,f); two(c,f,f); two(d,f,f); writeln(‘ Большее число из четырех чисел ’, f ); readln; End. КОМАНДА ВЫЗОВА ПРОЦЕДУРЫ

Слайд 8

Задание на дом: Задача1. Даны два числа. Сумма цифр какого числа меньше? ( 2 способа) Задача 2 . Даны длины трех сторон треугольника. Вычислите периметр треугольника.( 2 способа )

Слайд 9

Функции Тема урока:

Слайд 10

Задача 1. Найдите сумму площадей 4 окружностей , если известны их радиусы. program SUMMA; var R1,R2,R3,R4,S1,S2,S3,S4,S: real; begin writeln(‘ Введите радиусы 4-х окружностей ’); readln(R1,R2,R3,R4); S1:=3.14*sqr(R1); S2:=3.14*sqr(R2); S3:=3.14*sqr(R3); S:=S1+S2+S3+S4; writeln(‘ сумма площадей четырех окружностей равна ’ , S); readln; end.

Слайд 11

program SUMMA; var R1,R2,R3,R4,S1,S2,S3,S4,S: real; procedure ; begin end; begin writeln(‘ Введите радиусы 4-х окружностей ’); readln(R1,R2,R3,R4); S:=S1+S2+S3+S4; writeln(‘ сумма площадей четырех окружностей равна ’ , S); readln; end. Записать решение с помощью процедуры и ответить на вопросы учителя

Слайд 12

Функции function name ( список формальных параметров ): тип результата ; описательная часть; begin тело функции; end; В теле функции должен быть оператор присваивания, в левой части которого стоит имя функции, а в правой – ее значение . важно

Слайд 13

Задание 2. Рассчитать значение x, определив и использовав необходимую функцию. Program Znachenie; var x1,x2,x3,x:real; function drob ( a:integer);real; begin drob:= (sqr(a)+a)|2; end; Begin x1:= drob(6); x2:= drob(12); x3:= drob(21); X:=X1+X2+X3; Writeln(‘ Значение X=’, X); End.

Слайд 14

Задание на дом: Задача. Найдите периметр треугольника, заданного координатами своих вершин ( определить функцию или процедуру для расчета длины отрезка по координатам)