Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
zdorovkakbyk
1 / 1 / 0
Регистрация: 11.04.2013
Сообщений: 45
1

Создать и заполнить текстовые файлы f и g

22.05.2013, 14:10. Просмотров 852. Ответов 1
Метки нет (Все метки)

1)Создать и заполнить текстовые файлы f и g. Записать в файл h сначала строки файла f, затем - строки файла g с сохранением порядка
2)Создать и заполнить файл f1 числами. Переписать числа файла f1 в f2 находящиеся в интервале от [-5, 5];
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.05.2013, 14:10
Ответы с готовыми решениями:

создать и заполнить текстовые файлы
Создать и заполнить текстовые файлы f и g. Записать в файл h сначала строки...

Файлы. Создать и заполнить текстовой файл f. Вывести на экран чётные строки файла
Создать и заполнить текстовой файл f. Вывести на экран чётные строки файла.

Текстовые файлы
Студент ведет телефонную книгу в текстовом файле в формате <Номер...

Программа редактируешяя текстовые файлы
Нард нужен код программы которая может открыть некий текстовый файл

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

1
d_dima
1 / 1 / 3
Регистрация: 28.02.2013
Сообщений: 30
22.05.2013, 16:27 2
Лучший ответ Сообщение было отмечено zdorovkakbyk как решение

Решение

1)
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
Var
  f,g,h: Text;
  s1,s2: String;
BEGIN
Write('Vvedite imya 1 faila: ');
Readln(s1);
Write('Vvedite imya 2 faila: ');
Readln(s2);
Assign(f,s1+'.txt');
Assign(g,s2+'.txt');
{$I-}
Reset(f);
Reset(g);
{$I+}
If IOResult=0 Then
begin
  Assign(h,'h.txt');
  Rewrite(h);
  While not Eof(f) do
  begin
    Readln(f,s1);
    Writeln(h,s1);
  end;
  While not Eof(g) do
  begin
    Readln(g,s1);
    Writeln(h,s1);
  end;
  Writeln('Gotovo');
  Close(f);
  Close(g);
  Close(h);
end
Else Writeln('File(s) not found');
Readln
END.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.05.2013, 16:27

Текстовые файлы.Напишите программу которая
Напишите программу, которая выводит на экран максимальную оценку в группе среди...

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

Используя начальные текстовые файлы выполнить
Используя начальные текстовые файлы выполнить: 1)Имея 2 различные текстовые...


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

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

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