Дана программа (PASCAL). Модифицировать ее так, чтобы...

[weh]

Дана программа. Модифицировать ее так, чтобы она выводила значение С в порядке возрастания, а те С, для которых нельзя произвести расчет, выводятся в самом начале таблицы (т.е если С нельзя посчитать, то эти значения идут в самом начале, а далее С выводится в порядке возрастания).

program lab; 
 
var
  a, b, x, p, c: array [1..100] of real; 
  pr: array [1..100] of string; 
  i, n: integer; 
begin
  write('Введите количество пар Х и Р: '); 
  Readln(n); 
  
  for i := 1 to n do 
  begin
    write('Введите значение P: '); 
    Readln(p[i]); 
    
    write('Введите значение X: '); 
    Readln(x[i]); 
    
     if (sqrt(p[i]*p[i]*p[i]) + (x[i]*x[i]) + 4.5) >= 0 then  
   begin                                                                                                  
    if (sin (sqrt(p[i]*p[i]*p[i]) + (x[i]*x[i]) + 4.5)) >= 0                            
    then begin                                                                                        
      a[i] := (sin (sqrt(p[i]*p[i]*p[i]) + (x[i]*x[i]) + 4.5));  
      if (ln(x[i]*x[i]*x[i]) + abs(x[i]*x[i]*x[i]*x[i] - 2*p[i])) >= 0                                                            
      then begin 
        b[i] := (x[i]*x[i] - exp (ln(x[i]*x[i]*x[i]) + abs(x[i]*x[i]*x[i]*x[i] - 2*p[i])));
        if b[i] <> 0              
        then begin    
            c[i] := (a[i])/(b[i]);  
           end                                      
        else writeln ('Ошибка.Знаменатель равен нулю.') end 
       else writeln ('Ошибка.Значение степени меньше нуля.') end 
      else writeln ('Ошибка.Числитель меньше нуля.') end 
    else writeln ('Ошибка.Под корнем стоит число меньше нуля.'); 
  end;
 
  begin
    writeln('X | P | C | Примечания');
    for i := 1 to n do 
    if (pr[i] = '') then 
      writeln(x[i], ' | ', p[i], ' | ', c[i], ' | ')
       else 
      writeln(x[i], ' | ', p[i], ' | ', ' | ', pr[i])   
  end
  
end.

[min@y™]

Как звучит оригинал задания?

[newerow1989]

Меня убивает фраза

if (sqrt(p[i]*p[i]*p[i]) + (x[i]*x[i]) + 4.5) >= 0 then
...
else writeln ('Ошибка.Под корнем стоит число меньше нуля.');

sqrt тут причем?

А что если так:

if p[i]*p[i]*p[i] >= 0 then

- так правдивее будет!!!

3-е условие

if (ln(x[i]*x[i]*x[i]) + abs(x[i]*x[i]*x[i]*x[i] - 2*p[i])) >= 0

заменить на

if x[i]*x[i]*x[i] >= 0 then

- логарифм убрать...

[weh]

Модифицируйте Вашу программу таким образом, чтобы она вводила указанное количество пар значений X и Р, и лишь после этого выполняла расчеты и печатала результаты.

Ваша программа должна при выводе результатов упорядочить их: В порядке увеличения значений С(х,р). Те X и Р, для которых нельзя рассчитать значение С(х,р), располагаются в верхней части таблицы.

Сама программа

program Lab;       
      
var
  p, x: real;                
  a, b, c: real;             
  
begin                                             
    writeln('Введите значение P');                                          
    Readln(p); 
    
    writeln('Введите значение X');                                          
    Readln(x);                                            
  
  if (sqrt(p*p*p) + (x*x) + 4.5) >= 0 then                                                  
   begin                                                                                                  
    if (sin (sqrt(p*p*p) + (x*x) + 4.5)) >= 0                            
    then begin                                                                                        
      a := (sin (sqrt(p*p*p) + (x*x) + 4.5));  
      if (ln(x*x*x) + abs(x*x*x*x - 2*p)) >= 0                                                            
      then begin 
        b := (x*x - exp (ln(x*x*x) + abs(x*x*x*x - 2*p)));
        if b <> 0              
        then begin    
            c := a/b;                                                                       
            writeln(c); 
           end                                      
        else writeln( 'Ошибка. Знаменатель равен нулю.') end                                    
      else writeln( 'Ошибка. Значение степени меньше нуля.') end                                     
    else writeln('Ошибка. Числитель меньше нуля.') end                                      
  else writeln('Ошибка. Под корнем стоит число меньше нуля.'); 
end.

[newerow1989]

Аналогично:

if (sqrt(p*p*p) + (x*x) + 4.5) >= 0 then

на

if p*p*p >= 0 then

_______________________________

if (ln(x*x*x) + abs(x*x*x*x - 2*p)) >= 0 then

на

if x*x*x >= 0 then

[weh]

Зачем? В задании даны примеры и их нельзя изменять.