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

Ни на чем
Все никак не выкрою время и деньгу чтобы научиться. Почти любой код без особых проблем читаю, а вот учить все эти операнты и команды ломает

По работе - web-progrmming - в основном ПХП.
Но сам почти не пишу... Ковыряюсь в чужом...
Скилл пока слабоват.

VB, VBA, VB.NET (это забыл почти уже все) Активно пишу только на C#. Могу понемногу С++ МFC, Дельфи.... при желании или необходимости правлю любой код ПХП например....

А мне VB.NET не нравиццо, там много наворотов не нужных, VB6 имхо лучше...
никак не дойдут руки разучить чё-нить посерьёзней С++ например

можно не пользоваться не нужным, но VB.NET это первая версия вижуал васика, которую можно считать дейстивтельно Объектно ориентированной.

У меня стоят оба но VB6 для меня приемлемей

Мне все равно, я одинаково хорошо забыл оба уже

Не VB6 не забуду...
Ну хотя пока в школе учат, я то сам его учил ещё раньше, в школе - там фигня... А вот Delphi я забросил

Привет,хотел задать вапрос по програмированию...не могли бы вы подсказать как делаются подобные игры www.arena.ru и какой там используется код?

ЭЭЭ онлайн игры, как и другие щас наверно на Си
А онлайн для браузера - там php наверно, точно не знаю пусть скажет кто знает...

А кто знает, как в Паскале сделать вот такую задачу:

В заданном множестве точек на плоскости найти три точки, которые могут служить вершинами остроугольного треугольника.

Пожалуйста, помогите решить!!

Нда.... школьная задача

Один из вариантов (тупой): тройной вложеный цикл по множеству точек, котое задано двухмерным масивом.

Внутри цикла находить растояния между точками (длина = SQRT(SQR(x1 - x2) + SQR(y1-y2)) ).

А потом по теореме косинусов находим:



Нажмите для просмотра прикрепленного файла

Ко вторнику Pas файл скину.

Спасибо BooDoo за разъяснения. Думаю, что теперь нормально решу.
Морган, а почему именно ко вторинку? Мне ее сдавать не позднее субботы

Потому что дел дофига, постараюсь сделать до пятницы! Если очень надо!

Буду очень признателен!

Небольшое уточнение:

если точек N то

-первый цикл делать I от 1 до N-2

-второй J от I+1 до N-1

-третий K от J+1 до N



это для того чтобы не делать проверку на одинаковые точки.

Ну и хватить найти два угла A и B третий вичисляется просто как 180-A-B

Ну и конечно не забыть что вычисления угла ACOS идут в радианах

А я Паскаля не знаю - устаревший язык... из старых Qbasic-знаю малясь - обращайтесь помогу

Всё сделал сейчас на личку вышлю!

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

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



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



Ну воть:
Нажмите для просмотра прикрепленного файла


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

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

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



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


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

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

Вот этот должин кампилиццо:
Нажмите для просмотра прикрепленного файла
Пропустил пару скобачек, да адну переменную описать...



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


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

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

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

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

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

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

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

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

Воть:
Нажмите для просмотра прикрепленного файла


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

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 )

Дык вапрос то какой? Зачем тебе количество?..

И нифига сибе прастой вариант...
Я ж моск сломал (С) ...
И штота мине падсказываит шо не будит это работать

Начнём разбор ...

Маладец, правильна
(это ты объявил массивы) Тока, паскольку координаты точек не обязательна целые числа - апосля X и Y стоит писать "#"
Тоисть:




Вот это действие ваще нипанятное ...
Падумай - тебе надо ввести какоето кол-во точек (дапустим N), ты задаёшь вапрос - "Скока точек нада?" и число введённое юзером должно пойти в переменную N. Что такое M? Нивижу логики ?.
Нада так:

Патом ты должен папросить юзера ввести координаты для каждой из N точек... (нужен один цикл! не два!). Пишешь:


Правильно, занулили счётчик треугольникофф


При прачтении дальнейшего я тихо матерился в платочек ...
Ты издеваишсо?
Воопщем, чтобы проверить будет ли треугольник остроугольным, да и ваапще чтоб не палучился треугольник со сторонами 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 треугольникоф...
Их перебор (в общем виде естессно) реализуется вот так:

***

а вот там где *** мы будем делать проверку на вшивасть
Это выглядит так:


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
увеличаваем счётчик треугольников, тоисть:

и закрываим блок if:



Ну и наконец:

Тока точку после end нинада

Фсё ! Более падробно, я баюсь, никто не абъяснит! - Если астались вапросы: "Мама, ради миня абратна ..." ©
В файле всё то же самое, что и в посте...
Нажмите для просмотра прикрепленного файла



Зараза !, С тибя 1.000.000.000.000.000 баксафф

И больше ка мне ниабращайси!



А вот штоп такого не случалось юзай тег "[code]"

ЗЫ: ты в каком классе ?

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

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

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

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



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



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

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

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

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

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


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

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



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

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

Потихоньку разбираю Паскаль 7.0

C++, C#, Java. Немного Pascal помню.

Посоветуйте стоит самому браться за изучение Ассамблера?

Всем привет у меня образовался вопрос к программерам
Я играю в ПКМ с установленным аддоном Аллексус Б эдишн без дополнительных ресурсов
как создать своего героя я научился..... ума хватило для этого надо всеголишь залесть в
D:\GAMA\Seadog2\RESOURCE\INI\TEXTS\RUSSIAN\HeroDescribe.txt
и изменить его.... а как можно создать свой класс???
(корсар, торговец, тайный агент, итд)

Скорее тебе сюда
http://legend.seaward.ru/forum/index.php?showforum=35

Хлопцы, рятуйте, сорри за второй пост, просто думал, что темка не проапится если редактирование пользовать а вещичко срочная.

Вот, задание, поможите плизз:
1) Какое минимальное количество разрядов двоичного кода потребуется, чтобы закодировать любое слово русского языка, состоящее из 10 символов. + Пжалста не только ответ, но и коммент как вы это сделали.
2)Переведите десятичное число Z состоящее из целой Z1 и дробной Z2 части в двоичное число, причём Z1=M+N, Z2 = M-N если М=161, N=10
3) Изобразите логический элемент, обладающий N входами и одним выходом, приведите таблицу истинности вашего длогического элемента. N = 10. Использовать логическую конъюнкцию.

Тут довольно просто всего букв в алфавите 33, соответственно на закодирование любой нужны числа от 0 до 32. А это значит максимальное двоичное число будет 100000, тоесть 6 разрядов.

Значит для 10 символов без заков препинания и тд. нужно 60 разряов.

Но если использвать методы упаковки то можно вложиться в половину.

Спс! А как насчёт третьего? Я второе сам сделал
И вот 4)
Изобразить блок-схему алгоритма выполняющего суммирование числового ряда, подсчёт количества просуммированных членов ряда S с остановкой процесса суммирования при достижение суммы членов ряда равной величине F и выводом числа просуммированных рядов члена S при следующих условиях:
-Первое число ряда соответствует величине М=161 с порядковым номером i=1
-каждое последующее число ряда i+1 больше предыдущего на 10
-суммирование членов ряда прекращается при достижении величины 300

Где можно скачать Паскаль или Дельфи, очень надо!

дельфи можно скачать с сайта производителя (www.borland.com)
правда, теперь разработкой среды занимается "дочка" борланда - CodeGear...