|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
27.06.2007, 20:11 | #41 |
Пользователь
Регистрация: 21.06.2007
Сообщений: 55
|
спасибо.
Вы не могли бы найти ошибки в моем коде. www.nnm.ru ۩۞۩___Смысл заключается,_______________۩۞۩ ۩۞۩___Лишь в величине вашего разума____.۩۞۩ ۩۞۩__♣™_Diller_™♣__۩۞۩ |
06.07.2007, 14:52 | #42 |
Пользователь
Регистрация: 21.06.2007
Сообщений: 55
|
кто -нить найдите ошибку.. ну нифига не понимаю..
www.nnm.ru ۩۞۩___Смысл заключается,_______________۩۞۩ ۩۞۩___Лишь в величине вашего разума____.۩۞۩ ۩۞۩__♣™_Diller_™♣__۩۞۩ |
05.09.2007, 22:31 | #43 | |
Старожил
Регистрация: 06.08.2007
Сообщений: 2,183
|
Короче
Цитата:
Так что можно и так: Код:
|
|
08.09.2007, 00:16 | #44 |
Пользователь
Регистрация: 21.06.2007
Сообщений: 55
|
http://www.ugbereg.ru/magic.html как енто работает
www.nnm.ru ۩۞۩___Смысл заключается,_______________۩۞۩ ۩۞۩___Лишь в величине вашего разума____.۩۞۩ ۩۞۩__♣™_Diller_™♣__۩۞۩ |
08.09.2007, 01:26 | #45 |
Телепат с дипломом
Старожил
Регистрация: 10.06.2007
Сообщений: 4,929
|
без математики даже магические квадраты не работают
все получаемые числа кратные девяти P.S. с девушкой познакомился?
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог |
05.10.2007, 17:35 | #46 |
Пользователь
Регистрация: 21.06.2007
Сообщений: 55
|
да. действительно
www.nnm.ru ۩۞۩___Смысл заключается,_______________۩۞۩ ۩۞۩___Лишь в величине вашего разума____.۩۞۩ ۩۞۩__♣™_Diller_™♣__۩۞۩ |
07.10.2007, 16:41 | #47 | |
Пользователь
Регистрация: 21.06.2007
Сообщений: 55
|
вот код исправленный!!!ошибка заключалась в том что во 2-м цикле необходимо поменять условие mindiam>=ogr
Цитата:
www.nnm.ru ۩۞۩___Смысл заключается,_______________۩۞۩ ۩۞۩___Лишь в величине вашего разума____.۩۞۩ ۩۞۩__♣™_Diller_™♣__۩۞۩ |
|
07.10.2007, 16:41 | #48 |
Пользователь
Регистрация: 21.06.2007
Сообщений: 55
|
begin
razr:=round(L/losk); edit6.Text:=floattostr(razr); razmer:=strtoint(edit6.Text); edit7.Text:=floattostr(razmer); SetLength(V,razmer); ymax:=L+a*(-10+(-b/(2*a)))*(-10+(-b/(2*a)))+b*(-10+(-b/(2*a)))+c+losk; d:=b*b - 4*a*(c-ymax); if d<0then begin showmessage('Неправильно введены a,b или c'); end else begin x1:=(-b - sqrt(d))/(2*a); x2:=(-b + sqrt(d))/(2*a); ogr:=x2-x1; xmin:=x1 ;{до этого значения считаем в цикле} mindiam:=20;{условие мин диаметра} x:=-10+((-b)/(2*a)); for i:=0 to razmer-1 do begin repeat ymin:=a*(x+(-b/(2*a)))*(x+(-b/(2*a)))+b*(x+(-b/(2*a)))+c+losk; ymax:=ymin+losk; d:=b*b - 4*a*(c-ymax); if d<0then begin showmessage('Неправильно введены a,b или c'); end else begin x1:=(-b - sqrt(d))/(2*a); x2:=(-b + sqrt(d))/(2*a); maxdiam:=x2-x1; r:=((maxdiam/2)+(mindiam/2))/2 ; V[i]:=pi*r*r*losk; edit8.Text:=floattostr(V[i]); ttable.cells[2,i+1]:=floattostr(V[i]); x:=x1; mindiam:=maxdiam; end; until mindiam>=ogr;{ вот она тут была.. бьыло x>=xmin} end; end; end; end; end; www.nnm.ru ۩۞۩___Смысл заключается,_______________۩۞۩ ۩۞۩___Лишь в величине вашего разума____.۩۞۩ ۩۞۩__♣™_Diller_™♣__۩۞۩ |
07.10.2007, 16:43 | #49 |
Пользователь
Регистрация: 21.06.2007
Сообщений: 55
|
вот архи проги считающий. Объем.. параболойда по сегментам.. мож кому понадобится...объем.rar
www.nnm.ru ۩۞۩___Смысл заключается,_______________۩۞۩ ۩۞۩___Лишь в величине вашего разума____.۩۞۩ ۩۞۩__♣™_Diller_™♣__۩۞۩ |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
динамический массив | Dimon | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 21.03.2008 18:08 |
Динамический массив | _ares_ | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 26.12.2007 23:54 |
Динамический массив. | Mickle | Помощь студентам | 9 | 21.06.2007 20:31 |
Динамический массив | Mickle | Общие вопросы Delphi | 8 | 19.06.2007 06:45 |
Динамический массив + Dll. | LEKA | Общие вопросы Delphi | 7 | 11.05.2007 20:05 |