Применение подпрограмм

[desnet]

Дана длина а=2.2,b=1.7,c=0.9 сторон некоторого треугольника.Найти медианы треугольника,сторонами которого являются медианы исходного,если учесть что длина медианы,проведенной к стороне а,находиться по формуле m=0,5*sqrt(2*b*b+2*c*c-a*a)
помогите найти ошибки
program lab_6b;
var
x,y,z:real;
med:real;
function med_x,y,z(a,b,c:real):real;
begin
a:=2.2;
b:=1.7;
c:=0.9;
end;
begin
med_x:=0.5*sqrt(2*b*b+2*c*c-a*a);
med_y:=0.5*sqrt(a*a+2*c*c-2*b*b);
med_z:=0.5*sqrt(a*a+2*b*b-2*c*c);
writeln('med_x',med_x:5:1,'med_y',m ed_y:5:1,'med_z',med_z:5:1);
readln;
end.

[ByAlex]

Проверять формулы не стал, просто переделал прогу -

program Project1;
uses crt;
var
  a,b,c,med_x,med_y,med_z:real;
function medians():real;
begin
  med_x:=0.5*sqrt(2*b*b+2*c*c-a*a);
  med_y:=0.5*sqrt(a*a+2*c*c-2*b*b);
  med_z:=0.5*sqrt(a*a+2*b*b-2*c*c);
  writeln('med_x = ' ,med_x:2:1,' med_y = ',med_y:2:1,' med_z = ',med_z:2:1);
end;
begin
  a:=2.2;
  b:=1.7;
  c:=0.9;
  medians();
  readln;
end.

Вы предупреждения компилятора читать умеете или нет? У вас же почти все переменные не были проинициализированы.

[Ирина Iriska]

Помогите пожалуйста, праграма которая находит в существующем файле все строки содержащие набор символов, ввести с клавиатуры. Сколько раз нашли?

[desnet]

спасибо,все работает

[whatever]

Сообщение от Ирина Iriska

Помогите пожалуйста, праграма которая находит в существующем файле все строки содержащие набор символов, ввести с клавиатуры. Сколько раз нашли?

Собака самолет яйцо табуретка. Валенок гараж бекон. Доска асфальт?

А если серьезно, создай свою тему и напиши корректное задание.