Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.61/18: Рейтинг темы: голосов - 18, средняя оценка - 4.61
0 / 0 / 0
Регистрация: 28.04.2014
Сообщений: 88
1

Считать информацию из файла и сохранить в другой файл

22.12.2015, 13:55. Показов 3383. Ответов 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
Var i,jn,j:byte;
    f,f1 file of char;
    
    s,s1:string;
 
Begin
//Ввод с файла
assign (f, 'F:\f.txt');
reset(f);
 readln(f, s);
 
 
    i:=0;
    While i<Length(s) do
    Begin
      inc(i);
      if s[i]='(' then jn:=i;
      if s[i]=')' then
      Begin
        Delete(s,jn,i-jn+1);
        For j:=i downto 1 do
         if s[j]='(' then break;
        if s[j]='(' then jn:=j;
        dec(i,i-jn+1);
            end;
      End;
    End;
 
//Вывод с файла
close(f);
End.
//
Никак не могу сделать так, чтобы он брал информацию из файла, а сохранял ее в другой файл

Добавлено через 21 час 51 минуту
Изначально код выглядел вот так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Var i,jn,j:byte;
    s:string;
Begin
    write('Введите строку: ');readln(s);
    i:=0;
    While i<Length(s) do
    Begin
      inc(i);
      if s[i]='(' then jn:=i;
      if s[i]=')' then 
      Begin
        Delete(s,jn,i-jn+1);
        For j:=i downto 1 do
         if s[j]='(' then break;
        if s[j]='(' then jn:=j;
        dec(i,i-jn+1);
      End;
    End;
    writeln('Полученная строка: ',s);
    readln;
End.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.12.2015, 13:55
Ответы с готовыми решениями:

Считать из файла с последующей записью в другой файл
не хочется слишком активно злоупотреблять вниманием и добротой обитателей форума, но никак не...

Считать числа из файла, проанализировать и записать в другой файл
program if1; var a,b,c,n:integer; f1,f2: text; begin assign (f1,'input.txt'); assign...

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

Считать слова из одного текстового файла в другой текстовый файл
2.Написать программу, которая считывает слова из одного текстового файла и записывает их в столбик...

2
121 / 26 / 27
Регистрация: 17.04.2013
Сообщений: 106
22.12.2015, 18:46 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
  i, jn, j: byte;
  f, f1: text;
  s, s1: string;
 
begin
  //Ввод с файла
  assign(f, 'input.txt');
  assign(f1, 'output.txt');
  reset(f);
  readln(f, s);
  i := 0;
  while i < Length(s) do
  begin
    inc(i);
    if s[i] = '(' then jn := i;
    if s[i] = ')' then 
    begin
      Delete(s, jn, i - jn + 1);
      for j := length(s) downto 1 do
        if s[j] = '(' then break;
      if s[j] = '(' then jn := j;
      dec(i, i - jn + 1);
    end;
  end;
  
  
  //Вывод с файла
  rewrite(f1);
  write(f1, s);
  close(f);
  close(f1);
end.
1
121 / 26 / 27
Регистрация: 17.04.2013
Сообщений: 106
29.12.2015, 08:02 3
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
i, jn, j: byte; // i - порядковый номер символа строки; jn - номер символа ( в строке; j - порядковый номер символа в строке после удаления
f, f1: text;
s, s1: string;
 
begin
//Ввод с файла
assign(f, 'input.txt');
assign(f1, 'output.txt');
reset(f);
readln(f, s);
i := 0;
while i < Length(s) do
begin
inc(i);
if s[i] = '(' then jn := i;
if s[i] = ')' then 
begin
Delete(s, jn, i - jn + 1); //удаление из строки s с позиции jn т.е. со скобки "(" до скобки ")"
for j := length(s) downto 1 do //для j от длины строки до 1
if s[j] = '(' then break; //если символ в строке на позиции j равен '(' то закончить этот цыкл
if s[j] = '(' then jn := j; //если символ в строке на позиции j равен '('  то запоминаем номер позиции экой скобки в строке (эта строчка в цикл не входит)
dec(i, i - jn + 1);
end;
end;
 
 
//Вывод с файла
rewrite(f1);
write(f1, s);
close(f);
close(f1);
end.
Добавлено через 17 часов 2 минуты
Данная процедура уменьшает содержимое переменной «i» на значение переменной «i-jn+1». берем строку s=м(про)рг переменной «i» присвоено значение «2», а переменной «i-jn+1» присвоено значение «1», то результатом данной процедуры будет число «1» (2-1=1).
За подробностями смотри сюда: http://mojainformatika.ru/pask... skale.html
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.12.2015, 08:02

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

Задание по Visual c++ 2013, Нужно создать файл, записать в него информацию, а затем по другой кнопке считать информацию из файла
Вот код записи в файл: { UpdateData(TRUE); F.open(L&quot;dat1.txt&quot;, std::ios::out); // F -...

Сохранить массив в файл а потом считать его из файла
#include &lt;iostream&gt; using namespace std; int main() { setlocale (0,&quot;&quot;); const int str =...

Файл: Считать данные из текстового файла и записать их в другой файл, заданный пользователем...
Доброго времени суток. Выполняя задание по программированию столкнулся с проблемой. Необходимо...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru