Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/19: Рейтинг темы: голосов - 19, средняя оценка - 4.89
706 / 697 / 168
Регистрация: 15.06.2011
Сообщений: 1,704
1

Открыть файл для чтения, а если его нет, то создать его и открыть для записи

18.06.2011, 21:50. Просмотров 3486. Ответов 1
Метки нет (Все метки)


Здравствуйте! Подскажите, как сделать программу, чтобы она открывала файл для чтения, а если его нет, то создавала его и открывала его для записи!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.06.2011, 21:50
Ответы с готовыми решениями:

Для каждого слова в отдельной строке вывести YES если его можно сложить из печенья, и NO если нет
Вот условия задачи И снова знаменитые буквы из печенья поступили в продажу! Их можно не только...

Открыть для записи текстовый файл data.txt и записать в него полученный массив, закрыть файл
Составить программу с подпрограммами для выполнения следующего алгоритма (предусмотреть процедуры...

Как открыть шрифт формата ttf в Pascal для дальнейшего его редактирования?
Как открыть шрифт формата ttf в Pascal для дальнейшего его редактирования?

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

__________________
Помогаю в написании студенческих работ здесь.
1
298 / 298 / 150
Регистрация: 07.05.2011
Сообщений: 592
18.06.2011, 22:00 2
Лучший ответ Сообщение было отмечено DimanRu как решение

Решение

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
{ как сделать программу, чтобы она открывала файл для чтения, 
а если его нет, то создавала его и открывала его для записи! }
{ PascalABC.NET}
var
  name: string;
  f: text;
  s: string;
begin
  write ('Файл : ');
  readln (name);
  assign(f, name);
  if FileExists(name) then
    begin
      reset(f);
      while not eof(f) do
        begin
          readln(f,s);
          writeln(s);
        end
    end
  else
    begin
      rewrite(f);
      writeln(f,'adfgasdfgasdfg');
    end;
  close(f);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.06.2011, 22:00

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

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

Как работает блокнот, если файл невоможно открыть одновременно для записи и чтения?
сабж... интересно.

Можно ли с помощью Transfer Control открыть для чтения текстовый файл, не копируя его себе на диск?
Можно ли с помощью Transfer Control открыть для чтения текстовый файл, не копируя его себе на диск...

Как открыть файл одновременно для чтения и для записи?
Делаю вот так, но ничего не получается.:( std::fstream inOutCredit("credit.dat", std::ios::ate |...


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

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

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