Программирование, На каком языке кодим, делимся опытом... |
Здравствуйте, гость ( Вход | Регистрация )
Программирование, На каком языке кодим, делимся опытом... |
Командор Норрингтон |
Dec 5 2006, 20:48
Сообщение
#1
|
Madman Группа: форумчанин Сообщений: 477 Регистрация: 28-August 06 Из: Planet Earth Пользователь №: 4,052 |
Я на VB6, и Delphi...
А вы на чём? |
Bogdan |
Dec 23 2006, 22:51
Сообщение
#21
|
капитан Группа: форумчанин Сообщений: 312 Регистрация: 3-September 05 Из: Россия, Краснодар Пользователь №: 1,192 |
Ребят, кажется Морган забыл файл к сообщению прилепить! Я уже ее и сам сделал, но она пашет не очень... Если кому не трудно, помогите решить! Напоминаю задачу:
В заданном множестве точек на плоскости найти три точки, которые могут служить вершинами остроугольного треугольника. Мне нужно решение, чтобы сравнить с моим и найти свою ошибку! Заранее спасибо!!! |
Piroman |
Dec 24 2006, 03:05
Сообщение
#22
|
-СракоборецЪ- Группа: 1-е место на турнире 0601 Сообщений: 1,507 Регистрация: 18-November 04 Из: роддома Пользователь №: 100 |
Цитата Ребят, кажется Морган забыл файл к сообщению прилепить! Судя по всему он и не собирался... Он жишь хотел тебе в личку кинуть Цитата Я уже ее и сам сделал, но она пашет не очень... Чему ж там пахать то? Яки сложнейший программный комплякс аля ОС Цитата Если кому не трудно, помогите решить! Ну воть: 3cor.rar ( 596 байт ) Кол-во скачиваний: 25 Тока я писАл в блакнотике, такчта могут быть арфяграфичеззкие ашиппки + алгаритм там несколько не тот что BooDoo описал, ну ничаво - разберёшси, а ежель нет спрашивай |
Bogdan |
Dec 24 2006, 18:09
Сообщение
#23
|
капитан Группа: форумчанин Сообщений: 312 Регистрация: 3-September 05 Из: Россия, Краснодар Пользователь №: 1,192 |
А бывает проще? Чет я такого о Паскале и не знаю. При чем тут true, byte, boolean? Я такого даже не знаю
|
Piroman |
Dec 24 2006, 19:08
Сообщение
#24
|
-СракоборецЪ- Группа: 1-е место на турнире 0601 Сообщений: 1,507 Регистрация: 18-November 04 Из: роддома Пользователь №: 100 |
А бывает проще? Сматря ф каком смысле и о чём ? При чем тут true, byte, boolean? Я такого даже не знаю Ну, как бы: byte - это тип данных такой (от 0 до 255). Ежель хочешь - заменяй на integer (его то должен знать ) boolean - это тоже тип данных (ф честь матершинника известного ). Переменные такого типа могут принимать тока 2 значения: либо true, либо false Самое главное - код компилиться ? |
Bogdan |
Dec 24 2006, 19:26
Сообщение
#25
|
капитан Группа: форумчанин Сообщений: 312 Регистрация: 3-September 05 Из: Россия, Краснодар Пользователь №: 1,192 |
неа. А нельзя это сделать на колхозном уровне?
|
Piroman |
Dec 24 2006, 19:40
Сообщение
#26
|
-СракоборецЪ- Группа: 1-е место на турнире 0601 Сообщений: 1,507 Регистрация: 18-November 04 Из: роддома Пользователь №: 100 |
неа. Вот этот должин кампилиццо: 3cor_1.rar ( 603 байт ) Кол-во скачиваний: 21 Пропустил пару скобачек, да адну переменную описать... А нельзя это сделать на колхозном уровне? Неа Калхоз ф топку Лучча калхоз подтягивайся! Горадом будишь Чиво нипанятно ? |
Bogdan |
Dec 24 2006, 19:51
Сообщение
#27
|
капитан Группа: форумчанин Сообщений: 312 Регистрация: 3-September 05 Из: Россия, Краснодар Пользователь №: 1,192 |
Спасибо за помощь, Piroman! Колхоз в топку!
|
Piroman |
Dec 24 2006, 19:57
Сообщение
#28
|
-СракоборецЪ- Группа: 1-е место на турнире 0601 Сообщений: 1,507 Регистрация: 18-November 04 Из: роддома Пользователь №: 100 |
|
Bogdan |
Dec 25 2006, 15:09
Сообщение
#29
|
капитан Группа: форумчанин Сообщений: 312 Регистрация: 3-September 05 Из: Россия, Краснодар Пользователь №: 1,192 |
Обращаюсь "ешшо" :
А в Басике забабахать ее слабо?! Чисто ради прикола... |
Piroman |
Dec 25 2006, 15:18
Сообщение
#30
|
-СракоборецЪ- Группа: 1-е место на турнире 0601 Сообщений: 1,507 Регистрация: 18-November 04 Из: роддома Пользователь №: 100 |
|
Bogdan |
Dec 25 2006, 16:02
Сообщение
#31
|
капитан Группа: форумчанин Сообщений: 312 Регистрация: 3-September 05 Из: Россия, Краснодар Пользователь №: 1,192 |
Готов! С меня еще 1.000.000.000 копеек ))
|
Piroman |
Dec 25 2006, 20:23
Сообщение
#32
|
-СракоборецЪ- Группа: 1-е место на турнире 0601 Сообщений: 1,507 Регистрация: 18-November 04 Из: роддома Пользователь №: 100 |
Готов! С меня еще 1.000.000.000 копеек )) Ладна, миня и в капейках устроит Воть: 3cor_2.rar ( 491 байт ) Кол-во скачиваний: 22 А типерь, - сравни алгоритм с тем шо я тебе высылал ранее и найди в том что было ранее некоторый кусок лишнего кода (типа аптимизацию произведи ) |
Bogdan |
Dec 25 2006, 22:15
Сообщение
#33
|
капитан Группа: форумчанин Сообщений: 312 Регистрация: 3-September 05 Из: Россия, Краснодар Пользователь №: 1,192 |
Piroman'ищще! А вот такой вариант работать будет?
DIM X(100) DIM Y(100) INPUT N INPUT M FOR I = 1 TO N FOR J = 1 TO M INPUT X(I) INPUT Y(J) NEXT J NEXT I K=0 FOR I = 1 TO N FOR J = 1 TO M FOR Z = 1 TO N FOR L = 1 TO M FOR F = 1 TO N FOR C = 1 TO M FOR K = 1 TO N FOR R = 1 TO M IF SQRT(SQR(X(Z) - X(F)) + SQR(Y(L)-Y©))*SQRT(SQR(X(Z) - X(F)) + SQR(Y(L)-Y©)) + SQRT(SQR(X(F) - X(Z)) + SQR(Y(J) + Y©))*SQRT(SQR(X(F) - X(Z)) + SQR(Y(J) + Y©)) = = SQRT(SQR(X(Z) - X(I)) + SQR(Y(L) - Y©))*SQRT(SQR(X(Z) - X(I)) + SQR(Y(L) - Y©)) THEN IF SQRT(SQR(X(Z) - X(F)) + SQR(Y(L)-Y©))*SQRT(SQR(X(Z) - X(F)) + SQR(Y(L)-Y©)) + SQRT(SQR(X(K) - X(F)) + SQR(Y® - Y©))*SQRT(SQR(X(K) - X(F)) + SQR(Y® - Y©)) = = SQRT(SQR(X(Z) - X(K)) + SQR(Y(L) - Y®))*SQRT(SQR(X(Z) - X(K)) + SQR(Y(L) - Y®)) THEN IF SQRT(2) < SQRT(SQR(X(Z) - X(F)) + SQR(Y(L) - Y©)) / SQRT(SQR(X(Z) - X(I)) + SQR(Y(L) - Y(J))) + SQRT(SQR(X(Z) - X(F)) + SQR(Y(L) - Y©)) / SQRT(SQR(X(Z) - X(K)) + SQR(Y(L) - Y®)) THEN K=K+1 END IF END IF END IF NEXT R NEXT K NEXT C NEXT F NEXT L NEXT Z NEXT J NEXT I PRINT "В ЗАДАННОМ МНОЖЕСТВЕ ТОЧЕК МОЖНО ПОСТРОИТЬ ";K;" ОСТРОУГОЛЬНЫХ ТРЕУГОЛЬНИКОВ" END. Проверь, пожалуйста, своим профессиональным взглядом PS Просто учительница хочет максимально простой вар. ЗЫЫ Некоторые переменные почему-то получились в кружках, когда я текст вставил в сообщение. Это означает, к примеру: Y ( R ) |
Piroman |
Dec 26 2006, 00:07
Сообщение
#34
|
-СракоборецЪ- Группа: 1-е место на турнире 0601 Сообщений: 1,507 Регистрация: 18-November 04 Из: роддома Пользователь №: 100 |
Цитата PRINT "В ЗАДАННОМ МНОЖЕСТВЕ ТОЧЕК МОЖНО ПОСТРОИТЬ ";K;" ОСТРОУГОЛЬНЫХ ТРЕУГОЛЬНИКОВ" Дык вапрос то какой? Зачем тебе количество?.. И нифига сибе прастой вариант... Я ж моск сломал (С) ... И штота мине падсказываит шо не будит это работать Начнём разбор ... Цитата DIM X(100) DIM Y(100) Маладец, правильна (это ты объявил массивы) Тока, паскольку координаты точек не обязательна целые числа - апосля X и Y стоит писать "#" Тоисть: Код DIM X#(100) DIM Y#(100) Цитата INPUT N INPUT M FOR I = 1 TO N FOR J = 1 TO M INPUT X(I) INPUT Y(J) NEXT J NEXT I Вот это действие ваще нипанятное ... Падумай - тебе надо ввести какоето кол-во точек (дапустим N), ты задаёшь вапрос - "Скока точек нада?" и число введённое юзером должно пойти в переменную N. Что такое M? Нивижу логики ?. Нада так: Код input "Сколько точек"; N Патом ты должен папросить юзера ввести координаты для каждой из N точек... (нужен один цикл! не два!). Пишешь: Код for i=1 to N input X#(i) input Y#(i) next i Цитата K=0 Правильно, занулили счётчик треугольникофф При прачтении дальнейшего я тихо матерился в платочек ... Ты издеваишсо? Воопщем, чтобы проверить будет ли треугольник остроугольным, да и ваапще чтоб не палучился треугольник со сторонами 3,1,1 нам достаточно чтобы выполнялась савокупность условий: (A^2 + B^2 > C^2) & (A^2 + C^2 > B^2) & (B^2 + C^2 > A^2). Это уже знания из геометрии ("^2" - это значит "в квадрате"). Тоисть нам осталось перебрать все возможные комбинации треугольничкофф. А это осуществляется тремя! циклами, не 8!! Пример: у нас исть 5 точек... первый цикл - красный (i), второй зилёный (j), третий галубой (L) 01) * * * * * 02) * * * * * 03) * * * * * 04) * * * * * 05) * * * * * 06) * * * * * 07) * * * * * 08) * * * * * 09) * * * * * 10) * * * * * Как видишь, всего 10 треугольникоф... Их перебор (в общем виде естессно) реализуется вот так: Код for i=1 to N-2 for j=i+1 to N-1 for L=j+1 to N *** Код next L next j next i а вот там где *** мы будем делать проверку на вшивасть Это выглядит так: if ((X#(j)-X#(i))^2+(Y#(j)-Y#(i))^2 + (X#(L)-X#(i))^2+(Y#(L)-Y#(i))^2) > ((X#(L)-X#(j))^2+(Y#(L)-Y#(j))^2) and ((X#(j)-X#(i))^2+(Y#(j)-Y#(i))^2 + (X#(L)-X#(j))^2+(Y#(L)-Y#(j))^2) > ((X#(L)-X#(i))^2+(Y#(L)-Y#(i))^2) and ((X#(L)-X#(i))^2+(Y#(L)-Y#(i))^2 + (X#(L)-X#(j))^2+(Y#(L)-Y#(j))^2) > (X#(j)-X#(i))^2+(Y#(j)-Y#(i))^2 then увеличаваем счётчик треугольников, тоисть: Код k=k+1 и закрываим блок if: Код end if Ну и наконец: Цитата PRINT "В ЗАДАННОМ МНОЖЕСТВЕ ТОЧЕК МОЖНО ПОСТРОИТЬ ";K;" ОСТРОУГОЛЬНЫХ ТРЕУГОЛЬНИКОВ" END. Тока точку после end нинада Фсё ! Более падробно, я баюсь, никто не абъяснит! - Если астались вапросы: "Мама, ради миня абратна ..." © В файле всё то же самое, что и в посте... 3cor_final.rar ( 320 байт ) Кол-во скачиваний: 10 Цитата Проверь, пожалуйста, своим профессиональным взглядом Зараза !, С тибя 1.000.000.000.000.000 баксафф И больше ка мне ниабращайси! Цитата ЗЫЫ Некоторые переменные почему-то получились в кружках, когда я текст вставил в сообщение. Это означает, к примеру: Y ( R ) А вот штоп такого не случалось юзай тег "[code]" ЗЫ: ты в каком классе ? |
Bogdan |
Dec 26 2006, 00:19
Сообщение
#35
|
капитан Группа: форумчанин Сообщений: 312 Регистрация: 3-September 05 Из: Россия, Краснодар Пользователь №: 1,192 |
в 11. Только у нас информатика походу так, для галочки. Но за то спрашивают, как арабов молитвы... Блин, Пироман, чтоо бы я без тебя делал??!! Воистину спасибо!
PS Пироман, а у тебя ICQ есть? ЗЫЫ Спасибо Командору Норрингтону за создание этой темы! |
Piroman |
Dec 26 2006, 00:32
Сообщение
#36
|
-СракоборецЪ- Группа: 1-е место на турнире 0601 Сообщений: 1,507 Регистрация: 18-November 04 Из: роддома Пользователь №: 100 |
Блин, Пироман, чтоо бы я без тебя делал??!! Дай угадаю - съэкономил бы кучу бабла и палучил бы пару (падумаишь бида какая . У меня вон, - сессия на насу, а я своего препода по истории не видел ни разу , и ничаво давольной ) Цитата Только у нас информатика походу так, для галочки Я сматрю везде одинакова... У миня тажа история - наша училка у меня уроки брала... (а вить кандидат каких то тама наук ) ---------------------- Цитата PS Пироман, а у тебя ICQ есть? Ага - 123456 с 12:00 д 13:00 ни биспакоить ибо обед А чаво хател? - может в личку... Сообщение отредактировал Piroman - Dec 26 2006, 00:35 |
Bogdan |
Dec 26 2006, 00:34
Сообщение
#37
|
капитан Группа: форумчанин Сообщений: 312 Регистрация: 3-September 05 Из: Россия, Краснодар Пользователь №: 1,192 |
А откуда такие познания? На собственном энтузиазме?
|
Piroman |
Dec 26 2006, 00:41
Сообщение
#38
|
-СракоборецЪ- Группа: 1-е место на турнире 0601 Сообщений: 1,507 Регистрация: 18-November 04 Из: роддома Пользователь №: 100 |
|
Karharov |
Feb 2 2007, 14:56
Сообщение
#39
|
юнга Группа: Members Сообщений: 16 Регистрация: 30-December 06 Из: Саратов, Заводской район....а дальше не скажу)) Пользователь №: 4,709 |
Мля, человеки, не у кого случаем не завалялся русификатор к Delphi 7? Запарился ужо, один скачал, комп чуть не сдох.
Так, че та я не то написал. Не обращайте внимания. Ботва какая-то получилась. Сообщение отредактировал Karharov - Feb 2 2007, 17:39 |
Минтай |
Feb 2 2007, 15:18
Сообщение
#40
|
матрос Группа: форумчанин Сообщений: 56 Регистрация: 29-December 06 Из: Казань Пользователь №: 4,705 |
ЗЫ А че из них лучше:Borland C++ Bulder, Enterprise 6.0 Update, Delphi Enterprise, Edition 7.0, Intel ++ Compiller for Win 7.0.073, Microsoft Quick C 2.0, Parasoft C++ Test 2.1, SPHINS C-- Turbo C++ 3.0, Pascal 2.1, WINDRIVER SNIFF, PLUSH PRO 4.1 P1? в твоем списке разные программы - билдер, компилер, апдейт для си)) и как сравнивать паскаль и делфи? |
Текстовая версия | Сейчас: 28th April 2024 - 18:21 |