|
|
Другие темы раздела | |
Pascal числа исходного массива, кратные 3.
https://www.cyberforum.ru/ pascal/ thread146851.html одномерные массивы:Массив заполнен случайными целыми числами. Получить новый массив, содержащий только числа исходного массива, кратные 3. двумерные массивы:В матрице X(m,m) найти максимальный диагональный элемент и вывести всю строку, в которой он расположен. процедуры:Составить программу-калькулятор. Выполнение операций «+», «-», «*»,«/» оформить в виде отдельных подпрограмм.... |
метод Ньютона Pascal Решение нелинейных уравнений методом Ньютона. Программа должна позволять пользователю: 1) ВВести коэффициенты в формулу y=sin(ax) + cos(bx)+c 2) Ввести начало и конец интервала для поиска корней уравнения, 3) Точность вычисления корней. |
Pascal Развёртывание матрицы NxN в одномерный массив Написать программу развёртывания матрицы размера NxN в одномерный массив, используя змейку, голова которой начинается в одном из угловых элементов (например, (1,1), (1,N),(N,1),(N,N) и заканчивается в противоположном угловом элементе (например, для элемента (1,1) в (N,N)). С возможностью выбора угла начала развёртки. Помогите пожалуйста :cry: https://www.cyberforum.ru/ pascal/ thread146842.html | Pascal Определить для каждого предложения количество букв Помогите сделать пожалуйстя? ^_^ Дано n предложений. Определить для каждого предложения количество букв, не повторяющихся в предложении и относящихся к символам русского алфавита. https://www.cyberforum.ru/ pascal/ thread146840.html |
Pascal Рекурсивная функция нахождения суммы цифр натурального числа Написать рекурсивную функцию нахождения суммы цифр любого натурального числа. |
Pascal Заменить максимальный элемент каждой строки матрицы на противоположный
https://www.cyberforum.ru/ pascal/ thread146805.html Дан двумерный массив размерностью 5 х 6, заполненный случайным образом. - заменить максимальный элемент каждой строки на противоположный. - вставить после столбцов с максимальными элементами столбец из нулей. - удалить среднюю строку. - поменять местами предпоследний и последний столбцы. |
Pascal Файл. Записи.
https://www.cyberforum.ru/ pascal/ thread146803.html 2. Сформировать файл f1, содержащий протокол лыжных гонок: ФИО, время старта, время финиша. Используя эти данные, найти призёров соревнования, занявших 1-е, 2-е и 3-е места. помогите доработать код: program lab10_2; type protocol=record FIO:string; tstart:integer; |
Pascal Кратность Дано 4 числа.Определить сумму тех из них которые кратны 3 Пожалуста помогите!!!!!!!!!!! Добавлено через 40 минут ну кто нибудь помогите!!! |
Pascal инересный вопрос-программа на паскале Задание:Упорядочить по возрастанию элементы каждой строки атрицы размером nxm. вопрос: почему не выдает вообще ничего,сразу выходит обратно в текст программы,исправте плизз что не так? program pl; uses crt; const n=5;m=5; var a:array of integer; i,j,k,temp:integer; begin https://www.cyberforum.ru/ pascal/ thread146792.html | Pascal Массив поменять строку со столбцом Добрый день, не простая задачка. Нужно найти минимальный и максимальный элемент массива(Ann и поменять соответствующие строку и столбец (минимальный-строка, максимальный-столбец). Заранее благодарен! Добавлено через 11 часов 47 минут Товарищи, ну выручите студента! :) Добавлено через 3 минуты вот нашел нахождение максимального элемента Program zadacha; Uses crt; https://www.cyberforum.ru/ pascal/ thread146790.html |
Строка Pascal Дана строка.Определить,cколько в ней символов ''*'','' '' "," ,",":" я ее решел но что-то не правильно помогите!!! Program Lab_10; Uses CRT; Var S:String; i,k,n:Integer; begin CLRSCR; Writeln(' Введите строку '); |
Pascal Текстовый файл Задание такое: Вывести на экран и в текстовый файл строки данного текстового файла, содержащие одинаковые слова. Если таких строк нет, предусмотрите в программе вывод соответствующего сообщения. В программе используйте подпрограммы. Я вот пробовала делать, но у меня что-то не полуается, может подскажите где ошибка?? Помогите сделать, очень нужно... program txtfil; uses crt; var s: String;... https://www.cyberforum.ru/ pascal/ thread146776.html |
0 / 0 / 0
Регистрация: 13.06.2010
Сообщений: 32
|
|
17.06.2010, 21:06 [ТС] | 0 |
из двумерного массива удалить столбцы, в которых все элементы меньше нуля - Pascal - Ответ 81161617.06.2010, 21:06. Показов 2034. Ответов 16
Метки (Все метки)
Ответ
нужно исправить здесь
procedure del (n:integer;var m:integer;var a:mas); var i, j,k,p: integer; begin for j:=m downto 1 do begin k:=0; for i:=1 to m do if a[i,j]<0 then k:=k+1; if k=n then{если в столбце все отрицательные} begin if j=m then m:=m-1{если столбец последний} else{иначе} begin for i:=1 to n do for p:=1 to m-1 do a[i,p]:=a[i,p+1]; m:=m-1; end; end; end; end; Вернуться к обсуждению: из двумерного массива удалить столбцы, в которых все элементы меньше нуля Pascal
0
|
17.06.2010, 21:06 | |
Готовые ответы и решения:
16
Удалить все столбцы двумерного массива, в которых нет нулевых элементов удалить все столбцы, в которых нет нуля. Удалить из массива столбцы, содержащие элементы, меньше 10 Из массива структур "Авто" удалить все элементы, у которых год выпуска меньше заданного |
17.06.2010, 21:06 | |
17.06.2010, 21:06 | |
Помогаю со студенческими работами здесь
0
Удалить все столбцы матрицы в которых все элементы положительные Удалить столбцы матрицы, в которых все элементы заканчиваются на единицу Удалить все строки и столбцы, на пересечении которых находятся отрицательные элементы Удалить столбцы матрицы, в которых встречаются минимальные элементы массива |