На языке паскаль написать программу вычисления по формуле: G=(2sin(x-2pi/3))/(1/2+cos^2y); H=1+(z^5/3+(z^5/5)), при исходных данных: x=2
10-11 класс
|
,367, y=-1,057, z=3,025
Program pr;
Var G,H,x,y,z:real;
Begin
x:=2.367;
y:=-1.057;
z:=3.025;
G:=(2*sin(x-2*3.14/3))/(1/2+(cos(y)*cos(y)));
H:=1+(exp(5*ln(z))/3+(exp(5*ln(z))/5));
Writeln('G=',G);
Writeln('H=',H);
end.
Другие вопросы из категории
Пример
4 5 7
4+5+7=16
4*5*=140
var slovo :string;
i :integer;
function ups(var s :string; ch :char):integer;
var i,n :integer;
begin
for i:=1 to length(s) do
if s[i]=ch then n:=i
else n:=0;
ups:=n;
end;
begin
writeln('vvedite slovo');
readln(slovo); writeln('N = ',ups(slovo,a));
end.
Дана целочисленная матрица (m*n). Найти среднее арифметическое в
каждой строке. Значения средних арифметических упорядочить по возрастанию снизу вверх.
десятичной системе счисления следующие числа:
А2 =11110,
А8 = 372, А16 = 32А
Читайте также
y=( 3+x )/( 3-x );
б)y=x^15
Постараться использовать минимальное количество дополнительных переменных.
4. Запишите на языке Паскаль программу циклического обмена значениями трёх переменных a,b,c. Схема циклического обмена: a ← b ← c. Например, если до обмена было: a=1, b=2, c=3, то после обмена должно стать: a=2, b=3, c=1.
2)Найти количество всех нечетных чисел на интервале от 11 до 20
3)Найти сумму целых положительных четных чисел на интервале от 1 до 100
4)Найти сумму ряда,общий член которого равен А(х)=1/(3*N-2)*(3*N+1)
5)Дано произвольное число n≤100.Определить количество цифр в числе
ОЧЕНЬ НУЖНО!!НА ЯЗЫКЕ ПАСКАЛЬ!ВЫРУЧАЙТЕ!
Ниже приведен рекомендуемый вид экрана во время выполнения программы (данные,
введенные пользователем, выделены полужирным шрифтом).
Вычисление стоимости покупки.
Введите исходные данные:
Цена
одного килограмма яблок (руб.) -> 8.5
Вес яблок (кг) ->
2.3
Стоимость покупки: 19.55 руб.