Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
deepbeatzzzpro
0 / 0 / 0
Регистрация: 06.05.2013
Сообщений: 3
#1

В редакторе создайте два текстовых файла, внесите в каждый файл 10 строк произвольного текста - Turbo Pascal

07.05.2013, 00:01. Просмотров 462. Ответов 1
Метки нет (Все метки)

- В редакторе создайте два текстовых файла, внесите в каждый файл 10 строк произвольного текста.

- Из двух исходных файлов при помощи программы получите третий файл; внесите в него сначала те строки из первого файла, в которых нет латинских букв, а затем последние три строки из второго файла.

- Организуйте из программы вывод на экран содержимого исходных файлов и содержимого результирующего.
http://www.cyberforum.ru/turbo-pascal/thread518486.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.05.2013, 00:01
Я подобрал для вас темы с готовыми решениями и ответами на вопрос В редакторе создайте два текстовых файла, внесите в каждый файл 10 строк произвольного текста (Turbo Pascal):

Имеется два текстовых файла. Переписать строки из первого во второй файл
Порядок строк должен совпадать, а из 2 файла переписать в 1, порядок строк...

Объединить два текстовых файла, используя указатель на файл. Турбо Паскаль
предусмотреть контроль за размером динамически распределяемой памяти (ДРП), а...

Даны два текстовых файла. Добавить в конец первого файла содержимое второго файла
3)Даны два текстовых файла. Добавить в конец первого файла содержимое второго...

Заданы два текстовых файла. Дописать содержимое одного файла в конец другого
1.Заданы два текстовых файла.Дописать содержимое одного файла в конец другого...

даны два текстовых файла
плиз,помогите!даны два текстовых файла.записать в третий только те...

1
Kodzaev
3002 / 1891 / 1646
Регистрация: 30.04.2011
Сообщений: 3,054
07.05.2013, 01:00 #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
  f1,f2,f3: Text;
  k,i: Integer;
  s: String;
BEGIN
Clrscr;
Assign(f1,'1.txt');
Assign(f2,'2.txt');
{$I-}
Reset(f1);
Reset(f2);
{$I+}
If IOResult=0 Then
begin
  Assign(f3,'3.txt');
  Rewrite(f3);
  Writeln('1 file:');
  While not Eof(f1) do
  begin
    k:=0;
    Readln(f1,s);
    Writeln(s);
    For i:=1 to Length(s) do
    If UpCase(s[i]) in ['A'..'Z'] Then
    k:=k+1;
    If k=0 Then
    Writeln(f3,s);
  end;
  Writeln('<Press Enter...>');
  Readln;
  Clrscr;
  Close(f1);
  k:=0;
  Writeln('2 file:');
  While not Eof(f2) do
  begin
    k:=k+1;
    Readln(f2,s);
    Writeln(s);
    If k in [8..10] Then
    Writeln(f3,s)
  end;
  Writeln('<Press Enter...>');
  Readln;
  Clrscr;
  Close(f2);
  Writeln('3 file:');
  Close(f3);
  Reset(f3);
  While not Eof(f3) do
  begin
    Readln(f3,s);
    Writeln(s);
  end;
  Writeln('<Press Enter...>');
end
Else
Writeln('File(s) not found');
Readln
END.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.05.2013, 01:00
Привет! Вот еще темы с решениями:

Из произвольного текста, содержащего не более 10 строк удалить слова заданной длины
Из произвольного текста, содержащего не более 10 строк, в каждой строке не...

Поменять два текстовых файла местами
Заданы два текстовых файла. Поменять эти файлы местами.

Два текстовых файла целых чисел
1 создать текстовый файл F1.переписать его содержимое в файл F2.сохраняя...

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


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

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

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