martinges

barbi Поздравляю с 18летием

эээ .... процедуры и функции пишутся в разделе Var для переменных.... у тебя процедура в разделе типов....

procedure sort(matr:matrica;n,k:integer); //процедура сортировки, на выходе массив vector var i,j,kol,m:integer; begin for i:=1 to n do //идем по строкам begin kol:=0; //обнуляем количество отрицательных элементов по каждой строке for j:=1 to k do //пробегаемся по столбцам if matr[i,j]<0 then inc(kol); //считаем количество отрицательных элементов данной строки vector[i,1]:=kol;vector[i,2]:=i; //заносим в массив vector в первую часть количество отрицательных элементов, во вторую порядковый номер строки end; for i:=1 to n-1 do //собственно метод сортировки for j:=i+1 to n do //собственно метод сортировки if vector[i,1] begin kol:=vector[i,1]; m:=vector[i,2]; vector[i,1]:=vector[j,1]; vector[i,2]:=vector[j,2]; vector[j,1]:=kol; vector[j,2]:=m; end; end; пример вход матрица: 1 2 3 -5 -2 -2 -2 -2 0 -5 3 -2 1 1 1 1 на выходе из процедуры имеем массив vector: 4 2 1 0 ----->количество отрицательных элементов(Массив vector уже упорядочен) 2 3 1 4 ----->порядковые номера строк. в самой программе: for i:=1 to n do //бегаем по строкам begin for j:=1 to k do //бегаем по столбцам write(a[vector[i,2],j],' '); // порядковый номер строки забираешь из массива вектор, столбец прежний writeln; end; в итоге получишь матрицу -2 -2 -2 -2 //количество отрицательных 4, порядковый номер строки в исходной матрице 2 0 -5 3 -2 //количество отрицательных 2, порядковый номер строки в исходной матрице 3 1 2 3 -5 //количество отрицательных 1, порядковый номер строки в исходной матрице 1 1 1 1 1 //количество отрицательных 0, порядковый номер строки в исходной матрице 4 Примечание: создаешь тип matrica заведомо больший по размерности чем будет предложено в задаче( в твоей задаче помойму хватит и 6 на 6 ) Матрица Vector суть глобальный массив (тебе хвати размерности 6 на 2 ) n и k соответсвенно размерность входной матрицы как я понимаю, суть задачи создание универсальной процедуры/функции удовлетворяющей поставленной задачи. Помойму оно и есть собственно

всё время забываю писать коментарии себе))) поэтому частенько изобретаю велосипед раз за разом)

ИМИ заканчивал

Контрастный душ+ Перерезать витую пару(все равно тебе за обжимкой лень будет ходить, а после экзаменов снова обожмешь никуда не денешься )+ Потом начинать думать, что слизняком, валяющимся на диване, быть хреново и начинаешь с ожесточением грызть гранит науки. P.S.Самое ленивое животное это человек © помойму Харлампьев P.P.S. Если не смиришься с мыслью, что ты этого не можешь(я думаю гордость не позволит), то через не могу все равно сделаешь.

Глобальный массив вектор vector хранит итоговвый упорядоченный вектор. procedure sort(matr:matrica;n,k:integer); var i,j,kol,m:integer; begin for i:=1 to n do begin kol:=0; for j:=1 to k do if matr[i,j]<0 then inc(kol); vector[i,1]:=kol;vector[i,2]:=i; end; for i:=1 to n-1 do for j:=i+1 to n do if vector[i,1] begin kol:=vector[i,1]; m:=vector[i,2]; vector[i,1]:=vector[j,1]; vector[i,2]:=vector[j,2]; vector[j,1]:=kol; vector[j,2]:=m; end; end; в самой программе : for i:=1 to n do begin for j:=1 to k do write(a[vector[i,2],j],' '); writeln; end; P.S. не проверялЮ но что то типо этого)

начал получать второе высшее будучи студентом 4 курса... я думал я крутой но когда нужно сдать 5 экзаменов на очке + 7 экзаменов на заочке, то это дурдом в итоге 2 высших.....но не пожелаю и врагу так метаться про аспирантуру: ИМХО идти туда только, если ты заражен идеей быть в науке понастоящему) ибо в очной аспирантуре денех нет (правда там еще есть стипендия для аспирантов+ повышенные стипендии) Моё мнение в аспирантуре весело занимаешься творчеством в науке в какой то мере P.S. также имеется дистанционное образование, например в том же БГУ

