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

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

22.05.2013, 14:10. Просмотров 344. Ответов 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 (Turbo Pascal):

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

Файлы. Создать и заполнить текстовой файл 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
Привет! Вот еще темы с решениями:

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

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

Текстовые файлы: дан файл f, приобразовать и переписать в g
Тестовый файл f приобразовать по правилу: Создать новую строку из символов, вслед за которыми идет первое вхождение символа "а", если...

Текстовые файлы. Найдите самые короткие строки
дан текстовый файл.найдите самые короткие строки. помогите пжл!


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

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

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