Tocha
1

текстовый файл

10.01.2010, 15:17. Показов 458. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
1) Заменить в файле строки, совпадающие с 1ой строкой этого файла, на пустую

строку(кроме 1ой).

*[Треб.:ввод и вывод файлов оформить в программе в виде процедур. Предусмотреть

меню с вызовом процедур:создание и запись строк в файл, добавление в файл новых

строк, вывод содержимого файла на экран и обработка, согласно условию]
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.01.2010, 15:17
Ответы с готовыми решениями:

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

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

ПУСТЬ это текстовый файл, который содержит НЕСКОЛЬКО ЦЕЛЫХ ЧИСЕЛ. ОТКРЫТЬ этот текстовый файл и КАЖДЫЙ С ЧИСЕЛ вознести В КУБ.
ПУСТЬ это текстовый файл, который содержит НЕСКОЛЬКО ЦЕЛЫХ ЧИСЕЛ. ОТКРЫТЬ этот текстовый файл и...

Дано число k и текстовый файл, содержащий более k строк. Создать новый текстовый файл, содержащий k последних строк
И снова всем привет) Помогите пожалуйста со следующим заданием: Дано число k (<10) и текстовый...

3
3132 / 1325 / 156
Регистрация: 19.12.2009
Сообщений: 1,808
10.01.2010, 15:59 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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Uses Crt;
var f,g:text;
procedure vvod(var f:text);
 var
    a:string;
  k,n:integer;
   begin
    assign(f,'Docume.txt');
     rewrite(f);
      append(f); 
    writeln('Введите количество строк');
     readln(n);
     for k:=1 to n do begin  
       readln(a);
        writeln(f,a);
         end;
       close(f);
      end;
 
procedure  add(a:string; var f:text);
  begin
   append(f);
     writeln(f,a);
       close(f);
        end;
 
procedure  show(var f:text);
 var
  a:string;
   begin
    while not eof(f) do begin
      readln(f,a);
       writeln(a);
         end;
          close(f);
           end;
 
procedure arbeit(var f,g:text);
 var 
      k:integer;   
   a,b:string;
     begin
      assign(g,'Docume1.txt');
        rewrite(g);
         append(g);  
          reset(f);  
        readln(f,a);
        writeln(g,a); 
         while not eof(f) do begin
           readln(f,b);
            if a<>b then writeln(g,b) else
              writeln(g,'');
                end;
              close(f);
             close(g);
            end;                   
begin
Clrscr;
vvod(f);
arbeit(f,g);
end.
1
Tocha
10.01.2010, 17:15 3
требуется предусмотреть меню еще.... там как бы 1 - запись 2 - добавить запись 3- чтение и вывод 4 - обработка по условию....
3310 / 1372 / 110
Регистрация: 28.04.2009
Сообщений: 4,822
10.01.2010, 17:18 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
writeln ('      menu      ');
writeln ('1: напишите свое ');
writeln ('2:');
writeln ('3: ');
writeln ('4: ');
writeln ('5:выход ');
readln (z);
 case z of
  1: пишите название своей процедуры ;
  2:;
  3:;
  4:;
  5:exit;
  end;
вот вам пример.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.01.2010, 17:18
Помогаю со студенческими работами здесь

Дан текстовый файл F. Переписать файл F в файл G, вставляя в конец каждой строки ее порядковый номер.
решите)

Текстовый файл. Заполнить файл последовательность случайных чисел. Найти сумму наибольшего и наименьшего из них и записать в новый файл
Заполнить файл последовательность случайных чисел. Найти сумму наибольшего и наименьшего из них и...

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

Получить текстовый файл g путём смены вхождений в файл f строки s1 на s2
Дано текстовый файл f и две строки s1 и s2. Получить текстовый файл g путём смены вхождений в файл...


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

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

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