Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
KoFeMaH
38 / 25 / 1
Регистрация: 21.02.2009
Сообщений: 249
#1

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

22.02.2010, 13:39. Просмотров 307. Ответов 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):

Работа с файлами - Pascal
Типизированный файл input.dat с элементами типа real содержит таблицу значений функции sin x. Первая половина файла - отсчеты значений x (в...

Работа с файлами - Pascal
Дан файл, в котором записаны цифры, например: 24_25_78 Подсчитать эти цифры и заново записать в файл, результат: 6_7_15

Работа с файлами - Pascal
1) Вывести на экран текст, который состоит из строк с парными порядочными номерами. 2) Переписать из этого файла в другой файл все строки...

Работа с файлами - Pascal
Написать программу которая будет создавать текстовый файл, заполнять его одномерным массивом, среди элементов найти средне арифметическое...

Работа с файлами - Pascal
В файле хранятся записи с полями:chislo:1..31;mes:1..12;god:1000..2999.Напечатать все зимние даты,сгрупировав их по месяцам.Пожалуйста кому...

работа с файлами - Pascal
Даны два файла целых чисел одинакового размера. Создать текстовый файл содержащий эти числа расположенные в два столбца шириной от 30...

3
yanyk1n
4331 / 1462 / 152
Регистрация: 12.03.2009
Сообщений: 5,310
22.02.2010, 13:44 #2
KoFeMaH, у вас не три матрицы, а три по три числа. Как матрица считываться не будет, между элементами строки ставьте пробел, а между строками - символ новой строки
0
KoFeMaH
38 / 25 / 1
Регистрация: 21.02.2009
Сообщений: 249
22.02.2010, 14:01  [ТС] #3
Я просто считываю строку и там в цикле удаляю первый символ
0
yanyk1n
4331 / 1462 / 152
Регистрация: 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
22.02.2010, 14:07
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.02.2010, 14:07
Привет! Вот еще темы с ответами:

Работа с файлами - Pascal
Файл содержит сведения о школьниках: фамилия, имя, рост и вес. Выведите список школьников, рост которых превышает задаваемую величину. Все...

Работа с файлами - Pascal
Есть простая программа для записи чисел в файл program file; var f:file of integer; a,i,n:integer; begin write('n='); ...

Работа с файлами - Pascal
Помогите пожалуйста довести до ума задачу: type fs = file of string; процедура Copir1(var f1,f2:fs) программы должна дополнять строки...

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


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

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

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