Question

Напишите программу на Pascal для решения системы уравнений 30 БАЛЛОВ

Answer 1

Если используете PascalABC.NET, уберите следующую строку:

1. uses Math;

Задание 1

1. uses Math;
3. var
4.  x, y: real;
6. begin
7.  Write('Введите x: ');
8.  Readln(x);
9.  
10.  if (x < 6) then
11.    y := Power(x, 4.0)
12.  else y := 5 * x;
13.  
14.  Writeln('y = ', y);
15. end.

Задание 2

1. uses Math;
3. var
4.  x, y: real;
6. begin
7.  Write('Введите x: ');
8.  Readln(x);
9.  
10.  if (x < 2) then
11.    y := Sqrt(Sqr(x))
12.  else if (x > 2) and (x < 10) then
13.    y := Abs(10 * x)
14.  else if (x > 10) then
15.    y := Sqr(Sin(2 * x));
16.  
17.  Writeln('y = ', y);
18. end.