слиент jabber Позарез надо написать клиент для jabber! Времени разбираться в rfc нет уже... мне б, главное, основные моменты узнать: соединение, авторизация и т.д. Помогите, кто чем сможет!..
скачай линуксовый клиент какой-нибудь. из него вытащи нужные тебе функции и вставь в свой клиент. сделай графическое оформление и юзай(=
Да вот всё никак не мог найти клиента с исходниками, в которых разобраться смог бы. Посоветуйте чего-нибудь попроще?
visual c++ помогите с прогой, в суботу в 9 утра сдавать!! КОРОЧ СДЕЛАЛ ПРОГУ, МЫШКОЙ ЧТОБ РИСОВАЛА+КНОПКА ВЫХОД.., А КАК СДЕЛАТЬ ТАК, ЧТО БЫ КОГДА ВЕДЕШЬ МЫШКОЙ ЦВЕТА МЕНЯЛИСЬ - ВОТ КОД.. void CDRAWDlg::OnMouseMove(UINT nFlags, CPoint point) { // TODO: Add your message handler code here and/or call default if((nFlags & MK_LBUTTON)==MK_LBUTTON) { CClientDC dc(this); // dc.SetPixel(point.x, point.y, RGB(123,211,98)); CPen NewPen(PS_SOLID, 5, RGB(255,0,0)); dc.SelectObject(&NewPen); dc.MoveTo(m_PrevX, m_PrevY); dc.LineTo(point.x, point.y); m_PrevX=point.x; m_PrevY=point.y; } я думаю где тут что то нужно вставить +задание на утро - в общем нуна сделать прогу - там ну...напр 4 конпки - нажимаешь на 1 - рисуешь 1 цветом, на др - другим!! оч нужно помогите плз!!
имхо простое решение - создай диалог с радиобатонами или еще какой нить елемент контроля, который будет передавать тебе значения типа 1, 2, 3 ит.д. потом в зависимости от полученого резалта с диалога выбора цвета присвой к 1 значение GREEN и т.д. и передавай в саму рисовалку.. ну смысл в том что можно спростить тем что простеньким диалогом выбрать и передать значения цветов для рисования... удачи, мэн.
Помогите решать задачи на Pascal Помогите плз решить задачи, как можно скорее! Задача №1 PHP: Трамвайные билеты в городе S имеют номера, состоящие из N цифр, причем N всегда нечетное. Пассажиры определяют, является ли билет "счастливым", следующим образом. Сначала считаются суммы цифр слева и справа от средней цифры. Если они совпадают, то билет считается счастливым. Если же суммы не совпали, то в дело идет средняя цифра. Это число (от 0 до 9) пробуют разделить на два слагаемых таким образом, чтобы при добавлении одного из них к сумме цифр слева от середины номера и другого к сумме цифр справа от середины номера эти суммы все же совпали. В случае, если такое разложение на слагаемые существует, билет также считается счастливым. Ваша задача - определить по заданным номерам билетов, являются ли они счастливыми или нет. Формат входного файла input.txt Первая строка - целые числа N и M, где 3 <= N <= 99 - количество цифр в номере билета (гарантируется, что N - нечетное число) 1 <= M <= 100000 - количество билетов, для которых надо проверить, являются ли они счастливыми Каждая из следующих M строк содержит по одному номеру билета Формат выходного файла output.txt Каждая из M строк выходного файла содержит знак +, если билет является счастливым, и знак -, если билет не является счастливым Пример входного файла 7 4 3570816 3579816 3576819 3575819 Пример выходного файла + + - + Задача №2 PHP: Гости города S решили навестить своего друга. Они знают, что его дом находится возле трамвайной остановки. У гостей города S есть карта, на которой указаны все трамвайные пути и остановки, а также трамвайные маршруты. Один из гостей города S составил список из номеров трамваев и остановок, на которых нужно выходить, чтобы пересесть на следующий трамвай. Ваша задача - по карте и списку определить время, за которое гости города S смогут добраться до дома своего друга. Если сделать это невозможно (список мог быть составлен с ошибками), выведите в качестве ответа -1. Формат входного файла input.txt Первая строка - целые числа N, M, A, B, S через пробел, где N - число остановок (будем полагать их занумерованными числами от 1 до N) (2 <= N <= 500) M - количество трамвайных маршрутов (1 <= M <= 300) A - номер остановки возле гостиницы (точка отправления гостей города) (1 <= A <= N). Гости города S приходят на нее в момент времени, равный 0. B - номер остановки возле дома друга гостей города (1 <= B <= N, B <> A) S - количество строк в списке гостя города (1 <= S <= 300) Далее следуют M групп по 3 строки, описывающие трамвайные маршруты. Первая строка описания содержит три целых числа Qj, Cj и Dj (j = 1, 2, ... M) через пробел, где Qj - количество остановок в маршруте #j (2 <= Qj <= N) Cj (Cj >= 0) - время появления первого трамвая данного маршрута на первой остановке маршрута. Время отсчитывается от момента появления на остановке #А гостей города S. Dj (Dj >= 0) - интервал времени (в минутах), через который трамваи этого маршрута отправляются с начальной остановки. Если Dj = 0, это означает, что трамвай выходит на маршрут единожды. Вторая строка описания содержит последовательность остановок маршрута - Qj целых чисел P1j, P2j, ..., PQjj через пробел (Pk j <> Pk+1 j). Третья строка содержит Qj-1 целое число: U12j, U23j, U34j, ..., UQj-1Qjj - интервалы времени (в минутах), за которые трамвай доезжает от одной остановки до другой (от первой до второй, от второй до третьей и т.д.) Каждая из следующих S строк содержит по два целых числа Ti и Ki (i = 1, 2, ... S) через пробел, где Ti (1 <= Ti <= M) - номер трамвая, на который следует сесть гостям города на "текущей остановке" Ki (1 <= Ki <= N) - номер остановки, на которой им следует выйти Для первого трамвая в списке текущей считается остановка #A, для каждого последующего - та остановка, на которой гости города вышли из предыдущего трамвая. Пересадка с трамвая на трамвай не может происходить мгновенно. Если гости города вышли из трамвая на некоторой остановке в момент времени t, то сесть в следующий трамвай они могут только в момент времени t+1 (т.е. если трамваи оказались на остановке одновременно, пересесть из одного в другой не удастся). Гарантируется, что гости города потратят не более 10^6 минут, чтобы добраться до дома своего друга, если это возможно. Формат выходного файла output.txt Первая строка содержит одно целое число - время в минутах, за которое гости города S доберутся от остановки A до остановки B. Если это невозможно сделать, выведите -1. Пример входного файла 6 2 1 6 2 4 1 15 1 2 3 4 4 5 3 3 2 10 5 3 6 5 6 1 3 2 6 Пример выходного файла: 23 Задача №3 PHP: M гостей города S решили посетить научную конференцию. На конференции всем участникам были выданы совершенно одинаковые непрозрачные папки, в которых, кроме прочего, были большие блокноты. Когда M гостей города S пришли в кафе пообедать, трое из них сложили свои папки на подоконник. Пока они обедали, кто-то из коллег уложил все три папки в аккуратную стопку. Хозяева папок - назовем их условно A, B, C - решили попробовать определить, какая из папок чья, не открывая их. Оказалось, что А предпочел вести записи в собственном маленьком блокноте и отдал большой блокнот С. У B же содержимое папки не менялось. Следовательно, самая легкая папка должна принадлежать A, самая тяжелая - C, а средняя по весу - B. Папки были помечены как 1, 2 и 3. Один из троих "взвесил" попарно папки в руках и записал результаты "взвешивания": сначала номер папки, которая показалась ему более легкой, затем номер папки, которая показалась ему более тяжелой. Ваша задача - определить, какая из папок кому принадлежит, или, если это невозможно по приведенным данным, вывести в качестве ответа 0. Формат входного файла input.txt Входной файл содержит три строки вида L H - два целых числа через пробел, 1 <= L, H <= 3, L <> H Формат выходного файла output.txt Первая строка - символы A, B, C через пробел, в порядке, соответствующем номерам принадлежащих им папок (на первом месте указать владельца папки 1, на втором - владельца папки 2, на третьем - владельца папки 3). Если по данным входного файла нельзя установить владельцев папок, выведите в первую строку единственное число 0. Пример входного файла 1 1 2 2 3 1 3 Пример выходного файла 1 A B C Пример входного файла 2 1 3 3 2 2 1 Пример выходного файла 2 0 Заранее спасибо!
у кого есть готовое решение, прошу пожалуйста выложить Нужна простая программа на Pascal работающая с файлами, без наворотов
Народ кто может помочь сделать !? Вот задание : Дано массив отрезков и массив прямых. Нужно найти те отрезки што создаются в результате проекции массива отрезков на массив прямых ! Ето все нужно сделать графически ! Написать нужно на С++
народ помогите с двумя задачками в VisualBasic задание 1 с клавиатуры вводится 4х значное число (1234 5629 3509 и тд) и нужно посчитать произведение каждого из знаков(1*2*3*4 5*6*2*9 3*5*0*9) 2 с клавиатуры вводится массив чисел и посчитать среднее арифметическое ну я так понял массив может быть одномерный. то бишь строка чисел, которые разделяться будут пробелом если поможете буду очень признателен достаточно кода который будет вставляться в кнопку подсчитать с уважением Владимир
Строки символов Народ помогите плиз!!! Задание такое: В произвольном тексте, содержащем не больше 10 строк, в каждой строке не более 80 символов, перенести последнюю букву в начало слова. Полученный текст напечатать. В Microsoft Visual Studio .NET Я попробовал набрать программу но она не работает!!! PHP: #include<stdio.h> #include<string.h> #include<conio.h> #define YES 1 #define NO 0 void main() { const int m=10; char string[m][80],d; int n,i,j,beg; int inword=NO; i=0; while (gets(string[i])!=NULL)i++; int k=i; printf("\n"); for(i=0;i<k;i++) { n=strlen(string[i]); for(j=0;j<=n;j++) if(*(string[i]+j)==' ' || *(string[i]+j)=='\0' || *(string[i]+j)==',') {if(inword==YES) { d=*(string[i]+j-1); *(string[i]+j-1)=*(string[i]+beg); *(string[i]+beg)=d; } inword=NO; } else if(inword==NO) {inword=YES;beg=j;} } for(i=0;i<k;i++) puts(string[i]); getch(); } Помогите пожалуйста!
Delimiter большое спасибо=) Немного мудренный конечно код,препод выпадет=)) P.S. - а как сделать чтбы руский текст нормально выводился или это впринципе не возможно?
Срочно!!!!! Нада решить задачи по Структуре Данных Кто возьмется писать на Паскале? Мудреный код мне не нужен) Все должно быть с комментариями, т.е. разжёвано так, чтобы я потом не ждал вас в аське, чтобы вы мне объясняли. Кто возьмется, то с ценами пишем в аську) 6218200(можно в офф, приду отвечу) Деньги вперёд не даю! koi8 | win | dos | utf-8 | mac СТРУКТУРЫ ДАННЫХ ЗАДАЧА 1: Вводится последовательность, состоящая из N пар символов (ai,bi). Каждая пара определяет порядок предшествования символов, например, пара (b,с) означает, что символ "b" предшествует символу "с". Из порядка (b,с) и (с,a) следует порядок (b,a). Необходимо определить, является ли введенная последовательность: а) полной, т.е. все использованные для формирования пар символы (выбросив повторяющиеся) можно выстроить в цепочку (A1,A2,...,As) в порядке предшествования; б) противоречивой, т.е. для некоторых символов x,y можно получить одновременно порядок как (x,y) так и (y,x); РЕШЕНИЕ(написать код, не забывай про комментарии): Пусть при записи этих N пар встретилось всего K различных символов, которые образуют множество X. Идея решения задачи состоит в последовательном присвоении каждому символу s из Х номера, который определяет количество Р(s) элементов, предшествующих ему, с учетом свойства транзитивности (из (с,b) и (b,а) следует (с,а)). Это осуществляется следующим образом: Первоначально предполагается, что каждому символу не предшествует ни один символ, т.е. Р(s)=0 для любого s. При просмотре очередной пары (x,y) символу y присваивается большее из значений P(x)+1, P(y). Очевидно, что при первом просмотре всех пар из входной последовательности определятся все упорядоченные цепочки длины 2, т.е. состоящие из 2 элементов. Поэтому номера некоторых элементов будут как минимум 1. При каждом из следующих просмотров входной строкивозможно несколько вариантов. Не произошло изменения ни одного из номеров символов. Если при этом номера символов различны и лежат в пределах от 0 до N-1, то эта нумерация определяет полный порядок. Иначе порядок неполный. Номер некоторого символа превысил N-1. Это произошло потому, что рост номеров неограничен, т.е. осуществляется циклически. Следовательно порядок противоречив. Легко понять, что число просмотров не превысит N. Вариант 2. Рассмотрим следующий метод: Заведем массивы A: array [1..N,0..N] of byte и Cnt: array[1..N] of byte; сначала A[i,0]=0 и Cnt=0 для любого i. Пусть среди 2*N символов, образующих N пар, есть ровно K различных. Перенумеруем их от 1 до K. Будем считать, что пары составлены не из символов, а из соответствующих им номеров. В i-ю строчку матрицы A будем заносить те элементы, которые являются вторыми элементами в парах с первым элементом i. В A[i,0] будет храниться текущее число этих элементов. Обработка пары (i,j) будет выглядеть следующим образом: A[i,0]:=A[i,0]+1; {количество увеличилось на 1} A[i,A[i,0]]:=j; {вставляем j на первое свободное место} В Сnt будет храниться число пар, у которых элемент i является вторым в паре. Если все символы без повторений, использованные для записи пар, можно выписать в цепочку в порядке предшествования, то у этой цепочки должен быть первый символ s, у которого нет предшествующего и которому соответствует Cnt=0. Может быть несколько ситуаций: 1. Такой элемент единственный - следовательно, это начало цепочки. Отбрасываем s из цепочки и убираем все пары с первым элементом s из множества пар, корректируя при этом массив Cnt: for i:=1 to A[0,s] do Сnt[A[s,i]]:=Cnt[A[s,i]]-1; после чего опять ищем элемент s, у которого нет предшествующего и которому соответствует Cnt=0. 2. Таких элементов несколько, следовательно, между ними нельзя определить порядок предшествования - система неполна. 3. Таких элементов нет - следовательно, система противоречива. ГРАФЫ ЗАДАЧА 2: Задан набор неповторяющихся пар (Ai,Aj), Ai, Aj принадлежат множеству А={A1, A2, ..., An}. Необходимо составить цепочку максимальной длины по правилу (Ai,Aj)+(Aj,Ak)=(Ai,Aj,Ak). При образовании этой цепочки любая пара может быть использована не более одного раза. РЕШЕНИЕ(написанный в конце программы код с ошибкой. надо найти эту ошибку и исправить её; не забываем про комментарии): Для более удобного хранения информации заведем матрицу C[1...n,1..n] (так называемую матрицу смежности) в которой C[i,j]=1, если в наборе есть пара (Ai,Aj) и C[i,j]=0 иначе. Будем строить все возможные цепочки (по правилу, данному в условии) и искать среди них ту, которая имеет максимальную длину. В качестве начального символа цепочки можно взять любой символ из A. Пусть это символ Ai. Ищем, просматривая строку i матрицы C слева направо элемент C[i,j]=1 (другими словами, ищем пару с первым элементом Ai). Если такого элемента не существует, то берем в качестве начала строки другой элемент множества A. Если элемент C[i,j]=1 найден, то ему соответствует пара (Ai,Aj). Помечаем ее как уже использованную полагая, например, C[i,j]=-1. Далее просматриваем слева направо строку j матрицы C в поисках еще не использованной пары (Aj,Ak) (C[j,k]=1). Присоединяем элемент Ak к имеющейся цепочке, полагаем C[j,k]=-1, ищем единичный элемент в строке k и т.д. Предположим, на некотором шаге мы получили цепочку Ai Aj Ak ... As Al Ap и в строке p матрицы больше нет ни одного единичного элемента. Это означает, что при таком подборе предыдущих элементов мы нашли максимальную по длине строку. Если ее длина больше длин всех найденных ранее строк, запоминаем эту строку как рекорд. После этого "отщепляем" от строки последний элемент Ap и смотрим, есть ли еще в строке l единичный элемент с индексом, большим p. Если да, то приписываем уже этот элемент к строке и пытаемся затем снова увеличить длину полученной строки, если же нет, то "отщепляем" от строки элемент A1, в строке S ищем единичный элемент с индексом, большим l и т.д. Останов осуществляется тогда, когда мы должны "отщепить" от строки Ai. Перебираем цепочки, начинающиеся со всех возможных элементов множества A. Находим строку максимальной длины: const M=10; {максимально число элементов в A} {будем считать, что A состоит из чисел от 1 до N} var c:array[1..M,1..M] of integer; curstr, maxstr: array[0..M] of integer; {в этих переменных хранятся текущая цепочка и} {цепочка максимальной длины.} {В нулевом элементе хранится длина цепочки} N,E : integer; {N - число элементов в A} i,j,k : integer; {E - число пар в наборе} procedure find; var l,j : integer; begin l:=curstr[curstr[0]]; {l = последний элемент цепочки} for j:=1 to N do {просмотр строки l} if C[l,j]=1 then begin curstr[0]:=curstr[0]+1; curstr[curstr[0]]:=j; {j -> в цепочку} c[l,j]:=-1; {пара использована} find; c[l,j]:=1; {пару снова разрешено использовать} curstr[0]:=curstr[0]-1; end; if curstr[0]>maxstr[0] {если нашли более} then maxstr:=curstr {длинную строку} end; begin readln(N); readln(E); for i:=1 to N do for j:=1 to N do C[i,j]:=0; for k:=1 to E do begin write('очередная пара: ',i,j); c[i,j]:=1 end; for i:=1 to N do begin curr[0]:=1; {поиск цепочки} curr[1]:=i; {начинающейся элементом i} find; end; for i:=1 to maxstr[0] do write(maxstr); {печать максимальной строки} end. ЗАДАЧА 3: Найти и удалить (левым удалением) среднюю по значению вершину дерева, у которой высота левого поддерева отличается от высоты правого поддерева на 2. Выполиь прямой (левый) обход полученного дерева. Для реализации этой задачи можно использовать данное (ниже) построение бинарного дерева, но естественно нужно переделать всё так, как сказано в условии данной задачи: Uses Graph,crt; Type PEl = ^El; El = record Data : integer; W, H :integer; L, R : PEl end; var T : PEl; i, w, h, gd, gm, _global_counter : integer; hg,wg:string; x3,y3,kl, kr,d,s,s1:integer; //---------------------------- Const n=12; Gl :integer=0; Procedure AddNode(var PEl; n:integer); begin if P<> Nil then if n < P^.Data then AddNode(P^.L,n) else if n > P^.Data then AddNode(P^.R,n) else writeln('est') else begin New(P); //elsi novoe P^.Data:=n; P^.L:=Nil; P^.R:=Nil end; end; {------------------------------------------------------} Function MaxHeight(PEl):integer; //vysota dereva var Hl, Hr : integer; begin if P=Nil then MaxHeight:=0 else begin Hl:=MaxHeight(P^.L); Hr:=MaxHeight(P^.R); MaxHeight:=Hl+1; P^.H:=Hl+1; if Hr > Hl then begin MaxHeight:=Hr+1; P^.H:=Hr+1 end end; end; {------------------------------------------------------} Function MaxWidth(PEl):integer; //shirina dereva begin if P=Nil then MaxWidth:=0 else begin MaxWidth:=1+MaxWidth(P^.L)+MaxWidth(P^.R) end end; Procedure PrintTree(PEl;x1,y1,DX:byte); {$R-} begin if P=Nil then begin Exit end else begin PrintTree(P^.r,x1+trunc(dx),y1+2,trunc(dx/2)); {delay(300);} gotoxy(x1,y1+1); writeln(P^.Data:3); PrintTree(P^.l,x1-trunc(dx),y1+2,trunc(dx/2)); end {$R+} end; {------------------------------------------------} Procedure GTree( Pel;XL,XR,Y,dy:integer; var x2,y2:integer ); var dat:string; // s,xn,yn,kl,kr,d:integer; {$R-} Begin if P=nil then begin exit end else begin kl:=maxwidth(p^.l)+1; kr:=maxwidth(p^.r)+1; d:=(xr-xl) div (kl+kr); s:=xl+d*kl; Str(P^.data,dat); OutTextXY(s,y,dat); circle(s,y,15); if P^.R<>Nil then begin GTree(P^.R,s,xr,y+dy,dy,xn,yn); line(s,y+15,xn,yn-15); end; if P^.L<>Nil then begin GTree(P^.l,xl,s,y+dy,dy,xn,yn ); line(s,y+15,xn,yn-15); end; x2:=s; y2:=y; end; {$R+} End; {----------------------------------------------------------} var lw,rw:integer; begin Clrscr; gd:=Detect; InitGraph(gd, gm, ''); T:=Nil; Randomize; for i:=1 to 30 do begin AddNode(T, Random(30)-15); end; w:=MaxWidth(T); h:=MaxHeight(T); lw:= MaxWidth(t^.L); Rw:= MaxWidth(t^.R); //------------------------ PrintTree(t,40,0,16); gotoxy(0,26); writeln('vusota ',h); write('shirina ',w); SetTextJustify(CenterText, CenterText); GTree(t,10,Getmaxx -10,30,getmaxy div h ,x3,y3 ); setcolor(yellow); Str(h,hg); Str(w,wg); OutTextXY(getmaxx-100,getmaxy-100,'Vusota '); OutTextXY(getmaxx-50,getmaxy-100,hg); OutTextXY(getmaxx-100,getmaxy-110,'Shirina ');OutTextXY(getmaxx-50,getmaxy-110,wg); readkey; CloseGraph; end. !!!ПОВТОРЮСЬ: НЕ ЗАБЫВАЙ ПИСАТЬ КОММЕНТАРИИ!!!
Строки Народ возникла проблемка с задачей. Помогите плиз,кто может. Задача вот в чем: В произвольном тексте,нужно подсчитать количество гласных каждой строки и вывести строку с максимальным количеством гласных+ поиск количество глассных, нужно офрмить как функцию!
Господа, выручайте. С меня требуют программу о распределении ресурсов, методом динамического программирования. В задаче дана функция дохода, кол-во ресурсов и кол-во предприятий. И все это решается методом динамического программирования. Вот ссылка на фаил с подробным описание темы по которой нужно делать. Вот файл с пояснением. Спасибо всем заранее. Жду помощи. P.S. C++, C#, Delphi...
~NeiTRoN~ PHP: #include <iostream> #include <string> #include <sstream> using namespace std; string vowels = "aeiou"; int countvowels(const string& s) { int res = 0; for(int i = 0; i < s.length(); i++) for(int j = 0; j < vowels.length(); j++) if (s[i] == vowels[j]) res++; return res; } int main() { string a; cin >> a; cout << a << "\n"; cout << countvowels(a); cin.get(); return 0; }
нужна помощь в Delphi как сделать так, чтобы при выделении города он показывался в статус баре (1 окно), после выделения улицы, Город не исчезал из 1 окна, а улица показывалась во 2-м окне и т.д. скрин: http://www.programmersforum.ru/attachment.php?attachmentid=6885&d=1227728827
Спс=) Но мне немного другое нужно. Мне нужно не просто определить количество гласных в непрерывной строке, а в строке типа "Слово слово слово,слово"=(
