Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
0 / 0 / 0
Регистрация: 25.12.2013
Сообщений: 27
1

Дан текстовый файл содержащий матрицу чисел ращмером m*n. Прочитать данные из файла

18.10.2014, 10:17. Просмотров 1820. Ответов 2
Метки нет (Все метки)


дан текстовый файл содержащий матрицу чисел ращмером m*n
X x x x
X x x x
X x x x
X x x x
Прочитать данные из файла
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.10.2014, 10:17
Ответы с готовыми решениями:

Дан текстовый файл f. Создать файл g, содержащий текст файла f, в котором дважды напечатана каждая цифра
помогите пожалуйста парни

Дан файл вещественных чисел. Создать файл целых чисел, содержащий номера всех локальных экстремумов исходного файла в порядке убывания
File22. Дан файл вещественных чисел. Создать файл целых чисел, содержащий номера всех локальных...

Дан текстовый файл, содержащий строки. Переписать содержимое файла
Дан текстовый файл, содержащий строки. Переписать содержимое файла в другой файл, ...

Дан символ 'C' (прописная латинская буква) и текстовый файл. Создать строковый файл, содержащий все слова из исходного файла
Дан символ 'C' (прописная латинская буква) и текстовый файл. Создать строковый файл, содержащий все...

2
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 7,998
Записей в блоге: 1
18.10.2014, 10:27 2
Лучший ответ Сообщение было отмечено Dima19399 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Var A:array[1..20,1..20] of integer;
    i,j,n,m:byte;
    f:text;
Begin
    Assign(f,'in.txt');Reset(f);
    read(f,n);readln(f,m);
    For i:=1 to n do
    Begin
      For j:=1 to m do
       read(f,A[i,j]);
      readln(f);
    End;
    Close(f);
    For i:=1 to n do
    Begin
      For j:=1 to m do
       write(A[i,j]:4);
      writeln;
    End;
    readln;
End.
Пример входного файла (файл должен быть в папке с программой)
0
Вложения
Тип файла: txt in.txt (30 байт, 7 просмотров)
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5694 / 3409 / 2430
Регистрация: 22.11.2013
Сообщений: 9,566
Записей в блоге: 1
18.10.2014, 16:35 3
CodeR,
по условию размер матрицы в файле не содержится, насколько понимаю, это отдельная часть задания:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
const
  mmax=20; nmax=20; W=4;
var
  a: array [1..mmax,1..nmax] of Integer;
  m, n, nn, i, j: Integer;
  f: Text;
begin
  Assign(f,'in.txt'); Reset(f); {m:=0;}
  while (m<mmax) and not SeekEOF(f) do begin
    Inc(m); nn:=0;
    while (nn<nmax) and not SeekEOLn(f) do begin
      Inc(nn); Read(f,a[m,nn]);
    end; ReadLn(f);
    if nn>n then n:=nn;
  end;
  Close(f);
  for i:=1 to m do begin
    for j:=1 to n do Write(a[i,j]:W); WriteLn;
  end;
end.
Добавлено через 26 минут
Можно добавить предупреждение о превышении максимальных размеров:
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
const
  mmax=20; nmax=20; W=4;
var
  a: array [1..mmax,1..nmax] of Integer;
  m, n, nn, i, j: Integer;
  e: Boolean;
  f: Text;
begin
  Assign(f,'in.txt'); Reset(f); {e:=False; m:=0;}
  while (m<mmax) and not SeekEOF(f) do begin
    Inc(m); nn:=0;
    while (nn<nmax) and not SeekEOLn(f) do begin
      Inc(nn); Read(f,a[m,nn]);
    end;
    if not SeekEOLn(f) then e:=True;
    if nn>n then n:=nn;
    ReadLn(f);
  end;
  if not SeekEOF(f) then e:=True;
  Close(f);
  if e then WriteLn('Предупреждение: превышен предельный размер матрицы ',mmax,'х',nmax);
  for i:=1 to m do begin
    for j:=1 to n do Write(a[i,j]:W); WriteLn;
  end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.10.2014, 16:35

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Создать текстовый(е) файл(ы), содержащий(е) матрицу 3х3 целых чисел
Создать текстовый(е) файл(ы), содержащий(е): матрицу 3х3 целых чисел. Вывести в файл суммы...

Дан текстовый файл, содержащий строки. Исключить из файла слова begin и end
Дан текстовый файл, содержащий строки. Исключить из файла слова begin и end. Окно работающего...

Дан символ 'C' (прописная латинская буква) и текстовый файл. Создать строковый файл, содержащий все слова из исходного файла, начинающиеся этой буквой
Дан символ 'C' (прописная латинская буква) и текстовый файл. Создать строковый файл, содержащий все...

Дан файл вещественных чисел Создать файл целых чисел, содержащий номера локальных максимумов исходного файла
2-File. Дан файл вещественных чисел. Создать файл целых чисел, содержащий номера всех локальных...


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

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

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