Question

ПОМОГИТЕ ПОЖАЛУЙСТА!! ОЧЕНЬ СРОЧНО!!! ОТДАЮ ВСЕ СВОИ БАЛЛЫ.. УМОЛЯЮ ПОМОГИТЕ!!!! Составить программы на Паскале для решения задач:1.Напишите на АЯ алгоритм сложения двух простых дробей ( без сокращения дроби)2. Напишите на АЯ алгоритм вычисления y по формуле y=(1-x^2+5x^4)^2 , где x- заданное целое число3. напишите наиболее короткие алгоритмы вычисления выражения y=x^10​

Answer 1

Ответ:

Задание 1)

Program Task_1;

 

var

a, b, c, d: integer;

 

begin

 

writeln('Напишите значение числителя первой дроби:');

readln(a);

 writeln('Напишите значение знаменателя первой дроби:');

 readln(b);

  

 writeln('Напишите значение числителя второй дроби:');

 readln(c);

  writeln('Напишите значение знаменателя второй дроби:');

  readln(d);

  

   writeln('Сложение двух данных дробей равно: ', (a/b)+(c/d));

    

end.

Задание 2)

Program Task_2;

 

var

x,y: integer;

 

begin

 

writeln('Введите значение переменной x:');

readln(x);

 

 writeln('y=(1-x^2+5x^4)^2, y = ', sqr(1-x*x+5*sqr(x*x)));

 

 

end.

Задание 3)

Program Task_3;

 

var

x,y: real;

 

begin

 

writeln('Введите значение переменной x:');

readln(x);

 y:= x*x*x*x*x*x*x*x*x*x;

 writeln('1 способ: y = ', y);

  

  y:= exp(ln(x)*10);

   writeln('2 способ: y = ', y);

    

    

   end.

Answer 2

Для написания программ на языке Pascal для решения данных задач, давайте начнем с каждой задачи по отдельности.

1. Сложение двух простых дробей без их сокращения:

program AddFractions;
var
  num1, den1, num2, den2, resultNum, resultDen: integer;
begin
  writeln('Введите числитель и знаменатель первой дроби:');
  readln(num1, den1);
  writeln('Введите числитель и знаменатель второй дроби:');
  readln(num2, den2);
  
  // Вычисляем сумму
  resultNum := num1 * den2 + num2 * den1;
  resultDen := den1 * den2;
  
  writeln('Сумма дробей: ', resultNum, '/', resultDen);
end.

2. Вычисление значения y по формуле y=(1-x^2+5x^4)^2, где x - заданное целое число:

program CalculateExpression;
var
  x: integer;
  y: real;
begin
  writeln('Введите значение x:');
  readln(x);
  
  // Вычисляем значение y
  y := sqr(1 - sqr(x) + 5 * power(x, 4));
  
  writeln('Значение y: ', y:0:2);
end.

3. Вычисление значения y=x^10:

program CalculatePower;
var
  x: integer;
  y: integer;
begin
  writeln('Введите значение x:');
  readln(x);
  
  // Вычисляем x в 10-й степени
  y := round(power(x, 10));
  
  writeln('Значение y: ', y);
end.

Скопируйте каждую из этих программ в среду разработки Pascal (например, Free Pascal или Turbo Pascal), чтобы выполнить их. Убедитесь, что у вас установлена и настроена среда разработки Pascal, и вы можете выполнить программы.