![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Решение. name = 'd:\Bp\Prakt\P23\arr20a.dat';
Program Problem4; uses WinCrt; const n = 7; name = 'd: \Bp\Prakt\P23\arr20a.dat'; name1 = 'd: \Bp\Prakt\P23\matr20wa.dat'; type t = array [1..n] of integer; s = array [1..n] of longint; m = array [1..n] of s; v = file of t; vv = file of m; var x: t; p: s; a: m; f: v; g: vv; n1, i, j, d, k: integer; begin assign(f, name); assign(g, name1); rewrite(f); write('Введите число массивов чисел '); readln(n1); randomize; for i: = 1 to n1 do begin for j: = 1 to n do x[j]: = random(21) - 10; write(f, x) end; reset(f); writeln('Заданные массивы целых чисел'); while not eof(f) do begin read(f, x); for i: = 1 to n do write(x[i]: 3, ' '); writeln end; writeln; reset(f); {$i+} if IoResult < > 0 then writeln('Такого файла нет'); rewrite(g); for k: = 1 to n1 do begin read(f, x); for d: = 1 to n do p[d]: = 1; for j: = 1 to n do for i: = 1 to n do begin p[i]: = x[i]*p[i]; a[j, i]: = p[i] end; write(g, a) end; writeln('Полученные матрицы из заданного массива'); reset(g); while not eof(g) do begin read(g, a); for i: = 1 to n do begin for j: = 1 to n do write(a[i, j]: 10, ' '); writeln end; writeln end; close(f); close(g) end. Задача 5. Дан файл, компонентами которого является массив из
|