Дополнительное  задание для 10-А класса.
(для Волкова К.)

Найти и исправить ошибки в программе.

Программа для вычисления площади выпуклого 4-угольника, заданного длинами его сторон и диагональю.
(используется п
роцедура без параметров)

program Prog;

var AB, BC, CD, DA, AC, S1, S2, S, a, b, c, p: real;
Procedure Ploshad1;
begin
p:=(a+b+c)*2;
s:=sqr(p*(p-a)*(p-b)*(p-c));
end.
begin
Writeln(‘Задайте стороны 4-х угольника ABCD и его диагональ AC’);
readln (AB, BC, CD, DA, AC);
a:=AB; b:=BC; c:=AD;
Ploshad1;
S1:=s;
a:=DA; b:=AC; c:=CD;
Ploshad1;
S2:=S1;
Writeln (‘Площадь ABCD= ‘, S1+S2:8:2);
readln;
end.

Практическая работа по теме «Процедуры»

Составить программу нахождения суммы двух чисел.

Program Summa;
Procedure Summ(a, b:real; var c:real);
begin
c:=a+b
end;
Var x, y, z : real;
Begin
write (’x, y : ’); read (x, y);
summ (x, y, z); write (’z = ’, z:6:2);
end.

Тема урока «Процедуры. Описание процедур»

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

Procedure Имя [(Список формальных параметров)];
Описательная часть
Begin
    Тело процедуры  
End;

    При вызове процедуры ее формальные параметры заменяются соответствующими физическими.
   Фактические параметры – это параметры, которые передаютс  процедуре при ее вызове.

Количество и типы формальных и фактических параметров должно в точности совпадать.

    Формальные параметры описываются в заголовке процедуры и определяют тип и место подстановки фактических параметров. Формальные параметры делятся на два вида:
параметры-переменные и параметры-значения.
    Параметры-переменные отличаются тем, что перед ними стоит служебное слово Var. Они используются тогда, когда необходимо, чтобы изменения в теле процедуры значений формальных параметров приводили к изменению соответствующих фактических параметров.
    Параметры-значения отличаются тем, что перед ними слово Var не ставится. Внутри процедуры можно производить любые действия с параметрами-значениями, но все изменения никак не отражаются на значениях соответствующих фактических параметров, то есть какими они были до вызова процедуры, такими же и останутся после завершения ее работы.
    Все переменные программы делятся на глобальные и локальные.
   Глобальные переменные объявляются в разделе описания переменных основной программы.
   Локальные переменные объявляются в процедурах и функциях. Таким образом, локальные переменные «живут» только во время работы подпрограммы.

Домашнее задание по теме «ПРОЦЕДУРЫ»

Составить программу для вычисления площади выпуклого 4-угольника, заданного длинами его сторон и диагональю.

program Prog;
var AB, BC, CD, DA, AC, S1, S2: real;
Procedure Ploshad3(var a, b, c,s:real);
   var p:real;
     begin
       p:=(a+b+c)/2;
       s:=sqrt(p*(p-a)*(p-b)*(p-c));
     end;
begin
  Writeln(‘Задайте стороны 4-х угольника ABCD и его диагональ AC’);
  readln (AB, BC, CD, DA, AC);
  Ploshad3(AB,BC,AC,S1);
  Ploshad3(DA,AC,CD,S2);
  Writeln (‘Площадь ABCD= ‘, S1+S2:8:2);
  readln;
  end.