Турбо паскаль y=x tgx-sinx,если x>1.5 x3+sinx,если 1.5<=x<=2.5 x3 +5,если 1.5=2.5
10-11 класс
|
program n1;
var DertyMonk,x:integer;
Begin
Writeln (‘Введи Х’);
ReadLn (x);
if x>1.5 then
DertyMonk:=x*tg(x)
ReadLn (x,'*tg(x)',DertyMonk);
else if 1.5 <= x || x <= 2.5 then
DertyMonk:=x*3+sin(x)
ReadLn (x,'*3+sin(x)',DertyMonk);
else
DertyMonk:=x*3+5
ReadLn (x,'*3+5=',DertyMonk);
end.
end;
Не пробовал, наверн много ошибок будет тк давно не програмировал на нём
Другие вопросы из категории
найти среднее арифметическое значений функции y=2(x+1) на интервале x1<=x<=x2, где x1=-20, x2=10 при шаге x3=5
1) a=0;
for i:=1 to 4 do
a:=a*i;
write (a)
2)a:=1;
for i:=2 to 5do
a:=a+i;
write (a)
сомаолов.сравните обьемы информации содержащейся в этих сообщениях
Читайте также
Если z<y<x, то максимальное число возвести в квадрат. Если числа не
удовлетворяют ни одному из условий – обнулить их.
Даны действительные числа a, b, c, d. Если a<b<c<d, то каждое число заменить наибольшим из них. Если a>b>c>d, то каждое число заменить средним арифметическим всех значений. В противном случае все числа заменяются своими квадратами
Эта программа определяет,возрастающая или убывающая последовательность чисел.
если возрастает,например 1234(1 < 2 < 3 <4 )-то пишет 1
если убывает 321 или 231(3 < 2 < 1)-ложь,пишет ноль
если 111(1 < 1 < 1)ложь,тк строгая возрастающая последовательность,пишет ноль
#include <iostream>
int main()
{
int n;
bool flag = true;
std::cin >> n;
while(n != 0)
{
while (n >= 10)
{
if(n / 10 % 10 >= n % 10)
flag = false;
n = n / 10;
}
std::cout << flag << std::endl;
flag = true;
std::cin >> n;
}
}
Составить программу на языке Турбо-Паскаль, печатающую значение true, если указанное высказывание является истинным, и false в противном случае: Данные числа x, y являются координатами точки, лежащей в первой координатной четверти
формы со сторонами a, b, и сколько удобрений (d) надо купить, если на 1 м2 требуется с кг? (р = 2(а+b), d = abc)