[Delphi]Переписать программу использовав функцию

[just4smth]

Просьба переписать программу вычисления уравнения, использовав функцию

Program n2;

{$mode delphi}{$H+}

Uses
SysUtils,Crt;

Var
  a,b,x:^real; //Задаём указатели на перееменные a,b,x вещественного типа

Begin
  ClrScr;

  New(a); New(b); New(x); //Cоздаём динаамичесские перееменные a, b, x
  WriteLn('Vvedite a:'); ReadLn(a^); WriteLn;
  WriteLn('Vvedite b:'); ReadLn(b^); WriteLn;
    if (a^=0) and (b^=0) then Writeln('x = 0') else
      if b^=0 then Writeln('Delenie na 0') else begin
        x^ := (-b^) / (a^);
        WriteLn('x = ',x^:5:4);
      end;
  Dispose(a); Dispose(b); Dispose(x); //Уничетожаем динаамичесские перееменные a, b, x

  ReadLn;
end.

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

[ByAlex]

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

Вот так попробуй -

program Project1;

{$APPTYPE CONSOLE}

Uses
SysUtils;
function schet():Real;
var
  a,b,x:^real;
begin
  New(a); New(b); New(x);
  WriteLn('Vvedite a:'); ReadLn(a^); WriteLn;
  WriteLn('Vvedite b:'); ReadLn(b^); WriteLn;
    if (a^=0) and (b^=0) then
      Writeln('x = 0')
    else
    if b^=0 then
      Writeln('Delenie na 0')
    else
    begin
      x^:=(-b^)/(a^);
      WriteLn('x = ',x^:5:4);
    end;
  Dispose(a); Dispose(b); Dispose(x);
end;
Begin
  schet();
  ReadLn;
end.

[just4smth]

Спасибо!
А как сделать, чтобы ввод переменных выполнялся в основной части, значения передавались в функцию, которая возвращала результат в основную часть, в которой и выводился результат? (Бред, конечно, но хочется разобраться на простом примере )

[ByAlex]

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

Спасибо!
А как сделать, чтобы ввод переменных выполнялся в основной части, значения передавались в функцию, которая возвращала результат в основную часть, в которой и выводился результат? (Бред, конечно, но хочется разобраться на простом примере )

program Project1;

{$APPTYPE CONSOLE}

Uses
SysUtils;
var
  a,b,x:^real;
function schet(var a,b:real):Real;
begin
    if (a=0) and (b=0) then
      Writeln('x = 0')
    else
    if b=0 then
      Writeln('Delenie na 0')
    else
    begin
      x^:=(-b)/(a);
    end;
    Result:=x^;
end;
Begin
  New(a); New(b); New(x);
  WriteLn('Vvedite a:'); ReadLn(a^); WriteLn;
  WriteLn('Vvedite b:'); ReadLn(b^); WriteLn;
  schet(a^,b^);
  WriteLn('x = ',x^:5:4);
  Dispose(a); Dispose(b); Dispose(x);
  ReadLn;
end.

[just4smth]

Спасибо! То, что нужно!