File89. Даны два файла вещественных чисел с именами $$S_A$$ и $$S_B$$, содержащие ненулевые части верхнетреугольных матриц $$A$$ и $$B$$ (по строкам). Создать новый файл с именем $$S_C$$, содержащий ненулевую часть произведения $$A*B$$ (по строкам). Если матрицы $$A$$ и $$B$$ нельзя перемножать, то оставить файл $$S_C$$ пустым.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 |
program File89; var F: file of Real; lenA,lenB,i,j,k:integer; RezCell:Real; SA,SB,SC:String; Function CreateFullFile(NameCut,NameFull:String):integer; var F_in,F_out: file of Real; i,j,len:integer; Cell:Real; begin Assign(F_in,NameCut); Assign(F_out,NameFull); Reset(F_in); len:=0; While (not eof(F_in)) do begin Read(F_in,Cell); inc(len); end; Close(F_in); i:=1; while (len>0) do begin len:=len-i; inc(i); end; len:=i-1; Rewrite(F_out); Reset(F_in); I:=0; J:=0; While not eof(F_in) do begin if j=len then begin inc(i); Cell:=0; for j:=1 to i do Write(F_out,Cell); end else inc(j); Read(F_in,Cell); Write(F_out,Cell); end; Close(F_in); Close(F_out); CreateFullFile:=len; end; Function GetCell(Name:String;len,i,j:integer):Real; var F: file of Real; i2:integer; Cell:Real; begin Assign(F,Name); Reset(F); for i2:=1 to len*(i-1)+j do Read(F,Cell); Close(F); GetCell:=Cell; end; begin Write('SA: '); Readln(SA); Write('SB: '); Readln(SB); Write('SC: '); Readln(SC); LenA:=CreateFullFile(SA,'~'+SA); LenB:=CreateFullFile(SB,'~'+SB); Assign(F,SC); ReWrite(F); if lenA = LenB then for i:=1 to lenA do for j:=1 to lenB do begin RezCell:=0; for k:=1 to LenA do RezCell:=RezCell+GetCell('~'+SA,LenA,I,K)+GetCell('~'+SB,LenB,K,J); Write(F,RezCell); end; Close(F); Assign(F,'~'+SA); Erase(F); Assign(F,'~'+SB); Erase(F); end. |
Другие задачи из раздела File можно посмотреть здесь.
Комментарии: