АН
Анна Никитина
Помогите составить программу на языке Паскаль
Составить программу на языке Паскаль для расчета значений функций при заданном значении аргументов:
вот код, вдруг кому приголится) )
const
eps = 1E-7;
a = 1.65;
var
x, q: real;
begin
write('Введите x: '); readln(x);
if (abs(x) > 1.4 - eps) and (abs(x) < 1.4 + eps) then
q := pi * sqr(x) - 7 / sqr(x)
else if x < 1.4 then
q := a * sqr(x) * x + 7 * sqrt(x)
else
q := ln(x + 7 * sqrt(abs(x + a))) / ln(10);
writeln('Q = ', q);
readln;
end.