@geiwoooj

Как перевести математические формулы в паскаль?

61b9a63c3d9c2497150896.png

Нужно либо в питон либо в паскаль перевести. Спасибо заранее
  • Вопрос задан
  • 201 просмотр
Решения вопроса 1
import math

a = int(input("Введите A: "))
b = int(input("Введите B: "))
c = int(input("Введите C: "))
x = int(input("Введите X: "))


if x < b:
    y = math.log10(abs(a + x)) * math.cos(abs(x ** 3))
elif b <= x and x <= c:
    y = math.e ** 1.2 - math.sqrt(abs(a + x))
elif x > c:
    y = (math.sqrt(abs(a + x)) ** 1 / 3) / (a - x)
print(y)
Ответ написан
Пригласить эксперта
Ответы на вопрос 1
HemulGM
@HemulGM
Delphi Developer, сис. админ
uses Math;

begin
  var a, b, c, x: integer;
  write('Введите A: '); readln(a);
  write('Введите B: '); readln(b);
  write('Введите C: '); readln(c);
  write('Введите X: '); readln(x);

  var y: Extended;
  if x < b then
    y := log10(abs(a + x)) * cos(abs(Power(x, 3)))
  else if (b <= x) and (x <= c) then
    y := Exp(1.2) - sqrt(abs(a + x))
  else if x > c then
    y := (Power(sqrt(abs(a + x)), 1 / 3)) / (a - x);
  writeln(y);
end.
Ответ написан
Комментировать
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы