Заменить power, если нужно высчитывать и положительные и отрицательные числа - Pascal ABC


textual

Код к задаче: «Заменить power, если нужно высчитывать и положительные и отрицательные числа - Pascal ABC»

var a,xn,xk,dx,x,t1,t2,t3,t4,y,sm,po:real;
    k,ko:integer;
begin
a:=2.17;
xn:=-1.5;
xk:=0.5;
dx:=0.2;
x:=xn;
sm:=0;
po:=1;
ko:=0;
while x<xk+dx/2 do
 begin
  k:=0;
  t1:=a-x*x;
  if t1=0 then y:=0
  else
   begin
    t2:=a+x;
    if t2<=0 then k:=1
    else
     begin
      t3:=t1*t2;
      if t3>0 then t3:=exp(ln(t3)/3)
      else t3:=-exp(ln(-t3)/3);
      if(x=0)and(a=0) then k:=1
      else
       begin
        if x=0 then t4:=0
        else t4:=exp(ln(x*x)/3);
        if a>0 then t4:=t4+exp(ln(a)/5)
        else if a<0 then t4:=t4-exp(ln(-a)/5);
        y:=t3/t4;
       end;
     end;
   end;
  if k=1 then writeln('x=',x:4:1,' y не определено')
  else
   begin
    writeln('x=',x:5:1,' y=',y:6:2);
    sm:=sm+y;
    if y<0 then
     begin
      po:=po*y;
      ko:=ko+1;
     end;
   end;
  x:=x+dx;
 end;
writeln('Сумма=',sm:0:2);
write('Произведение отрицательных=');
if ko=0 then writeln(0)
else
 begin
  writeln(po:0:2);
  write('Из количество=',ko);
 end;
end.

СДЕЛАЙТЕ РЕПОСТ

11   голосов, оценка 3.909 из 5



Похожие ответы
  1. Помогите пожалуйста написать данный код через процедуру

  1. Нечетные строки таблицы заменить на вектор X

  1. Дано натуральное число n. Получить S – сумму тех чисел вида i3-3in2+n ,(i=1,2,...,n), которые являются утроенными нечетны-ми. Если таких чисел нет – считать сумму равной 0.

  1. Дан массив символов, в котором встречаются структуры и . Заменить каждое вхождение на , а каждое вхождение на <#>. Замечание: в программе следует учесть, что буква i может быть как строчной, так и прописной. Желательно расписать какая команда что выполняет.

  1. заменить максимальный по модулю отрицательный элемент массива нулём

  1. Написать программу: В заданной строке заменить подряд идущие пробелы на один пробел

  1. 1. Сформируйте случайным образом строку из 30 больших букв латинского алфавита и удалите повторяютщиеся символы, заменив их нулями. Выведите на экран сформированный массив и массив после обработки.

  1. Заменить простые числа в массиве их номерами (pascal) Помогите пожалуйста срочно надо сделать работу.

  1. Доброе время суток. Подскажите пожалуйста, как заменить goto на процедуру. Код готовый, нужно только отредактировать, нашел тут на форуме похожий пример, но не совсем понял его. Заменять на if ... then... else?