Здравствуйте, помогите пожалуйста, очень срочно, нужно в паскале составить программу вычисления функции y=(ax+ln(a+x))/((a+x)*sqr(x)) с использованием оператора while( или repeat), параметры - a, x, и шаг - должны задаваться пользователем. Заранее благодарен) И треснул мир на пополам, дымит разлом.
program p1; uses crt; {dx-shag, xk- x konechnoe} var a,x,y,dx,xk:real; begin clrscr; writeln('vvedite a,x,dx, xk'); readln( a,x,dx,xk); while x<=xk do begin y:=(a*x+ln(a+x))/((a+x)*sqr(x)); writeln('x=', x:5:2, 'y=', y:7:2); x:=x+dx; end; readln end.
примерно так... может не совсем правильно, но по-моему работает
Добавлено (30.03.2010, 21:35) --------------------------------------------- Помогите пожалуйста, задача - используя множество, вывести на экран все буквы повторяющиеся в строке не менее двух раз. Заранее спасибо.
