Презентация на тему "Подпрограммы в языке Паскаль" 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
  

  Описание процедуры: procedurename (список формальных параметров); описательная часть; 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
  

  Функции functionname (список формальных параметров):тип результата; описательная часть; 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
  

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