TolkienDRR

хаха: Задан произвольный массив (n<100), выберите из него максимальное число. m, i, n: integer; a: array [1..99] of integer; begin write ('n = '); readln(n); if n = 1 then writeln('В массиве одно число и оно не может быть максимальным числом в массиве, ведь оно одно') else ... end.var извини конечно, но чушь пишешь. Добавлено спустя 1 минуту 24 секунды: можно вычислить - вычисляй, какой то нельзя - сообщи об этом. а не ломай все на корю. а у тебя какое то гавнокодерство. Добавлено спустя 2 минуты 28 секунд: нет одинаковых чисел в массиве, при одном проходе максимальное число не может повториться в массиве, посему проверять на неравенство с максимальным смысла нет.

скопируй, вставь и запусти =Р const n=20; var A:array[1..n] of integer; i:word; M,NiO,NiP,VpV:integer; BEGIN {-------------------------------------------------} clrscr; randomize; for i:= 1 to n do begin A[i]:=random(100)-50; write(A[i],' '); end; writeln; readkey; {-------------------------------------------------} M:=A[1]; NiP:=32767; NiO:=-32768; VpV:=-32768; for i:= 1 to n do begin if (i<>1) then if (A[i]>M) then begin VpV:=M; M:=A[i]; end else if (A[i]>VpV) then VpV:=A[i]; //удалил and(A[i]<>M) if (A[i]>0) then if (A[i] if (A[i]<0) then if (A[i]>NiO) then NiO:=A[i]; end; writeln('Vtoroy po velichine:',VpV); writeln('Naimenshiy iz polojitelnih:',NiP); write('Naibolshiy iz otricatelnih:',NiO); readkey; END.uses crt; потому что мой рабочий и правильный (1ый в ветке) во всех случаях. а твои модификации я уже слабо смотрел, т.к. смысла не вижу разбираться в чужом, если с использованием 1 цикла мой верный. с использованием нескольких циклов задача вообще не имеет никакой сложности =) //add таки посмотрел последний твой код без тараканов: voland, если в массиве хотя бы одно положительное число или одно отрицательное число, то у тебя CP = 1 или CO = 1, тогда у тебя проверка if ((CP>1)and(CO>1)) не сработает и вообще скажет, что массив не подходит. хотя массив a: a[1]=-1, a[2]=1 не подойдет по условиям, хотя а) наибольший элемент из отрицательных; -1 б) наименьший элемент из положительных; 1 в) второй по величине элемент. -1 да и в целом, даже если массив: а = [-1,2,3,4,5,6] у тебя вылезет ошибка. да и в целом некорректный код, если нет отрицательных чисел - то должна быть ошибка "нет отрицательных" и при этом решить остальные подпункты. а у тебя алерт вылазит, если хоть по одному условию неверно, да и еще проверка кривая =D

=D это было написано к сведению, а не тебе ))) твоего ника там не было и копираста твоего тоже )) так что не бздеть ) voland, да действительно, максимальное учитывается, но все же лишняя проверка (A<>M) =Р К тому же, что за проверка a <> M, к любому моменту кроме переприсваивания М - a не равно M (это видно из условия). //add ну ты извращенец =D сейчас примерно глянул чего ты делаешь в процедуре - изврат какой то. докучи для читабельности всегда надо передавать параметр. да и вообще в памяти отложилось, что нехорошо изменять значение переменной, которую не передаешь в функции через var add// Даже мой (кажущийся мне длинным код) не так ужасен как твой =D К тому же алерты у тебя странные =Р Мой код рабочий и короткий, учитывает все что можно вытащить из задачи )) так что зачем было столько мучиться да и еще паскаль запускать =Р я так все написал )))

