Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
KoFeMaH
38 / 25 / 4
Регистрация: 21.02.2009
Сообщений: 249
#1

Работа с файлами - Pascal

22.02.2010, 13:39. Просмотров 319. Ответов 3
Метки нет (Все метки)

Ув.программисты помогите плз.Есть задача дан файл в нем три матрицы порядка n.нужно из каждой матрицы удалить первую строку и первый столбец.
я написал код он впринципе делает это.Но вот чего то не так работает.помогите пожалуйста найти ошибку и по возможности упростить.исходные данные и мой код прилагаются.
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
program lab10;
const n=3;
var c:string;
    f,t:text;
    i,j:byte;
begin
  Assign(f,'D:\test.txt');
  Assign(t,'D:\Temp.txt');
  Reset(f);
  Rewrite(t);
  while not Eof(f) Do
    begin
      readln(f,c);
      for j:=1 to n-1 do
        begin
          readln(f,c);
          for i:=1 to n-1 do
            begin
              c[i]:=c[i+1];
            end;
          c[n]:=' ';
          writeln(t,c);
          writeln(c);
          readln;
        end;
    end;
  close(f);
  close(t);
  readln;
end.
Исходные данные.
Pascal
1
2
3
4
5
6
7
8
9
10
11
321
543
754
 
543
753
334
 
754
322
987
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.02.2010, 13:39
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Работа с файлами (Pascal):

Работа с файлами
Дан файл,строки которго могут содержать и числа и слова. Сформулировать из него...

Работа с файлами!
Help@! Вот условие В txt файле неизвестной длины записаны целые числа в...

Работа с файлами ...
Помогите пожалуйсто сделать 2 лабораторные в паскале дабы сдать ссесию...готов...

работа с файлами
Записать в файл f N целых чисел, полученных с помощью генератора случайных...

работа с файлами
Дан файл состоящий из строк, которые могут начинаться либо с русских, либо с...

Работа с файлами
Помогите с задачками плз. 1 Дано символьный файл f. Подсчитать число вхождений...

3
yanyk1n
4331 / 1462 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
22.02.2010, 13:44 #2
KoFeMaH, у вас не три матрицы, а три по три числа. Как матрица считываться не будет, между элементами строки ставьте пробел, а между строками - символ новой строки
0
KoFeMaH
38 / 25 / 4
Регистрация: 21.02.2009
Сообщений: 249
22.02.2010, 14:01  [ТС] #3
Я просто считываю строку и там в цикле удаляю первый символ
0
yanyk1n
4331 / 1462 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
22.02.2010, 14:07 #4
Считаем, что матрицы отделены пустой строкой:
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
uses crt;
const n=3;
var a:array[1..n,1..3]of integer;
i,j,k:integer;
f,g:text;
 
begin
 assign(f,'input.txt');
 assign(g,'input.txt');
 reset(f);
 rewrite(g);
 for k:=1 to 3 do
 begin
  for i:=1 to n do
  begin
   for j:=1 to n do read(f,a[i,j]);
   readln(f);
  end;
  for i:=2 to n do
  begin
   for j:=2 to n do write(g,a[i,j],' ');
   writeln(g);
  end;
  readln(f);
 end;
 close(f);
 close(g);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.02.2010, 14:07
Привет! Вот еще темы с решениями:

Работа с файлами
Ребята помогите пожалуста. Дан текстовый файл.Вывести...

Работа с файлами
если на диске с в каталоге ren имеется файл s11.fam то вывести на экран номер...

работа с файлами
создать файл. внести в него прописные и строчные символы. Считать все символы...

Работа с файлами
Дан файл f, компоненты которого являются целыми числа- ми. Никакая из...


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

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

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