Если зайдешь сюда, обязан что-нибудь написать

[Shkipper]

Рей чилавека зильоноя =)

[P1RoG]

а гугл зачем?)))))

ну ты и нуп =)

Гугл фигня по сравнению с Бандитами, так что давайте считайте, число пи записать как 3.14 )

[GreyBox]

КаробкО свихнулся на почве почимке примуса )

Фиг там! Это Шкип пост свой удалил и подставил меня :/

 

Перог:

program PerogNup;

var
 x, y: Real;

function f(const x, y: Real): Real;
begin
 Result := Sqrt(Exp((x-1)/Sin(x))*Sqrt(Abs(y)));
end;

function zakoruchka(const x, y: Real): Real; // Я хз как это буква в латинском, пси? psi?
begin
 Result := 2*Sin(Pi*x+y);
end;

begin
 Write('Укажите x: ');
 ReadLn(x);
 Write('Укажите y: ');
 ReadLn(y);

 WriteLn;
 WriteLn('Значение f(x, y): ', f(x, y));
 WriteLn('Значение пси(?)(x, y): ', zakoruchka(x, y));
 ReadLn;
end.

 

Ммм, глянул еще раз, там в f(x, y) под корнем в экспоненте выражение x-1/sinx - если это x-1/sinx - соответствующие скобки в функции надо убрать, если все таки (x-1)/sinx то все норм

Изменено 7 сентября, 2009 пользователем GreyBox

[P1RoG]

Коробка спасибо большое , вот я нехрена не понимаю как правильно составлять, но прекрасно понимаю что уже делает составленная )

Я не пойму что значит zakoruchka и почему так много бегинов с ендами))

[Shkipper]

GreyBox неа =))) у тя неД доказательство =))) пиу-пиу =)

[Corvinian]

Код

program PerogNup;

))))))))

[GreyBox]

но прекрасно понимаю что уже делает составленная

Я не пойму что значит...

%)

 

zakoruchka - это функция во втором столбце задания, я не помню как она по гречески звучит и следовательно хз как ее написать в англ транскрипции, поэтому и обозвал zakoruchka.

 

Почему много бегин\эндов одна пара begin ... end. - тело программы, две пары begin ... end; - тела функций %) Иди учи матчасть нупЪ :/

 

*Поковырял в носу Перога пальцами обеих рук и ног*

 

 

Corvinian

 

Шкип цук %)

Изменено 7 сентября, 2009 пользователем GreyBox

[P1RoG]

Как сделать в Паскале оконный режим?

[GreyBox]

Alt+Enter вродь.

[Shkipper]

Alt+Enter вродь.

 

 

эт стандарт в любой программе =))

в линейке должны были все выучить =)

[ReyAnd]

Кошмар. Флуть-флуть.

Ушёл играться.

[P1RoG]

Для примера приведу почти такой же пример тока упрощеный)

Первый столбик: http://s41.radikal.ru/i091/0909/55/d0953b6b0bab.jpg

Второй столбик: x+cos y

x= 3.5

y=-2.7

Решение:

Program GreyBoxOpozorils9;
var x,y,z,b:real;
begin x:=3.5; y:=-2.7;
 z:=x+cos(y);
 b:=sqr(x)+z;
writeln (b)
end.

 

Вот вроде все правельно) На всяк пожарный скину еще и само условие, всмысле задание, а то вдруг там не много по другому надо писать)

http://i048.radikal.ru/0909/27/e6936470d277.jpg

Коробка , прости что я тебя напрягаю, но я же нупЪ )

 

 

Альтр+ентер помог , спс

 

Если что число Пи можно заменить на 3.14, ибо в разных версиях Паскаля считает его по разному почему-то)

Хотя мне беспокоится не о чем, я скинул точь в точь Паскаль как в институте на флэшку xD Но перестраховаться не мешает)

Изменено 7 сентября, 2009 пользователем P1RoG

[P1RoG]

КоробкО ушел *Паника*

[P1RoG]

Ону проверьте, прально я решил с вашей помощью, или ошибок куча )

program lab1;
var x;y;z;b:real;
begin x:=3.91; y:=-0.51;
z:=2*sin(3.14*x+y);
b:=sqrt(exp((x-1/sin(x))*sqrt(abs(y)));
writeln (b)
end.

[GreyBox]

Если что число Пи можно заменить на 3.14, ибо в разных версиях Паскаля считает его по разному почему-то)

Бред... Pi оно и в африке пи...

 

Вот вроде все правельно)

Для меня "обсчитать функцию", это и значит посчитать значение функции в зависимости от переменных (function f(x, y)), а не присвоить одной переменной значения других (f = .... x .... y), как в твоем примере. Так что опозорился все таки ты

 

З.Ы. За такое форматирование кода программы я бы убил :/

З.Ы.Ы. Чотам может быть неправильно, если достаточно из моего примера скопировать строчки Result := .... и заменить "Result" на "f" и "b" соответственно

З.Ы.Ы.Ы. Перог нупЪ, иди учись, а не флуди :/

[Su Suum]

Интеллектуальный флуд? Это что-то новенькое)

[Corvinian]

Мерский коропко выучил скил "Флудить обафсем"

 

*пнул сума*

[Su Suum]

Хвать мну пинать!

[Corvinian]

С тибя пяять пиченек!

[P1RoG]

Кароч из слов Коробке я понял что у меня все прально)

я нах на первом курсе , а не на 5 что бы там расписывать)

[Corvinian]

С тибя 10 пиченек. 5 мне и 5 коропке!

[P1RoG]

Ололо переходите на темную сторону силы, у нас есть пиченьки ^___^

 

Все йа спать :\

[Corvinian]

Бес пиченек нивазвращайся! О_О

[P1RoG]

а с бубликами мона?)

 

Cпит усталая упячка, котэ спят. И Ъеччожа, и пепяка, долгопят. Даже Ъжсло спать ложится, Онотоле им присннится. Щачло закрывай. Бааа-юююю-бай! Спокойной ночи, девочки и мальчики! Прдунь-прдунь, дрррузья!

[Corvinian]

СПАААТЬ! О_О