Составьте программу:
5-9 класс
|
1. вычисляющую значения функции у=0,3х^3 -4,125х^2-0,01х+2,25 для х от-5 до 5
3. вычисляющую значения функции у=1÷n^2 для х=(1;2;3;4;...;10)
4. удваивающую наименьшее из двух чисел.
1)
var y:real;x:integer;
begin
write('Введи х');
read(x);
if (x>=5) and (x<=5) then y:= 0.3*exp(3*ln(x)) - 4,125*exp(2*ln(x)) - 0,01*х+2,25;
writeln('Значение функции ', y);
end.
2)
var x:integer;y:real;
begin;
if (x>=1) and (x<=10) then y:= 1/exp(2*ln(x));
writeln('Значение функции ',y);
end.
3)
var x,y:integer;
begin
writeln('Введи 2 числа');
read(x,y);
if x>y then writeln ('Получено число ', x*2);
if x<y then writeln ('Получено число ', y*2);
if x=y then writeln('Эти числа равны');
end.
qbasic/pascal/qt/c++? Псевдокод?
PascalABC.Net по этой программе,не то отправила
какие 2 числа имеются в виду в конце?
Другие вопросы из категории
перестановкой цифр исходного числа.
такое откладка программы? Что называется тестом?
Читайте также
Или
составьте программу, которая определяет на сколько в строке S слов, начинающихся на главную букву больше, чем в строке T
надо решить одну из них
2)Составьте программу,которая заполняет массив e[1..8] случайными целыми числами в диапазоне от 1 до 20 и находит сумму элементов с нечётными значениями и количество элементов кратных 3.
3)Составьте программу,которая заполняет массив e[1..14] случайными целыми числами в диапазоне от -10 до 10,затем изменяет знак положительных элементов на противоположный,а отрицательные элементы заменяет на 0.Спасибо.
2. Составить программу, которая позволяет заменить все гласные символом "*"
равносторонний,равнобедренный или какой либо другой.
Вот ещё одна
Составить программу:Даны а,b,c-целые числа.Если они большн 0-вычислите сумму их квадратов;а если хотя бы одно из них четно-вычислите их сумму и произведение.
Пожалуйста ребят.
Составить программу,которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.