Метод пошаговой детализации

Слайд 2

11 класс Метод пошаговой детализации

11 класс

Метод пошаговой
детализации

Слайд 3

Слайд 4

СУТЬ МЕТОДА 1 . Анализ исходной задачи 2. Составление алгоритма

СУТЬ
МЕТОДА

1 . Анализ
исходной
задачи

2. Составление алгоритма

Слайд 5

ПРИМЕР Вычислить площадь выпуклого N-угольника, заданного координатами своих вершин x1, y1

ПРИМЕР

Вычислить площадь выпуклого N-угольника, заданного координатами своих вершин

x1, y1

x2, y2

x3, y3

x4,

y4

x5, y5

x6, y6

N-2

 

 

Слайд 6

ЗАДАЧИ И ПОДЗАДАЧИ Исходные данные – координаты вершин N-угольника будут храниться в двух массивах: Х[1..N], Y[1..N]

ЗАДАЧИ И ПОДЗАДАЧИ

Исходные данные – координаты вершин N-угольника будут храниться в

двух массивах: Х[1..N], Y[1..N]
Слайд 7

1 шаг детализации Program N_ugolnik; Const N=6; Var X, Y:array[1..N] of

1 шаг детализации

Program N_ugolnik;
Const N=6;
Var X, Y:array[1..N] of real; S, SNugol:

real; i:integer;
Procedure Treugolnik(Var x1, y1, x2, y2, x3, y3, R:real);
{блок процедуры не записывается}
begin
{ввод координат вершин многоугольника}
for i:=1 to N do
begin
Write(‘X[’, i, ‘]=’); Readln(X[i]);
Write(‘Y[’, i, ‘]=’); Readln(Y[i])
end;
Snugol:=0; {Переменная для вычисления площади фигуры}
{Суммирование площадей треугольников}
for i:=2 to N-1 do
begin
Treugolnik(X[1], Y[1], X[i], Y[i], X[i+1], Y[i+1], S)
Snugol:=Snugol+S
end;
Writeln (‘Площадь фигуры = ’, SNugol)
end.
Слайд 8

2 шаг детализации Procedure Treugolnik(Var x1, y1, x2, y2, x3, y3,

2 шаг детализации

Procedure Treugolnik(Var x1, y1, x2, y2, x3, y3, R:real);
Var

L1, L2, L3, p:real;
Function Line (Var Xa, Ya, Xb, Yb: real):real;
{Блок функции не записывается}
begin
L1:= Line(x1, y1, x2, y2); {Длина 1-й стороны}
L2:= Line(x2, y2, x3, y3); {Длина 2-й стороны}
L3:= Line(x1, y1, x3, y3); {Длина 3-й стороны}
p:=(L1+L2+L3)/2; {Полупериметр}
R:=sqrt(p*(p-L1)*(p-L2)*(p-L3)) {Площадь треугольника}
end;
Слайд 9

3 шаг детализации Function Line (Var Xa, Ya, Xb, Yb: real):real; begin Line:=sqrt(sqr(Xa-Xb)+sqr(Ya-Yb)) end;

3 шаг детализации

Function Line (Var Xa, Ya, Xb, Yb: real):real;
begin
Line:=sqrt(sqr(Xa-Xb)+sqr(Ya-Yb))
end;