Обработка текстовых файлов на языке Турбо Паскаль
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
одной файл}
End;
Close(Out);
End.
- Дан входной файл In который содержит параметры матрицы A в первой строке а на следующих строках саму матрицу. Параметры n<=25 и m<=25. n- количество строк матрицы, m- количество столбцов. Пример файла In:
3 3
1 2 3
4 5 6
7 8 9
В выходной файл Out следует записать транспонированную матрицу A.
Program Transpor_A;
Var
A:Array[1..25,1..25] of integer;
Temp:Integer; {Переменная для обмена элементов матрицы}
n,m,i,j:byte;
Indata,Out:Text;
Begin
Assign(Indata,indata.txt); {Связываем }
Assign(Out,outdata.txt); { файлы}
Reset(Indata); {Открываем}
Rewrite(Out); {файлы}
Read(In,n,m);
ReadLn(In); {Следующее считывание будет происходить с новой строки}
For i:=1 to n do
Begin
For j:=1 to m do
Read(Indata,a[i,j]); {Считывание данных}
ReadLn(Indata);
End;
For i:=1 to n do
For j:=i+1 to m do
Begin
Temp:=a[i,j];
a[i,j]:=a[j,i];
a[j,i]:=Temp;
End;
For i:=1 to m do
Begin
For j:=1 to n do
Write(Out,a[i,j], );
WriteLn(Out);
End;
Close(Out);
End.
Использованная литература:
- “Turbo Pascal 7.0 . Начальный курс” Фаронов В.В.
- “Turbo Pascal. Программирование на языке высокого уровня” Немнюгин С.А.
- “Лекции по программированию на Паскале” www.pascal.dax.ru
- “Руководство по языку B.Pascal 7 & Objects/LR, Глава 14, Ввод и вывод” www.citforum.ru