Кому не сложно, помогите с написанием программ.
1. Напишите программу вычисления функции S. Значения величин a, b, x задаются.
2. Даны действительные числа а, b. Удвоить эти числа, если а<b, и возвести их в квадрат в противном случае. 3. Даны целое n>0 и последователь¬ность из n вещественных чисел, среди ко-торых есть хотя бы одно отрицательное число. Найти величину наибольшего среди положительных чисел этой последовательности. |
Цитата:
Цитата:
a,b:REAL; BEGIN Write('a= '); ReadLn(a); Write('b= '); ReadLn(b); IF a<b THEN BEGIN a:=a*2; b:=b*2; END ELSE BEGIN a:=SQR(a); b:=SQR(b); END; WriteLn('a= ',a); WriteLn('b= ',b); ReadLn; END. |
Цитата:
n= ; {Здесь нужно указать значение n} VAR i:INTEGER; A:ARRAY[1..n] of REAL; Max:REAL; BEGIN Write('A[1]= '); ReadLn(A[1]); MAX:=A[1]; FOR i:=2 TO n DO BEGIN Write('A[',i,']= '); ReadLn(A[i]); IF A[i]>MAX THEN MAX:=A[i]; END; WriteLn('MAX= ',MAX); ReadLn; END. |
вот
Цитата:
вот http://www.tehnari.ru/imagehosting/2...664993578d.jpg |
ку
Меня тоже интересует первая задача с функцией.очень бы помогла мне.
|
Кто нибудь может помочь с зазачей по функции? очень надо.
Напишите программу вычисления функции S. Значения величин a, b, x задаются |
Цитата:
Цитата:
P.S. Черт вас побери, молодежь, ну когда вы, наконец, поймете, что учиться нужно в первую очередь для себя, а не для папы-мамы? Ведь вам жить! И что, думаете так чужим умом и чужими знаниями и просуществовать всю жизнь? Извините, если что не так. Накипело! |
Да я понимаю как это должно быть написано.у меня и затруднение с тем что стпень отрицательная.и может ее дополнительно как то прописывать тогда надо.
|
Саму функцию вы так и не написали, а без этого что-либо говорить о решении попросту бесполезно.
От отрицательной степени можно избавиться путем преобразования в частное :) |
в предыдущих сообщениях ссылка. я незнаю как это сделать иначе не писала бы.
|
В данной теме в ваших сообщениях никаких ссылок не наблюдается, а по форуму их искать, сами понимаете, особого желания нет. Или вы имеете в виду ссылку в сообщении от Максимуса?
|
да.его ссылка..у меня такая же контрольная
|
определяете константу е
запрашиваете значения a, b, x инициализируете переменную s присваиваете переменной s значение функции выводите вычисленное значение s пояснение 1: от отрицательного коэффициента можно избавиться, переместив е^ax в знаменатель дроби, в числителе этой дроби будет корень 3 степени (подкоренное выражение в степени 1/3). пояснение 2: X^Y = exp(ln(X) * Y) c некоторыми условиями (например, X не может быть нулем). |
я незнаю я составила что т о типа
S:=(exp(ln(1/e)*(a*e)))*(exp(1/3*Ln(a*x*b*sin(2*x)))); Но я во всем этом так неуверена. и вылетает еще обишка при всем этом.или я составила неправильно. |
Цитата:
Цитата:
Exp(-a*x) вполне корректно. На всякий случай - если возникнут сложности с программированием извлечения корня третьей степени, то это делается так: ³√A = (A)⅓ = Exp(Ln(A)/3) |
Цитата:
Второй сомножитель написан почти правильно, только один из знаков умножения нужно заменить плюсом, как в формуле. А вот с первым Вы и впрямь что-то накрутили непотребное. А всего-то и надо, что: S:=(exp(-a*x))*(exp(1/3*Ln(a*x+b*sin(2*x)))); Удачи! |
да такая же.и так и сяк писала.что то не выходит у меня. как корень из трех сделать я вроде поняла.написала, но стал выдавать ошибку 207.это вроде из за отрицательного значения.
|
ой точно там же + стоит..вот я))
но там ведь переменная Е в степени -а*х |
S:=(exp((-a*x)*ln(e)))*(exp(1/3*Ln(a*x+b*sin(2*x))));
вроде все работает)) а значение Е взяла математическую константу 2,71 |
Цитата:
|
ладно пофиг. просто я пытаюсь не только тупо переписать но и понять почему так.если там стоит Е в степени (-а*х) то записываться это будет как
exp(ln(e) *(-a*x)) зачем убрать то?она равна 2,71 это ведь влияет на результат |
Цитата:
P.S. Кстати, уж если Вы берете число е с точностью до второго знака после запятой, то тогда нужно брать 2.72, потому что оно на самом деле 2.718281828459045... Но в данном случае оно вовсе не нужно. |
А, кажется дошло, в чем недоумение. Вы пытаетесь воспользоваться общей формулой
α в степени β есть exp(ln(α)*β) Всё правильно. Но только если α=e, то логарифм становится тождественной единицей и его можно (и даже нужно) опустить. |
Да..ей я и пыталась воспользоваться.
|
Цитата:
|
а если а не будет равно е то что?
попробую и так и так написатьи проверить результат. |
Цитата:
|
больше крика. спасибо за помощ.
|
Цитата:
|
Часовой пояс GMT +4, время: 14:00. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.