Линейные вычислительные процессы - Pascal ABC

[Totoldamag]

Составить блок-схему и алгоритм решения задач. Упростить выражение при помощи дополнительной переменной. Значения параметров выбрать самостоятельно таким образом, чтобы не было деления на ноль и отрицательного подкоренного выражения (для корня четной степени)
тест.jpg

[Аватар]

Тут не решатель задач.

Покажите свои наработки, конкретные вопросы и т.п.
http://www.programmersforum.ru/announcement.php?f=31

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.

[newerow1989]

var a,b,c,m,z:real;
begin
   Write('a = '); Readln(a);
   Write('b = '); Readln(b);
   Write('c = '); Readln(c);
   If b=1 then
   begin
      Writeln('b = 1!');
      Readln;
      Exit;
   end;
   If a<0 then
   begin
      Writeln('a < 0!');
      Readln;
      Exit;
   end;
   z:=Abs((a+b+Power(a,c))/(b*b-1));
   m:=Sqr(Ln(z))+4*Sin(Exp(z));
   Writeln(m:5:8);
   Readln;
end.