| Типы программирования, программирование, языки программирования, книги программирование | На сайте представлена информация про программирование в Интернете и работу |
|
Этюды программистов, Решение Параметры передовае...., как передать параметры в программу? Как избежать мирцания?, Panel ? найти сокровище Задания по Паскалю!!HELP, Спасите Люди добрые, помогите, кто, чем может, помощь бедному студенту! задача, пилообразная последовательность Как перевести приложение на asm, Как перевести приложение на asm Задача по работе с файлом, нужно отредактировать Срочно помогите решить задачу!, Ну очень срочно 5 задач Паскаль проверка на наличие конкретных символов, задача (программа) на языке Pascal Ввод чисел Расположение и размеры окна, Запуск чужой программы Нахождение критического пути на орграфе, Модифицированный метод Форда Метод Якоби, Решение СЛАУ ВЫзов Фукнкции, помогите высзвать функцию TPyacc, нужна инфа Как Вы относитесь к курящим девушкам? Задача по процедурам и функциям Задача на треугольники., Срочно!!! расшифрование, расшифровать сообщение Афинные преобразование в плоскости, Паскаль Квадратное уравнение 2 Звук, Как переделать песню Аналоги процедур Делимость на 3 Числа 1 и 0 време компиляции проги в паскале, вопрос Паскаль не запускается, в полноэкранном режиме Интересная задача., Точнее её решение. Pascal, полезные ссылки Хэлп! Объединить отрезки!, Горит курсовая, помогите кто чем! Нужна ошибка String, где он? Как Вы относитесь к курящим девушкам? проблемы с запуском паскаля, не могу запустить! Помогите пожалуйста Задача на массив!!! Функция, Написать программу, используя функцию library, экспорт DLL в делфи x в степени n?функция? Как в Паскале скрыть курсор Очень простая задача, :) Создание контекстного меню, Вопрос TurboPascal Listbox and Textfile, kak infu skinut' iz Listbox v Textfile?? LPT порт, вопрос Помогите, пожалуйста, решить задачу! спасайте!!! решите задачу, задача с окончаниями Возведение в степень Присваивание чисел массиву, Проблема в синтаксисе... Площадь, найти площадь фигуры Модули, Вопрос Программирование: Pascal, Вопрос Помогите решить задачу, использование табуляции Решить программу, Во таткую Delphi и Adobe, В Adobe Page Maker разработчики не сдела Проверка своих сил, Задача Турбо Паскаль глючит под ХП Помогите аписать программу на паскале файлы помогите с задачей, задачка про маршруты Как Вы относитесь к курящим девушкам? Кубический корень Как узнать директорию WIndows ?, Как узнать директорию WIndows в Паскале КВадратное уравнение, обычная программа с дискриминантом Вопрос по командной строке Помогите!!! Вопрос ламера |
Платные хостинги Раскрутка сайта Книги по программированию Решить программу, Во таткую
- упорядочить по убыванию элементы тех строк матрицы, в которых сумма положительных элементов больше заданного числа.матрица обычная не квадратичная буду признательна - Код procedure Sort(var m: TMatrix; i:integer);var j,k:integer; b:TEl;begin for k:=Low(m) to High(m) do for j:=Low(m) to High(m)-1 do if m[i,j] < m[i,j+1] then begin b:=m[i,j]; m[i,j]:=m[i,j+1]; m[i,j+1]:=b; end;end;function IsSum(m: TMatrix, i:integer; T:real):boolean;var j:integer; sum:TEl;begin sum:=0; for j:=Low(m) to High(m) do if m[i,j] > 0 then inc(sum, m[i,j]); IsSum:=sum > T;end;procedure Matrix;var T:real; M: TMatrix; i,j:integer;begin readln(T); for i:=Low(m) to High(m) do for j:=Low(m) to High(m) do m[i,j]:=Random(100) - 50; for i:=Low(m) to High(m) do if IsSum(m, i, T) then Sort(m,i);end;highlightSyntax('delphihMDRkM','delphi');Вот примерно в этом духе... Добавлено @ 16:23 забыл...Код const N = 100; M = 50;type TEl = integer; TMatrix = array [1..N, 1..M] of TEl;highlightSyntax('delphimRjYjN','delphi'); - И еще такой вариант:Код const x=7; {количество столбцов матрицы} y=8; {количество строк матрицы}type matr=array[1..x,1..y] of integer; {тип создан для того, чтобы можно было передать матрицу как параметр в процедуру sort}var i,j:integer; mas:matr; {сама матрица} sum:integer; {сумма положительных элементов} value:integer; {заданное число}procedure Sort(var m:matr; i:integer);var j,n:integer; tmp:integer; {временная переменная}beginfor n:=1 to y do for j:=1 to x-1 do if m[i,j]<m[i,j+1] then begin {меняем местами элементы массива} tmp:=m[i,j]; m[i,j]:=m[i,j+1]; m[i,j+1]:=tmp; end;end;begin randomize; write('Введите число: '); readln(value); {заполняем матрицу случайными числами} for i:=1 to y do begin for j:=1 to x do begin mas[i,j]:=random(30)-10; write(mas[i,j]:5); end; writeln; end; {производим подсчет и, если нужно, то сортируем} sum:=0; for i:=1 to y do begin for j:=1 to x do begin if mas[i,j]>0 then sum:=sum+mas[i,j]; if sum>value then sort(mas,i); end; end; {выводим отсортированную матрицу на экран} writeln('Результат: '); for i:=1 to y do begin for j:=1 to x do write(mas[i,j]:5); writeln; end; readln;end.highlightSyntax('delphiMWMwNW','delphi');Так подойдет? - Pakshin A. S., а зачем ты из типа integer, делаеш тип TEL, ведь int. и так простой тип??? - ZeroА если тебе потом захочется поменять Integer на Double, ты по всей программе будешь ходить и искать, где нужно поменять, а где нет? Или проще поменять на:Код typeTEl = double;highlightSyntax('delphiyOTJmZ','delphi'); Это сообщение отредактировал volvo877 - 20.11.2004, 14:23 - Вопросов нет...Убедил.  |