Question

Задача_1: Составить программу на языке Паскаль для вычисления выражения y:=sqr(x)+x/3+sqr(sin(x)) Задача_2: Составить программу на языке Паскаль для вычисления площади треугольника по трем сторонам (подсказка: это формула Герона) Задача_3: Составить программу на языке Паскаль, которая переставляет местами цифры в двухзначном числе (например 75 заменит на 57)

Answer 1

1)
var
x:real;
begin
Readln(x);
Writeln('y = ', sqr(x)+x/3+sqr(sin(x)));
end.
2)
var
p,a,b,c:real;
begin
Readln(a,b,c);
p:= (a+b+c)/2;
Writeln('S = ', sqrt(p*(p-c)*(p-b)*(p-a)));
end.
3)
var
a:integer;
begin
Readln(a);
a:= a div 10 + (a mod 10)*10;
Writeln(a);
end.

Answer 2

Задача 1: Вычисление выражения

Для вычисления выражения y := sqr(x) + x/3 + sqr(sin(x)) на языке Паскаль можно использовать следующую программу:

program CalculateExpression;
var
  x, y: real;
begin
  writeln('Введите значение x:');
  readln(x);
  
  y := sqr(x) + x/3 + sqr(sin(x));
  
  writeln('Значение выражения y = ', y);
end.

В этой программе мы сначала запрашиваем значение переменной x у пользователя. Затем мы вычисляем значение выражения y, используя функции sqr(x) для возведения в квадрат, sin(x) для вычисления синуса и деление на 3. Наконец, мы выводим значение выражения y на экран.

Задача 2: Вычисление площади треугольника

Для вычисления площади треугольника по трем сторонам можно использовать формулу Герона. Для этого можно составить следующую программу на языке Паскаль:

program CalculateTriangleArea;
var
  a, b, c, p, s: real;
begin
  writeln('Введите длины сторон треугольника:');
  readln(a, b, c);
  
  p := (a + b + c) / 2; // полупериметр
  s := sqrt(p * (p - a) * (p - b) * (p - c)); // формула Герона для вычисления площади
  
  writeln('Площадь треугольника = ', s);
end.

В этой программе мы сначала запрашиваем длины сторон треугольника у пользователя. Затем мы вычисляем полупериметр треугольника (переменная p) и используем формулу Герона для вычисления площади треугольника (переменная s). Наконец, мы выводим значение площади на экран.

Задача 3: Перестановка цифр в двузначном числе

Для перестановки цифр в двузначном числе, например, замены числа 75 на 57, можно использовать следующую программу на языке Паскаль:

program SwapDigits;
var
  num, tens, ones, swappedNum: integer;
begin
  writeln('Введите двузначное число:');
  readln(num);
  
  tens := num div 10; // получаем десятки
  ones := num mod 10; // получаем единицы
  
  swappedNum := ones * 10 + tens; // переставляем цифры
  
  writeln('Число после перестановки цифр: ', swappedNum);
end.

В этой программе мы сначала