Организовать целочисленную матрицу M (5х5) и записать в типизированный файл F1

04.06.2013, 08:51. **Показов** 1568. **Ответов** 2

Author24 — интернет-сервис помощи студентам

Ув. Форумчане, помогите решить задачу.
Организовать целочисленную матрицу M (5x5) и записать в типизированный файл F1. Определить и уменьшить положительные элементы матрицы на единицу, а отрицательные элементы увеличить на единицу, результат записать в типизированный файл F2. Вывести на экран содержимое исходного и результирующего файлов (вывод на экран матриц осуществляется в общепринятом виде)

Kodzaev · 04.06.2013, 11:10

Pascal
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
Type
  matr = Array [1..5,1..5] of Integer;
Var
  f1,f2: File of matr;
  m: matr;
  i,j: Byte;
BEGIN
Randomize;
Assign(f1,'f1.dat');
Rewrite(f1);
For i:=1 to 5 do
For j:=1 to 5 do
m[i,j]:=Random(101)-50;
Write(f1,m);  {записали матрицу в файл}
Assign(f2,'f2.dat');
Rewrite(f2); {создаем второй файл}
Reset(f1);  {открываем первый файл для чтения, чтобы вывести матрицу}
Read(f1,m);
Writeln('Файл F1:');
For i:=1 to 5 do
begin
  For j:=1 to 5 do
  begin
    Write(m[i,j]:4);
    If m[i,j]>0 Then Dec(m[i,j]);
    If m[i,j]<0 Then Inc(m[i,j]);
  end;
  Writeln
end;
Write(f2,m);
Writeln('Файл F2:');
For i:=1 to 5 do
begin
  For j:=1 to 5 do
  Write(m[i,j]:4);
  Writeln
end;
Close(f1);
Close(f2);
Readln
END.

04.06.2013, 15:38

Огромное спасибо!

Новые блоги и статьи Все статьи Все блоги /
Исключения в Java: советы, примеры кода и многое другое Javaican 18.05.2025 Исключения — это объекты, созданные когда программа сталкивается с непредвиденной ситуацией: файл не найден, сетевое соединение разорвано, деление на ноль. . . Список можно продолжать до бесконечности. . . .	Как сделать SSO (Single Sign-On) в C# приложении stackOverflow 18.05.2025 SSO — это механизм, позволяющий пользователю пройти аутентификацию один раз и получить доступ к нескольким приложениям без повторного ввода учетных данных. Вы наверняка сталкивались с ним, когда. . .	Kubernetes с Apache Flink для обработки данных в реальном времени Mr. Docker 17.05.2025 Kubernetes — это целая философия управления распределёнными приложениями. В отличие от "примитивных" решений вроде Docker Swarm, K8s (как его ласково называют в тусовке DevOps-инженеров) предлагает. . .	Использование декораторов в Python py-thonny 17.05.2025 Если вы когда-нибудь задумывались о том, как красиво расширить функциональность кода без лишней возни и дублирования, декораторы в Python — та самая волшебная палочка, которую вы искали. По сути, это. . .	Реализация многопоточных сетевых серверов на Python py-thonny 16.05.2025 Когда сталкиваешься с необходимостью писать высоконагруженные сетевые сервисы, выбор технологии имеет критическое значение. Python, со своей элегантностью и высоким уровнем абстракции, может. . .
C# и IoT: разработка Edge приложений с .NET и Azure IoT UnmanagedCoder 16.05.2025 Мир меняется прямо на наших глазах, и интернет вещей (IoT) — один из главных катализаторов этих перемен. Если всего десять лет назад концепция "умных" устройств вызывала скептические улыбки, то. . .	Гибридные квантово-классические вычисления: Примеры оптимизации EggHead 16.05.2025 Гибридные квантово-классические вычисления — это настоящий прорыв в подходах к решению сложнейших вычислительных задач. Представьте себе союз двух разных миров: классические компьютеры, с их. . .	Использование вебсокетов в приложениях Java с Netty Javaican 16.05.2025 HTTP, краеугольный камень интернета, изначально был спроектирован для передачи гипертекста с минимальной интерактивностью. Его главный недостаток в контексте современных приложений — это. . .	Реализация операторов Kubernetes Mr. Docker 16.05.2025 Концепция операторов Kubernetes зародилась в недрах компании CoreOS (позже купленной Red Hat), когда команда инженеров искала способ автоматизировать управление распределёнными базами данных в. . .	Отражение в C# и динамическое управление типами stackOverflow 16.05.2025 Reflection API в . NET — это набор классов и интерфейсов в пространстве имён System. Reflection, который позволяет исследовать и манипулировать типами, методами, свойствами и другими элементами. . .

Grinar

	Организовать целочисленную матрицу M (5х5) и записать в типизированный файл F1 04.06.2013, 08:51. Показов 1568. Ответов 2 Метки нет (Все метки) Ув. Форумчане, помогите решить задачу. Организовать целочисленную матрицу M (5x5) и записать в типизированный файл F1. Определить и уменьшить положительные элементы матрицы на единицу, а отрицательные элементы увеличить на единицу, результат записать в типизированный файл F2. Вывести на экран содержимое исходного и результирующего файлов (вывод на экран матриц осуществляется в общепринятом виде)

Опции темы

Организовать целочисленную матрицу M (5х5) и записать в типизированный файл F1

Решение