Произвести расчеты и вывести результат в виде таблицы - PascalABC.NET - Ответ 9128304

@YuliaWWW · Регистрация: 03.04.2016

Студворк — интернет-сервис помощи студентам

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

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

Pascal

program Lab_1;       
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)));            
         c := a/b;                                                                       
            writeln(c); 
           end                                      
        else writeln( 'Знаменатель равен нулю.') end                                    
      else writeln( 'Значение степени меньше нуля.') end                                     
    else writeln('Числитель равен нулю.') end                                      
  else writeln('Под корнем стоит число меньше нуля.'); 
end.

Вернуться к обсуждению:
Произвести расчеты и вывести результат в виде таблицы PascalABC.NET

Следующий ответ

Другие темы раздела
PascalABC.NET Определить, буквы, входящие в текст по 3 и более раз проблема в следующем - русские буквы не замечены. есть идеи в чем причина и как исправить? спасибо:) const //Множество букв. D = ; var S : String; Ch : Char; i, Len : Integer; https://www.cyberforum.ru/ pascalabc-net/ thread1732550.html	Высчитать произведение матриц A и B PascalABC.NET Помогите пожалуйста с лабораторной работой
PascalABC.NET Что-то не так с процедурами https://www.cyberforum.ru/ pascalabc-net/ thread1732407.html Код: program strelok; uses graphabc; var ww,wh:integer; x1,x2,y1,y2,c1,c2,c3,c4,c5,c6:integer; f:text; figura:char;	PascalABC.NET Не отображается анимация https://www.cyberforum.ru/ pascalabc-net/ thread1732327.html В игре не отображается анимация езды, при этом отдельно кусок кода, отвечающий за это, кажется, работает. Прошу помочь понять, почему в игре он работает с перебоем. Игровую музыку загрузить не могу, т.к. слишком велика по объему, поэтому перед запуском надо будет либо добавить свою музыку под именами "menu" и "game" формата wav в папке "sound", либо удалить/закомментировать строчки вызова музыки
PascalABC.NET Реализовать функции умножения скаляра на вектор, суммы векторов Даны три трехмерных вектора a, b и c, заданные своими координатами , вещественное число k. Найти вектор, равный ka + (1-k)b + (k^2)c. Указание: реализовать функции умножения скаляра на вектор , суммы векторов.	PascalABC.NET Вычислить значение выражения https://www.cyberforum.ru/ pascalabc-net/ thread1732269.html Помогите пожалуйста, нужен код на паскале) x+\frac{x^3}{3!}+\frac{x^5}{5!}+...+\frac{x^{2n-1}}{\left(2n-1 \right)!}+...
PascalABC.NET Нарисуйте куб Нарисуйте пожалуйста куб как на картинке. https://www.cyberforum.ru/ pascalabc-net/ thread1732190.html	Изобразить солнечную систему PascalABC.NET Написать программу в соответствии с которой на экране компьютера,будет изображена солнечная система,солнце в центре не подвижно двигаются только протубиранции.
PascalABC.NET В каждой строке матрицы заменить элементы суммой элементов, расположенных справа от него В матрице Z(6,6) элемент главной диагонали (если он не равен 0) в каждой строке заменить суммой элементов, расположенных справа от него. Все заменяемые элементы главной диагонали вывести в массив B. Пробовал решить сам, но то он считает и слева, и справа и с самой диагонали, то все остальные заменяет нулями Первый случай var a:array of integer; i,j,max:integer; https://www.cyberforum.ru/ pascalabc-net/ thread1732038.html	PascalABC.NET Нарисовать вагон с колесами, который двигается по горизонтали вправо-влево https://www.cyberforum.ru/ pascalabc-net/ thread1731771.html Как нарисовать вагон с колесами, который двигается по горизонтали вправо-влево? Рисунок должен быть не черным.
Нарисовать флаги Бельгии, Гамбии и Гайаны PascalABC.NET Вот никак не могу нарисовать в Паскале. В задании сказано, что нужно нарисовать флаг Бельгии в секции 2, флаг Гамбии в секции 4 и флаг Гайаны в 3й секции. Бельгия - https://upload.wikimedia.org/wikipedia/commons/thumb/6/65/Flag_of_Belgium.svg/250px-Flag_of_Belgium.svg.png Гамбия -...	PascalABC.NET Нарисовать прямоугольный треугольник по заданным координатам вершин острых углов и величине угла https://www.cyberforum.ru/ pascalabc-net/ thread1731763.html Помогите! Нужно нарисовать любой прямоугольный треугольник за заданными координатами вершин острых углов и градусной мерой одного из углов.