Помогите составить на языке Pascal программу вычисления заданной функции.
10-11 класс
|
var
a, x, y, b: real;
begin
Write('Введите через пробел значения x,a ->');
Readln(x, a);
b := abs(x - 2.7);
if b = 0 then Writeln('Ноль в качестве аргумента логарифма недопустим')
else begin
b := sqrt(ln(b));
if b = 0 then Writeln('Деление на ноль при попытке вычислить выражение')
else begin
b := (x - sqr(a)) / b;
if b > 0 then b := exp(1 / 5 * ln(b))
else if b = 0 then b := 0
else b := -exp(1 / 5 * ln(-b));
Writeln('Значение функции ', b)
end
end
end.
Тестовое решение:
Введите через пробел значения x,a ->5.1 1.3
Значение функции 1.29517010518691
Другие вопросы из категории
если передача длится 5 мин. 57 сек.?
4х4. Поменять местами первый и последний элемент массива х.
Листингпрограммы:
Читайте также
частное. Напишите на языках Pascal и C++ программу, моделирующую выбор одной из костей домино ( в наборе 28 костей домино, каждая состоит из двух половин, на каждой половине – от 0 до 6 очков). С помощью этой программы ответьте на вопрос: какова вероятность того, что выпадет кость с числом очков, кратным 3
клавиатуры. На экран вывести результат вычислений в виде таблицы. 1 Блок-схема алгоритма программы, выполненная с использованием графических средств редактора WORD; 2 Текст программы; 3 Результаты выполнения (копия экрана). (3x+2)^2- sqrt3x/(3x)^2 a 5;b 7; h 0,1
на языке Pascal для вычисления длин высот треугольника, у которого длины
сторон a, b, c (a, b,
б)y=x^15
Постараться использовать минимальное количество дополнительных переменных.
4. Запишите на языке Паскаль программу циклического обмена значениями трёх переменных a,b,c. Схема циклического обмена: a ← b ← c. Например, если до обмена было: a=1, b=2, c=3, то после обмена должно стать: a=2, b=3, c=1.
Сопротивлением воздуха и высотой орудия пренебречь.