Материалы сайта
Это интересно
Вычислительная практика I курс
Смаль Дмитрий, АС-14 Работа№ 6 Тема: « Текстовые файлы» 1. Постановка задачи: Матрица действительных чисел размерностью m x n записана по строкам в текстовый файл (m<20, n<15). Переставить столбцы матрицы таким образом, чтобы 1-ый содержал самый маленький элемент, 2- й самый маленький из оставшихся. Полученную матрицу сохранить в текстовом файле. 2. Схема алгоритма (см. Приложение№1) 3. Тестовые примеры: 1) Исходный файл: myfile.txt, его содержимое: 4 4 7 5 6 7 –6 2 0 8 –5 5 8 5 2 1 5 1 3 8 7 7 9 0 3 5 1 1 6 8 3 3 4 5 7 8 2 –1 4 8 4 1 3 –4 5 2 5 7 9 1 –1 3 6 –1 4 9 1 3 0 –1 2 4 0 2 6 3 –7 1 0 3 4 -6 3 2 1 1 6 3 1 2 4 1 9 8 2 4 1 8 7 –2 –1 6 -7 1 7 1 –5 3 4 4 1 3 Результирующий файл: newfile.txt, его содержимое: 5 7 6 7 5 1 2 8 0 5 3 9 5 8 7 4 2) Исходный файл myfile.txt, его содержимое: 6 6 7 5 6 7 –6 2 8 5 2 1 5 1 9 0 3 5 1 1 4 5 7 8 2 –1 3 –4 5 2 5 7 6 –1 4 9 1 3 Результирующий файл: newfile.txt, его содержимое: -6 5 2 7 6 7 5 5 1 1 2 8 1 0 1 5 3 9 2 5 -1 8 7 4 5 -4 7 2 5 3 1 -1 3 9 4 6 3) Если путь к файлу указан не верно или имя файла указано неверно, то действия с файлом производится не будут. 4) Распечатка текста программы: Program File_1; Uses crt; Var a:array [1..15,1..20] of real; b:array [1..15] of REAL; i,j,tec,k:Word; Min:REAL; f:TEXT; filename:STRING; m,n:BYTE; Begin clrscr; Write('Введите путь к файлу и имя файла: '); Readln(filename); Assign(f,filename); $I- Reset(f); $I+ If IORESULT=0 then begin Readln(f,m,n); If (m<=15) and (n<=20) then begin For i:=1 to m do For j:=1 to n do If jtec then begin For i:=k downto tec+1 do For j:=1 to m do a[j,i]:=a[j,i-1]; For i:=1 to m do a[i,tec]:=b[i]; end; tec:=tec+1; end; Assign(f,'C:\Newfile.txt'); Rewrite(f); For i:=1 to m do For j:=1 to n do If j