дам 30 баллов помогите пожалуйста написать программу в паскале вычислить функцию ln(a/b) если a =0
10-11 класс
|
program Z1;
var a,b,x,rez:real;
begin
writeln('Введите a и b');
readln(a,b);
x:=a/b;
rez:=Ln(x);
writeln(rez:5:2);
end.
program Z1
var a,b,x,rez:real;
begin
writeln('Введите a и b');
readln(a,b);
x:=a/b;
rez:=Ln(x);
writeln(rez); согласен)
только вопрос - нафига. натуральный логарифм от 0 равен 1 всегда?
я не знаю,просто можешь написать задачу пожалуйста
program Z1;
var a,b,x,rez:real;
begin
writeln('Введите a и b');
readln(a,b);
x:=a/b;
rez:=Ln(x);
writeln(rez);
end.
Другие вопросы из категории
студент садился в поезд телефон был полностью заряжен а когда он выходил телефон разрядился. известно что студент говорил по телефону и слушал музыку ровно половину времени поездки а остальное время телефон ноходился в режиме ожидания. продолжительность поездки состовляла сколько минут?
Читайте также
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
Составить программу перевода натурального числа из десятичной системы счисления в двоичную
2.написать программу в паскале
f(x)=2(sin*sin)x+1
минимальным элементами массива (включая их)