Помогите пожалуйста написать код программы ** языке паскаль, учитывая методические...

Question

Помогите пожалуйста написать код программы на языке паскаль, учитывая методические требования.

---

Comments

Методические указания:

---

- Предусмотреть в программе объявление типов всех используемыхпеременных: переменные с именамиi, j, k, L, m, nобъявить данными целоготипа, остальные переменные – вещественного типа с одинарной точностью;- Предусмотреть ввод значений исходных данных с клавиатуры по запросу,обеспечив при этом вывод подсказки;- Предусмотреть в программе вывод исходных данных и результаты внутрирамки из произвольных символов в центре экрана;

---

- Для округления числа (эта операция в заданиях обозначается символами“ ()”использовать встроенную функцию ROUND);- Для выделения целой части числа ( отсекания дробной части числа)использовать встроенную функцию TRUNC ( эта операция в заданияхобозначается символами“ [ ] “).

Answer 1

Var
    x, y, f: real;

begin
    writeln('Введите х и у');
    readln(x, y);
    //    x:=12.675;
    //    y:=6.9;
    
    f := 120 * ln(x + y) / ln(10);
    f := f / (x - 1 / 0.45 / sin(x - 8 * y));
    
    writeln('~~~~~~~~~~~~~~~~~~~');
    writeln('~ ', 'x =':5, x:10, ' ~');
    writeln('~ ', 'y =':5, y:10, ' ~');
    writeln('~ ', 'f =':5, f:10:6, ' ~');
    writeln('~ ', '(f) =':5, round(f):10, ' ~');
    writeln('~ ', '[f] =':5, trunc(f):10, ' ~');
    writeln('~~~~~~~~~~~~~~~~~~~');
    
end.

Comments

проверялось на pascalABC.Net, шрифты могут не сойтись