Все категории

4 года назад

Напишите программу на Qbasic для вычисления выражения: cos^2x+ctg4x при x=2.

Знания

Информатика

1 ответ:

Nerii4 года назад

0 0

10 LET X=2

20 Y=(COS(X))^2+1/(TAN(4*X))

30 PRINT Y

40 END

В Qbasic x в тригонометрических функциях должен быть в радианах если х=2 это градусы тогда надо дописать еще одну строку перевести градусы в радианы

15 Х=3.14*Х/180

Читайте также

Программирование, создать графический алгоритм программы (начало - ввести x...) Составьте программу, проверяющую, верно ли утвер

Мила1

Ответ:

int main()

{

int n = 0;

int temp;

for (int i =0; i < n; i++, n += temp)

{

std::cin >> temp;

}

if (n % 2 == 0) {std::cout << "четное";}

else {std::cout << "нечетное";}

}

Объяснение:

0 0

3 года назад

Переведите двоичное число 1100110 в десятичную систему счисления

Су-су [27]

1*2^6+1*2^5+0*2^4+0*2^3+1*2^2+1*2^1+0*2^0=64+32+0+0+4+2+0=102

0 0

4 года назад

Написать програму для решения задачи: дано натуральное число n посчитать сумму цифр числа

александр993

S - сумма цифр
цифра - последняя цифра в числе

0 0

4 года назад

Помогите решить блок схему в algo

Оксана313

если переменная A больше B то переменнвя Y равно переменной A, после идет вывод переменной Y, но если A меньше B то переменная Y равно B, послп вывод содержимого переменной Y

0 0

3 года назад

Решите пожалуйста первую задачу, очень срочно

yudialeks [13]

Uses crt;var s,i,n:integer; a:array[1..100] of real;begin clrscr; randomize; readln(n); s:=0; for i :=1 to n do begin a[i]:=(random(2000)-1000)/10; write('a[',i,']=',a[i],'; '); end; for i :=1 to n-1 do begin if a[i]>a[i+1] then s:=s+1; end; if s=n-1 then Writeln('Последовательность убывающая') else Writeln('Последовательность неубывающая')end.

0 0

4 года назад

Напишите программу на Qbasic для вычисления выражения: cos^2x+ctg4x при x=2. ​

Напишите программу на Qbasic для вычисления выражения: cos^2x+ctg4x при x=2.