Подпрограммы(Pascal)

[AndrewAlexandrov]

Здравствуйте, помогите пожалуйста с подпрограммами, никак не могу разобраться c procedure и function
пробовал делать, она работает, но результат выдает не правильный.
вот эти три программы

program PR4_Alexandrov;
 
var
  a, b, c, d, e, r, t, y, u, s, p: real;
  n,k: Integer;
label c1, Kon;
begin
  cls;
  Kon:
  Write('Задание: Треугольник задан координатами своих вершин. Составить программу для вычисления его площади(1-продолжить,0-конец программы)-');
  Read(n);
  case n of
    1: 
      
      begin
        c1:
        writeln('Введите координаты (x;y) точки А');
        readln(a, b);
        writeln('Введите координаты (x;y) точки B');
        readln(c, d);
        writeln('Введите координаты (x;y) точки C');
        readln(e, r);
        begin
        t := sqrt(sqr(a - c) + sqr(b - d));
        y := sqrt(sqr(a - e) + sqr(b - r));
        u := sqrt(sqr(c - e) + sqr(d - r));
        p := (t + y + u) / 2;
        s := sqrt(p * (p - t) * (p - y) * (p - u));
        end;
        writeln('Площадь треугольника = ', s:3:3);
        Write('Повторить? (да-1, нет-0)'); Read(K);
        cls;
        if K = 1 then goto c1 else goto Kon;
      end;
  End;
end.

program PR4_Alexandrov;

type
  cisla = 0..9;
  var
  n,k,i,x,Nm: Integer;
  n1: word;
  m: array[1..1000] of cisla;
  s2: string;
label c1, Kon;
begin
  cls;
  Kon:
  Write('Задание: Дано натуральное число N. Составить программу для формирования массива, элементами которого являются цифры числа N.(1-продолжить,0-конец программы)-');
  Read(n);
  case n of
    1: 
      begin
        c1:
        write('Введите число:');
        readln(n1);
        str(n1, s2);
        for i := 1 to length(s2) do
        begin
        val(s2[i], x, Nm); m[i] := x;
        Nm := length(s2);
        end;
        for i := 1 to Nm do writeln('M[', i, ']=', m[i]);
        read;
        Write('Повторить? (да-1, нет-0)'); Read(K);
        cls;
        if K = 1 then goto c1 else goto Kon;
      end;
  end;
End.

program PR4_Alexandrov;
 
var
n,k,x,s1: Integer;
 
label c1, Kon;
begin
  cls;
  Kon:
  Write('Задание: Найти сумму цифр заданного натурального числа.(1-продолжить,0-конец программы)-');
  Read(n);
  case n of
    1: 
      
      begin
        c1:
       begin
          writeln('Введите число:');
          readln(x);
          s1 := 0;
          while (x > 0) do 
          begin
            s1 := s1 + x mod 10;
            x := x div 10;
          end;
          writeln('Сумма чисел равна:', s1);
          Write('Повторить? (да-1, нет-0)'); Read(K);
          cls;
          if K = 1 then goto c1 else goto Kon;
        end;
  end;
end;
End.

[type_Oleg]

А где процедуры или функции? И зачем label и goto, это же mauvais ton

[AndrewAlexandrov]

Сообщение от type_Oleg

А где процедуры или функции? И зачем label и goto, это же mauvais ton

насчет процедуры и функции
у меня ничего там не получилось и я решил вернуть как было
и обратиться сюда.

[type_Oleg]

Вот , первое задание, но однократное вычисление. Добавьте сами цикл с выходом. Но лучше без goto и label, а с while или repeat.
Вот так используют функции

program Trian;

function dlina(x1,y1,x2,y2:Real):Real;
begin
 dlina:=Sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));
end;
function Geron(a,b,c:Real):Real;
var p:Real;
begin
 p:=(a+b+c)/2;
 Geron:=Sqrt(p*(p-a)*(p-b)*(p-c));
end;

var xa,xb,xc,ya,yb,yc,S:Real;
begin
 writeln('Введите координаты (x;y) точки А');
 readln(xa, ya);
 writeln('Введите координаты (x;y) точки B');
 readln(xb, yb);
 writeln('Введите координаты (x;y) точки C');
 readln(xc, yc); 	
 S:=Geron(dlina(xa,ya,xb,yb),dlina(xa,ya,xc,yc),dlina(xb,yb,xc,yc));	
 writeln('S = ',S); 	
end.

[AndrewAlexandrov]

Сообщение от type_Oleg

Вот , первое задание, но однократное вычисление. Добавьте сами цикл с выходом. Но лучше без goto и label, а с while или repeat.
Вот так используют функции

спасибо большое
и с процедурами можете помочь разобраться

[type_Oleg]

Отличие процедуры от функции покажу на этом же примере. Например, площадь вычисляем с помощью процедуры, а не функции.
Тогда вместо этого

function Geron(a,b,c:Real):Real;
var p:Real;
begin
 p:=(a+b+c)/2;
 Geron:=Sqrt(p*(p-a)*(p-b)*(p-c));
end;

надо вот это

procedure Geron(a,b,c:Real;var S:Real);
var p:Real;
begin
 p:=(a+b+c)/2;
 S:=Sqrt(p*(p-a)*(p-b)*(p-c));
end;

.. а вместо этого

S:=Geron(dlina(xa,ya,xb,yb),dlina(xa,ya,xc,yc),dlina(xb,yb,xc,yc));

вот это

Geron(dlina(xa,ya,xb,yb),dlina(xa,ya,xc,yc),dlina(xb,yb,xc,yc),S);

Как говорится, найдите 10 различий

Кстати, в процедуре не обязательно должно что-то вычисляться. Можно например, типовые методы ввода данных оформить в виде процедуры.

[AndrewAlexandrov]

Сообщение от type_Oleg

Отличие процедуры от функции покажу на этом же примере.

еще раз большое спасибо