С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
TEKJ
13 / 13 / 14
Регистрация: 11.11.2012
Сообщений: 147
1

Текстовый файл с матрицей: Удалить указанный столбец

28.05.2013, 16:04. Просмотров 257. Ответов 0
Метки нет (Все метки)

В текстовом файле записана квадратная матрица состоящая из N*M элементов.
Удалить указанный столбце. Записать результат в новый файл.

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
42
43
44
45
46
47
48
49
50
51
52
Program matrix1;
var ff,ff1:file of real;
    i,j:integer;
    n,m,x:integer;
    a,b:real;
 
Begin
Assign(ff,'matrix_input.txt');
Rewrite(ff);
Reset(ff);
writeln('Введите размеры матрицы:');
read(n,m);
writeln('Введите элементы матрицы:');
 
for i:=1 to n do
 for j:=1 to m do begin
  readln(a);
  write(ff,a);
 end;
 
Close(ff);
 
writeln('Какой столбец удалить?');
read(x);
Reset(ff);
Assign(ff1,'matrix_output.txt');
Rewrite(ff1);
 
 
i:=0;
 
for i:=0 to FileSize(ff)-1 do
begin
seek(ff,i);
 if i<>x-1 then
   begin
    read(ff,a);
    write(ff1,a);
   end else begin x:=x+x;
   end;
end;
 
i:=0;
Close(ff1);
Close(ff);
Reset(ff1);
 
for i:=0 to filesize(ff1) do begin
   read(ff1,a);
   write(a);
   end;
end.
Помогите найти ошибку
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.05.2013, 16:04
Ответы с готовыми решениями:

Текстовый файл с матрицей.
В текстовом файле хранится матрица вещественная 30х8. Записать ее в другой...

Имеется текстовый файл. Удалить из него третью строку. Результат записать в другой файл
Имеется текстовый файл. Удалить из него третью строку. Результат записать в...

Имеется текстовый файл. Удалить из него первую строку.
Имеется текстовый файл. Удалить из нее первую строку, в конце которой стоит...

Дан текстовый файл. Удалить из него пустые строки
Дан текстовый файл.Удалить из него пустые строки!Люди в долгу не останусь...

Дано целое число K и текстовый файл. Удалить из файла строку с номером K. Если строки с таким номером нет, то оставить файл без изменений
Дано целое число K и текстовый файл. Удалить из файла строку с номером K. Если...

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

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

Дан текстовый файл. Удалить из него все лишние пробелы
Текстовые файлы: Дан текстовый файл. Удалить из него все лишние пробелы,...

Дан не пустой текстовый файл. Удалить из него нечетные строки
4) Дан не пустой текстовый файл. удалить из него нечетные строки.


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

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

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