Pascal (матрица, string...)

@Hrrom · Регистрация: 19.07.2009

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста сделать следующие задачи:

1). Дана матрица размера M Ч N и целоечислоK (1 ≤K ≤M). Удалить
строку матрицы с номером K.
2). Дана матрица размера M Ч N. Упорядочить ее строки так, чтобы их
первые элементы образовывали возрастающую последовательность.
3). Дана строка-предложение нарусскомязыке. Вывести самоекороткое
слово в предложении. Если таких слов несколько, то вывести последнее
из них. Словом считать набор символов, не содержащий пробелов, знаков
препинания и ограниченный пробелами, знаками препинания или началом/концом строки.
4). Даны два файла вещественных чисел с именами S
A и S
B, содержащие
элементы квадратных матриц A и B (по строкам). Создать новый файл с
именемS
C, содержащий элементы произведения A·B. Если матрицы A и B
нельзя перемножать, то оставить файл S
C пустым.
5). Дан текстовый файл, каждая строка которого содержит изображения
нескольких чисел, разделенные пробелами (вещественные числа имеют
ненулевую дробную часть). Создать файл вещественных чисел, содержа-
щий (в том же порядке) все числа из исходного файла, имеющие ненуле-
вую дробную часть.

Добавлено через 31 минуту 51 секунду
помогите пожалуйста бедной девушке, очень срочно нужно =(

@mamedovvms · 20.07.2009, 12:21

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

Pascal
1
2
3
4
5
6
7
8
9
i:=1;
n=20;
while (i<=n)and(a[i]>0) then 
 begin
  if a[i]<0 then max:=a[i]; 
  i:=i+1;
 end;
for j:=i to n do
 if (a[j]<0)and(a[i]>max) then max:=a[j];

Добавлено через 4 минуты 14 секунд
никакой ошибки нет в том что присваивать самое минимальное или самое максимальное число, но только надо будет наверное делать отдельный указатель на то что найден хоть один элемент в искомом "объекте" потому как может получиться что такого элемента который удовлетворяет условию просто нет

@Puporev · 20.07.2009, 13:05

в искомом "объекте" потому как может получиться что такого элемента который удовлетворяет условию просто нет

В массиве чисел типа integer не может не быть чисел>-maxint-1 или меньше maxint, только если массив пустой.

@mamedovvms · 20.07.2009, 13:09

ну а если ты ищешь максимальный среди отрицательных то может получиться так что отрицательных просто не будет по этому у тебя max=minint будет вот про что я говорю

@Puporev · 20.07.2009, 13:10

Это верно, я просто забыл с чего начали. Здесь нужна переменная типа boolean или просто фиксатор типа byte.

Новые блоги и статьи Все статьи Все блоги /
Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@Hrrom 0 / 0 / 0 Регистрация: 19.07.2009 Сообщений: 7

	Pascal (матрица, string...) 20.07.2009, 00:10. Показов 4906. Ответов 23 Метки нет (Все метки) Помогите пожалуйста сделать следующие задачи: 1). Дана матрица размера M Ч N и целоечислоK (1 ≤K ≤M). Удалить строку матрицы с номером K. 2). Дана матрица размера M Ч N. Упорядочить ее строки так, чтобы их первые элементы образовывали возрастающую последовательность. 3). Дана строка-предложение нарусскомязыке. Вывести самоекороткое слово в предложении. Если таких слов несколько, то вывести последнее из них. Словом считать набор символов, не содержащий пробелов, знаков препинания и ограниченный пробелами, знаками препинания или началом/концом строки. 4). Даны два файла вещественных чисел с именами S A и S B, содержащие элементы квадратных матриц A и B (по строкам). Создать новый файл с именемS C, содержащий элементы произведения A·B. Если матрицы A и B нельзя перемножать, то оставить файл S C пустым. 5). Дан текстовый файл, каждая строка которого содержит изображения нескольких чисел, разделенные пробелами (вещественные числа имеют ненулевую дробную часть). Создать файл вещественных чисел, содержа- щий (в том же порядке) все числа из исходного файла, имеющие ненуле- вую дробную часть. Добавлено через 31 минуту 51 секунду помогите пожалуйста бедной девушке, очень срочно нужно =( 0

@mamedovvms 2923 / 844 / 324 Регистрация: 30.04.2009 Сообщений: 2,633
	20.07.2009, 13:09
	ну а если ты ищешь максимальный среди отрицательных то может получиться так что отрицательных просто не будет по этому у тебя max=minint будет вот про что я говорю 0

@Puporev Почетный модератор 64320 / 47616 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	20.07.2009, 13:10
	Это верно, я просто забыл с чего начали. Здесь нужна переменная типа boolean или просто фиксатор типа byte. 0