Function S(a,b,c:real):real;
Var
p:real ;
i,n, k,g: integer ;
Begin
p:=(a+b+c)/2;
result:=Sqrt(p*(p-a)*(p-b)*(p-c))

End;
Var
a,b,k,q,h,d,x1,x2 , w,c:real;
g:string;
Begin
writeln(‘добро пожаловать в математический помощник!!! как дела?’);
readln(g);


writeln(‘найти корни квадратного уравнения(4) высоту в прямоугольном треугольнике(2) вывести таблицу тригонометрических тождеств(3) воспользоваться формулой Герона(1) ‘);
readln(k);
if k=1 then
Write(‘a = ‘);
ReadLn(a);
Write(‘b = ‘);
ReadLn(b);
Write(‘c = ‘);
ReadLn(c);
WriteLn(‘S = ‘,S(a,b,c));



if k=2 then
writeln(‘введите проекции’);
readln(q,w);
h:=sqrt(q*q+w*w);
writeln(‘высота=’,h);

if k=4 then
Begin
Writeln (‘Введите коэффициенты квадратного уравнения: a,b,c’);
Readln (A,B,C);
D:=B*B-4*A*C;
If D<0 Then Writeln ('Корней нет ')
Else
Begin
X1:=(-B+SQRT(D))/2/A;
X2:=(-B-SQRT(D))/2/A;
Writeln (‘X1=’,X1:8:3,’ X2=’,X2:8:3);
end;
end;
end.



ПОЖАЛУЙСТА ПОМОГИТЕ ОТКОРЕКТИРОВАТЬ И НАЙТИ ОШИБКУ В КОДЕ, ИСПРАВИВ ЕЕ

Ответ учителя по предмету Информатика

Function S(a,b,c:real):real;

Var p:real;

Begin

p:=(a+b+c)/2;

result:=Sqrt(p*(p-a)*(p-b)*(p-c))

End;

Var

a,b,c,q,w,h,d,x1,x2:real;

g:string; k:integer;

Begin

writeln(‘добро пожаловать в математический помощник!!! как дела?’);

readln(g);

writeln(‘воспользоваться формулой Герона(1) высоту в прямоугольном треугольнике(2) найти корни квадратного уравнения(3)’);

readln(k);

case k of

 1: begin

    Write(‘a = ‘);

    ReadLn(a);

    Write(‘b = ‘);

    ReadLn(b);

    Write(‘c = ‘);

    ReadLn(c);

    WriteLn(‘S = ‘,S(a,b,c));

    end;

 2: begin

    writeln(‘введите проекции’);

    readln(q,w);

    h:=sqrt(q*q+w*w);

    writeln(‘высота=’,h);

    end;

  3: begin

    Writeln (‘Введите коэффициенты квадратного уравнения: a,b,c’);

    Readln (A,B,C);

    d:=b*b-4*a*c;

    If d<0 Then Writeln (‘Корней нет ‘)

    Else

     Begin

     x1:=(-b+SQRT(d))/2/a;

     x2:=(-b-SQRT(d))/2/a;

     Writeln (‘X1=’,X1:8:3,’ X2=’,X2:8:3);

     end;

    end;

end;

end.

Пример:

добро пожаловать в математический помощник!!! как дела?

ok

воспользоваться формулой Герона(1) высоту в прямоугольном треугольнике(2) найти корни квадратного уравнения(3)

1

a = 3

b = 4

c = 5

S = 6

PS. Все формулы в программе оставлены без изменения!