2)В заданном массиве A(N), все элементы которого попарно различны, найдите: а) наибольший элемент из отрицательных; б) наименьший элемент из положительных; в) второй по величине элемент. Максимальную производительность, учитывая всегда произвольный набор элементов [цифЕр] в массиве, даст квиксорт. Любое решение за один проход - заведомо неверно или же будет настолько заполнено иф-ами, что скорости не прибавит. Первое условие if (i<>1) излишнее - в следующем условии оно дублируется if (A>M). К тому же не учтено, что первое число - максимальное. sja := 0; sjb := -1; //здесь -1 дабы отойти от холиваров про 0 положительное или не положительное число. поэтому будем считать 0 - положительным sjc := a[1]; m := a[1]; d := 65535; for i := 1 to n do begin if a[i] < 0 then if sja = 0 then sja := a[i] else if a[i] > sja then sja := a[i]; if a[i] >= 0 then if sjb = -1 then sjb := a[i] else if a[i] < sjb then sjb := a[i]; if a[i] > m then begin sjc := m; m := a[i]; d := 0; end else if (d <> 0) and (a[i] < m) then if d < m - a[i] then d := m - a[i] end; if sja = 0 then writeln ('Отрицательных эл-тов нет в массиве') else writeln ('a - ', sja); if sjb = -1 then writeln ('Положительных эл-тов нет в массиве') else writeln ('b - ', sjb); if m = a[1] then sjc := m - d; if n = 1 then wirteln ('В массиве всего 1 элемент') else writeln ('c - ', sjc); вот такой вот изврат

Ну а на сегодня как там?

За 13 =) Ух какие глазищща =) Даже такая некороткая юбка и то смотрится очень очень =) Найс И 15 очень очень =) Не прочь познакомиться =)

SaS, в личку стучись, поищу вечерком

martinges, все понятно =) чтот не пытался сильно думать, поэтому неправильно воспринял Добавлено спустя 34 секунды: К слову, тот диплом все поддерживал, но там была какая то новинка в подсчете оценки =)

Вова0711, лучший вариант - позвонить и спросить =)

Если не можешь решить проблему с помощью LookUp'а - тоdatasource.dataset - query dbgrid.datasource - datasource

Да не мутная, просто куча кейсов =D Что за одновариантный тест? ))

Tinylya, видимо я невнимательный голосовальщик =D даже не заметил названия конкурса, просто оценивал на жизненную картинку - думаю многие так делают а такая точность сопоставления названия и предъявленных картинок случаем не из-за участия? (простите, допытываюсь постоянно) =(

За лялю №14

Gennadiusisus, пожалуйста =) Есть кнопочка для спасибов)

Тьфу, совсем код не смотрел, когда вопрос задал. Насколько помню не совсем верно использовать цикл по while(!feof(e)), юзай сразу while(fread(&detal, sizeof(struct DETAL), 1, e))

Gennadiusisus, многабукаф, выдели где цикл записи в файл?

Будем организовывать как квест =D Задание 1: Читаем статью Wiki:веб-программирование, а также избирательно в ветке: Wiki:категория - веб-программирование. Подтягиваем общую матчасть, определяемся с тем, что хоЧЕМ изучить (языки, системы, на каком уровне). Как выберешь - будет второй квест =Р

Тебе написать ее надо или чужую заюзать можно? Писал диплом на заказ на 4-ом курсе, кажись завалялся где-то, но там какая то хитропопская система оценок была =)

Dik, =D thx, теперь все понятно ))) Уф, постараюсь наконец придти, вроде маленько с делами разгреб )

Darimaa Romanovna, по сути вопроса - вроде не должна она вообще никогда появляться поэтому и удивлен формулировке, не понимаю совсем к чему ее привязать можно =(

Darimaa Romanovna, романтика ))) В этой теме, выложил копипаст один с буржуйского сайта, не смог понять перевода предложения в скобках =( graded out какое то устоявшееся выражение?

hook, всегда пожалуйста =)

hook, мне кажется тебе проще выложить проект, у тебя однозначно что-то не так в коде. Или хотя бы основные части кода с проекта.

Используйте более симпатичные шаблоны, думаю с ними вообще проблем не должно быть. Я хз что за шарашка SDEP, но мне кажется проще поставить какую-нибудь мамбу и накатить шаблон посимпатяфнее, чем заказывать такие сайты у какой то фирмочки. Ну да и веткой опять не туда, во взаимопомощь или беседку дорога

hook, у тебя вызов форм какой-то странный. Корректно работать с form.hide/form.show