Программирование, На каком языке кодим, делимся опытом... Опции

[Командор Норрингтон]

Я на VB6, и Delphi...
А вы на чём?

[Bogdan]

Ребят, кажется Морган забыл файл к сообщению прилепить! Я уже ее и сам сделал, но она пашет не очень... Если кому не трудно, помогите решить! Напоминаю задачу:
В заданном множестве точек на плоскости найти три точки, которые могут служить вершинами остроугольного треугольника.
Мне нужно решение, чтобы сравнить с моим и найти свою ошибку! Заранее спасибо!!!

[Piroman]

Ребят, кажется Морган забыл файл к сообщению прилепить!

Судя по всему он и не собирался... Он жишь хотел тебе в личку кинуть

Я уже ее и сам сделал, но она пашет не очень...

Чему ж там пахать то?
Яки сложнейший программный комплякс аля ОС

Если кому не трудно, помогите решить!

Ну воть:
 3cor.rar ( 596 байт ) Кол-во скачиваний: 25



Тока я писАл в блакнотике, такчта могут быть арфяграфичеззкие ашиппки
+ алгаритм там несколько не тот что BooDoo описал, ну ничаво - разберёшси, а ежель нет спрашивай

[Bogdan]

А бывает проще? Чет я такого о Паскале и не знаю. При чем тут true, byte, boolean? Я такого даже не знаю

[Piroman]

А бывает проще?

Сматря ф каком смысле и о чём ?

При чем тут true, byte, boolean? Я такого даже не знаю

Ну, как бы:
byte - это тип данных такой (от 0 до 255). Ежель хочешь - заменяй на integer (его то должен знать )
boolean - это тоже тип данных (ф честь матершинника известного ). Переменные такого типа могут принимать тока 2 значения: либо true, либо false


Самое главное - код компилиться ?

[Bogdan]

неа. А нельзя это сделать на колхозном уровне?

[Piroman]

неа.

Вот этот должин кампилиццо:
 3cor_1.rar ( 603 байт ) Кол-во скачиваний: 21

Пропустил пару скобачек, да адну переменную описать...

А нельзя это сделать на колхозном уровне?

Неа
Калхоз ф топку
Лучча калхоз подтягивайся! Горадом будишь


Чиво нипанятно ?

[Bogdan]

Спасибо за помощь, Piroman! Колхоз в топку!

[Piroman]

Спасибо за помощь, Piroman! Колхоз в топку!

Ну, ва первых, с вас 1.000.000.000 $ , а во вторых - абращайтизь ышшо

[Bogdan]

Обращаюсь "ешшо" :
А в Басике забабахать ее слабо?! Чисто ради прикола...

[Piroman]

Обращаюсь "ешшо" :
А в Басике забабахать ее слабо?! Чисто ради прикола...

ГЫ
Я басиковской сленг низнаю
Думаю, шо за сёдня подучусь... - вечерком атпишуся

(а ты гатов внести ышо пажертвавание в фонд Пираманыча? )

[Bogdan]

Готов! С меня еще 1.000.000.000 копеек ))

[Piroman]

Готов! С меня еще 1.000.000.000 копеек ))

Ладна, миня и в капейках устроит

Воть:
 3cor_2.rar ( 491 байт ) Кол-во скачиваний: 22



А типерь, - сравни алгоритм с тем шо я тебе высылал ранее и найди в том что было ранее некоторый кусок лишнего кода
(типа аптимизацию произведи )

[Bogdan]

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]

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]

в 11. Только у нас информатика походу так, для галочки. Но за то спрашивают, как арабов молитвы... Блин, Пироман, чтоо бы я без тебя делал??!! Воистину спасибо!

PS Пироман, а у тебя ICQ есть?

ЗЫЫ Спасибо Командору Норрингтону за создание этой темы!

[Piroman]

Блин, Пироман, чтоо бы я без тебя делал??!!

Дай угадаю - съэкономил бы кучу бабла и палучил бы пару (падумаишь бида какая . У меня вон, - сессия на насу, а я своего препода по истории не видел ни разу , и ничаво давольной )

Только у нас информатика походу так, для галочки

Я сматрю везде одинакова... У миня тажа история - наша училка у меня уроки брала... (а вить кандидат каких то тама наук )



----------------------

PS Пироман, а у тебя ICQ есть?

Ага - 123456
с 12:00 д 13:00 ни биспакоить ибо обед

А чаво хател? - может в личку...

Сообщение отредактировал Piroman - Dec 26 2006, 00:35

[Bogdan]

А откуда такие познания? На собственном энтузиазме?

[Piroman]

А откуда такие познания? На собственном энтузиазме?

Космас наградил
итить его ...


** пашёл спать ибо 7 часофф до зачёту осталося ...

[Karharov]

Мля, человеки, не у кого случаем не завалялся русификатор к Delphi 7? Запарился ужо, один скачал, комп чуть не сдох.



Так, че та я не то написал. Не обращайте внимания. Ботва какая-то получилась.

Сообщение отредактировал Karharov - Feb 2 2007, 17:39

[Минтай]

ЗЫ А че из них лучше: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?

лучше в чем?))
в твоем списке разные программы - билдер, компилер, апдейт для си))
и как сравнивать паскаль и делфи?