Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
devlor13
25 / 25 / 32
Регистрация: 24.10.2013
Сообщений: 154
1

Типизированные файлы

10.12.2013, 19:53. Просмотров 210. Ответов 0
Метки нет (Все метки)

Дана матрица 5х5, которая считывается с файла. Найти максимальный элемент в 3-ей строке и определить, в каком столбике он находится. Вывести этот столбик в файл по спаданию элементов.
Данные вводить такие, что-бы в 3-ей строке не было 2 максимальных элемента (равные).
Задача сделать типизированными файлами.

Подправьте пожалуйста)
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
var f1, f2 : file of integer;
    a : array[1..5, 1..5] of integer;
    b : array[1..5] of integer;
    i, j : byte;
    max, buf : integer;
begin
    assign(f1, 'input2.txt');
    assign(f2, 'output2.txt');
    reset(f1);
    for i:=1 to 5 do
    for j:=1 to 5 do
    read(f1, a[i, j]);
    max:=a[3,1];
    for i:=2 to 5 do begin
    if a[3, i]>max then max:=a[3,i]; j:=i;
    end;
    rewrite(f2);
    for i:=1 to 5 do begin
    b[i]:=a[i, j];
    write(f2, b[i]);
    end;
    for i:=1 to 5 do
    for j:=2 to 5 do
    if b[j]>b[j-1] then begin
    buf:=b[j];
    b[j]:=b[j-1];
    b[j-1]:=buf;
    end;
    for i:=1 to 5 do
    write(f2, b[i]);
    close(f1);
    close(f2);
end.
Добавлено через 21 час 50 минут
Актуально

Добавлено через 1 час 30 минут
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
var f1, f2 : text;
    a : array[1..5, 1..5] of integer;
    b : array[1..5] of integer;
    i, j : byte;
    max, buf : integer;
begin
    assign(f1, 'input2.txt');
    assign(f2, 'output2.txt');
    reset(f1);
    for i:=1 to 5 do begin
    for j:=1 to 5 do begin
    read(f1, a[i, j]);
    write(a[i,j]:4);
    end;
    writeln;
    end;
    close(f1);
    max:=a[3,1];
    for i:=2 to 5 do
    if a[3, i]>max then begin max:=a[3,i]; j:=i;
    end;
    rewrite(f2);
    for i:=1 to 5 do begin
    b[i]:=a[i, j];
    write(f2, b[i]:4);
    end;
    for i:=1 to 5 do
    for j:=2 to 5 do
    if b[j]>b[j-1] then begin
    buf:=b[j];
    b[j]:=b[j-1];
    b[j-1]:=buf;
    end;
    writeln;
    for i:=1 to 5 do
    write(f2, b[i]:4);
    close(f2);
end.
Работает, если f1, f2 : text;
Но мне нужны типизированные файлы

Добавлено через 21 час 51 минуту
Вискакивает ошибка:
Попытка чтения за концом файла (строка 12), если делать типизированным файлом.
Реально это вообще считывать массив с типизированного файла
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.12.2013, 19:53
Ответы с готовыми решениями:

Типизированные файлы
Само задание: Ввести файл F1. В файле кратные трем компоненты увеличить на значение максимума...

Типизированные файлы
К заданию сделать по три программы: 1. Должна вводить данные в файл (если это необходимо). 2....

Типизированные файлы
На диске имеется файл данных STUDENT.DAT. В нем записана информация о студентах в следующем...

Типизированные файлы
Найти произведение чисел из файла, меньших заданного числа b.

Типизированные файлы, record
Есть типизированный файл (с текстовым неинтересно). В файле есть записи. Хочу вывести информацию на...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.12.2013, 19:53

Типизированные файлы (Готовая)
Доброго времени суток! Хочу предоставить экземпляр лабораторной работы по типизированным файлам....

Типизированные и текстовые файлы
Сформировать файл из значений случайных величин: 0.324, 0.524, 0.789, 0.556, 0.761, 0.248, 0.345,...

Типизированные файлы PascalABC
А. Создать файл, содержащий сведения о наличии билетов и рейсах Аэрофлота. Структура записи - номер...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru