![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() |
Mapина |
![]() ![]()
Сообщение
#1
|
Гость ![]() |
В итоговом файле получаю не m-ный столбец. Пожалуйста, исправте!
(Есть файл с матрицей, но загрузить его, к сожелению, не могу.) Пусть матрица А целых чисел размером10х10(а не 100х100 как в решении задачи) записана по строкам в файле. Перенесите в новый файл m ный столбец матрицы(m задаётся вводом). Код program Project2; {$APPTYPE CONSOLE} uses SysUtils, windows; type Tmatr = array[1..10, 1..10] of integer; var A : Tmatr; procedure Input(var A : Tmatr); var i, j : integer; filename : string; f : text; begin Write('Введи имя исходного файла : '); readln(filename); AssignFile(f, filename); reset(f); for i := 1 to 10 do begin for j := 1 to 10 do read(f, a[i,j]); readln(f); end; closefile(f); end; procedure Output(A : Tmatr); var i, m : integer; filename : string; f : text; begin write('Столбец для копирования : '); readln(m); Write('Введи имя результирующего файла : '); readln(filename); AssignFile(f, filename); rewrite(f); for i := 1 to 10 do writeln(f, a[i,m]); closefile(f); end; begin SetConsoleCp(1251); SetConsoleOutputCP(1251); Input(a); Output(a); readln; end. Сообщение отредактировано: Mapина - 28.06.2007 13:16 |
![]() ![]() |
Mapина |
![]()
Сообщение
#2
|
Гость ![]() |
я имелла в виду:
как будет выглядить процедура Вывода, если необходимо чтоб выписывался m-ый столбец так, допустим доходило до A[i,m] и переходило на i:=i+1 с задействованием вот этого, и наверное ещё одной новой переменной, допустим t
приблизительно что-то такое должно быть! Добавлено через 17 мин. то есть мне было сказано так, что мол чтобы проходило не всю матрицу, а так допустим m=2, шло A[1,1], А[1,2] и так как m=2, то не смотрело A[1,3], а переходило на A[2,1].... |
![]() ![]() |
![]() |
Текстовая версия | 11.07.2025 12:10 |