Вернуться   Нижегородский Форум Друзей > Городская жизнь > Учеба > НГТУ
Забыли пароль? Регистрация



НГТУ Нижегородский государственный технический университет


Ответ
 
Опции темы Опции просмотра
Старый 24.11.2008, 07:05   #1
Модератор
 
Регистрация: 17.08.2007
Адрес: Nizhny Novgorod
Пол: М
Сообщений: 484
Поблагодарил: 139
Поблагодарили 1,067 раз в 239 сообщениях
Открыли хайд :
0 в этом сообщении
47 Всего


По умолчанию

Скобки считать учись. Код работает, но суть я не проверял.

1:

program lab2;
var max,U,x,y,A,B,C,qq,q:real;
begin
x:=1;
while x<=3
do begin
y:=2;
while y<=4
do begin
A:=((exp(1)*sin(sqr(x)))-sqrt(y));
B:=cos((exp((2/3)*ln(y))*exp((1/3)*(x))))/sin((exp((2/3)*ln(y))*exp((1/3)*ln(x))));
C:=cos(x*y*y);
if A<B then max:=B else max:=A;
if (x/sqr(y))<1 then U:=max else U:=C;
writeln(' x=',x:4:2,' y=',y:4:2,' U=',u:4:2);
y:=y+1.5;end;
x:=x+1.3;
end;
readln;
end.
__________________
иЗвиНиТЕ зА НеРоВНый ПочЕРк!

Последний раз редактировалось YuP; 24.11.2008 в 07:07.
YuP вне форума  
Ответить с цитированием
Этот пользователь сказал Спасибо YuP за это полезное сообщение:
Shrek-Ogre (24.11.2008)
Ответ


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Выкл.
Pingbacks are Выкл.
Refbacks are Выкл.


Часовой пояс GMT +3, время: 13:12.