Консультация № 136667
13.05.2008, 17:35
0.00 руб.
0 1 1
Уважаемые эксперты!помогите пожалуйста решить следующее:
Выполнить обработку элементов прямоугольной матрицы А, имеющей N строк и M столбцов. Исключить из матрицы строку с номером L. Сомкнуть строки матрицы.Желательно решить на Free Pascal.
Спасибо!))

Обсуждение

Неизвестный
13.05.2008, 18:30
общий
это ответ
Здравствуйте, Igor lukashov!

В приложении - решение Вашей задачки. С константами <b>N</b> и <b>M</b> можете поразвлекаться, меняя размерность матрицы. Программа написана и отлажена в среде <b>Free Pascal</b>, но без проблем выполнится и на <b>Turbo Pascal</b>.

Приложение:
Program Pr136667; Uses CRT; Const N = 10; M = 16; Var i, j, L: Integer; Matr : Array[1..N, 1..M] of Integer;Begin ClrScr; Randomize; WriteLn(‘Исходная случайно заполненная матрица:‘); for i := 1 to N do begin for j := 1 to M do begin { заполнение матрицы случайными числами от 0 до 99 } Matr[i, j] := Random(100); Write(Matr[i, j]:4); end; WriteLn; end; WriteLn; Repeat Write(‘Введите номер строки от 1 до ‘, N, ‘: ‘); ReadLn(L); Until (1 <= L) and (L <= N); { Удаление строки из массива } for i := L to N - 1 do for j := 1 to M do Matr[i, j] := Matr[i + 1, j]; for i := 1 to N - 1 do begin for j := 1 to M do Write(Matr[i, j]:4); Writeln; end; WriteLn; Write(‘Нажмите <Enter> для продолжения...‘); ReadLn;End.
Форма ответа