IPB

Здравствуйте, гость ( Вход | Регистрация )

 
Ответить в данную темуНачать новую тему
> Помогите с паскалем)
InDiGo_7_7_7
сообщение 22.11.2008, 19:27
Сообщение #1


Новичок
Иконка группы

Группа: Games Release Group
Сообщений: 10
Регистрация: 11.11.2008
Из: НиНо
Пользователь №: 3681



Помогите пожалуйста написать программу, буду очень благодарен)





вот что у меня получилось, но почему-то не работает)
Код
program lab2;
var max,u,x,y,A,B,C: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(x*y)));
                C:=cos(x*sqr(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;
end.
Перейти в начало страницы
 
+Цитировать сообщение
Admin
сообщение 26.11.2008, 18:32
Сообщение #2


Administrator
Иконка группы

Группа: Главный администратор
Сообщений: 1608
Регистрация: 10.5.2006
Из: Россия, Нижний Новгород
Пользователь №: 1



Неа, к сожалению я в Паскале не силен.


--------------------
Да прибудет с вами великая сила !
-----------------------------------------
Перейти в начало страницы
 
+Цитировать сообщение
InDiGo_7_7_7
сообщение 27.11.2008, 0:47
Сообщение #3


Новичок
Иконка группы

Группа: Games Release Group
Сообщений: 10
Регистрация: 11.11.2008
Из: НиНо
Пользователь №: 3681



уже помогли)

так что не надо)
Перейти в начало страницы
 
+Цитировать сообщение
Shrek-Ogre
сообщение 4.2.2009, 10:33
Сообщение #4


Программист
Иконка группы

Группа: Помошник Администратора
Сообщений: 812
Регистрация: 11.5.2006
Из: Российская Федерация. город - Санкт-Петербург
Пользователь №: 4



Хы...
Он стукнулся ко мне, скинул работающую программу, я даже и не знаю чем помочь, в глубину не копал, но программа работает и что-то считает - значит работает smile.gif


--------------------
Сказать мне спасибо, за мою информацию, или же написать про меня можно ЗДЕСЬ
PHP_VALUE ERROR_REPORTING 7
Кому помочь обращайтесь. Чем смогу помогу. За мной не заржавеет.
По поводу открытия тем на нашем форуме милости прошу сюда
Правила форума ЗДЕСЬ
Администрация ЗДЕСЬ
Список Тех, Кому Интересен Форум (20-ка Лучших) ЗДЕСЬ
Так же Админ Тут
Перейти в начало страницы
 
+Цитировать сообщение

Ответить в данную темуНачать новую тему
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



RSS Текстовая версия Сейчас: 24.4.2018, 10:29