readln (t); невозможно считать тип. и цикл сортировки идет не for i:=1 to n-1 do for j:=1 to n-i do а for i:=1 to n-1 do for j:=i+1 to n do и условие не if mas[j].name>mas[j+1].name then а if mas.name>mas[j].name then

1 создай процедурку. на вход размерность матрицы на выход вектор с порядковыми номерами строк по убыванию. В основной проге тупо вывод строк по данному вектору. 2 а)если номер телефона строка то s[length(s)]=0; s[length(s)-1]=1; , если число то вычислять остаток от целочисленного деления до тех пор пока не останется 2 разряда. далее сравнение оставшегося числа с 10. б) метод сортировки фамилия1>фамилия2 при выполнении условия замена обеих записей местами. 3 проход по файлу----->n->кол-во студентов. n5->кол-во пятерок. n2->кол-во 2. 100*n5/n=%отличников. 100*n2/n=%двоечников. 4 составляешь множество согласных звонких и создаешь пустое множество. Выделяешь слово далее if s in a then b:=b+[s]; вроде бы так. Как только дошел до конца слова смотришь равны ли множества а и b. Если да то все звонкие согласные буквы входят в данное слово.

а в чем именно помочь? с функцией ввода? с процедурой сортировки? если просто тупо написать прогу, то это неинтересно

формально нормированный, но приходится иногда и оставаться после работы nefi ) преподавательская деятельность слегка разлагает потом в основную работу "врубиться" сложно

да я сам узнал за 30 минут до футбола)

сегодня играли в футбол)))) гыыыыы дождь в глаза зараза все время бил)

метод пузырька с фильтром на начало буквы. Правило: фамилия с буквой о всегда меньше чем другие записи без о, одна из двух фамилий с буквой о меньше, если цифровой номер меньше. Тупо тот же метод пузырька только условие исходя из этих правил. Искомые записи отсортируются по возрастанию в начале или в конце списка.

Когда я учился на прикладной в своё время он был обязателен для изучения там насколько помню стандартный пакет инструментов для работы с ОДУ немного Тигров, матричный анализ, в частных производных.... ангем, линал и всё это еще и визуализировано. P.S. В свое время нам давали диск с этими мат пакетами а теперь как то недосуг решать их через эти пакеты

В матлабе, в математике, в дерайве еще помойму

уснул за компом. Блин... уснул на работе за компом. Уснул на работе за компом по среди зала с 20 людьми сидящими за другими компами. Ибо нервный день Хотя начался прикольно: Видеоконференцсвязь с Аляской.... жду вспоминаю фразы по аглицки.... Усе конект---> выплывает радостное лицо(инженер по видео) и по русски глаголит типа как он рад видеть людей, которые говорят по русски но это фигня чуть позже (началась конференция) за круглым столом опять сидел мужик из России(живет там зараза) и ухмылялся P.S. Куда ни ткни всюду наши сидят

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

пока свободное время буду прикалываться Apocalipsis раздел переменных а,b: массив[1..const]действительных чисел; count,i:целое число; начало блока кода цикл с параметром i занести данные в массив a; конец цикла с параметром; цикл с параметром i занести 0 в массив b; конец цикла с параметром; цикл с параметром i до const-1 элемента массива если (i элемент а)*(i+1 элемент а)<0 тогда начало I+1 элемент массива b =1; увеличиваем count на 1; конец цикла с параметром; цикл с параметром i если I элемент массива b не равен 0 то вывести на экран: ‘мужик на ‘,I,’ месте знак поменялсо караул ’; конец цикла с параметром; вывести на экран: ‘капитан, за время вашего отсутствия выявлено ‘,count,’ чередований знаков ’; конец блока кода.

Аюр. он же Ges, он же martin

создай потомка Tthread и переопредели метод execute как тебе будет угодно.

"y" у тебя целое и ты пытаешься присвоить вещественное exp(x)

new()- выделение памяти в куче dispose()-освобождение памяти структура однонаправленной очереди, если не изменяет память: din=^zap; zap=record x:integer;//контент next:din;//ссылка на следующий элемент end; APEXER эээ дык вроде есть же функция exp(x) значение функции вещественное, входящая переменная вещественная..... зачем тебе e в степени x

насколько я понял нужно тупо создать процедурку формирования строки в матрице по одноноправленному списку, перекидываем ссылку на возрастающий первый элемент следующей строки. пример: 1 2 2 3 || 1 2 2 3 4 5 6 7 || 2 3 4 6 2 3 4 6 || 4 5 6 7