Ввод логических переменных с клавиатуры.

В отличие от переменных целого, вещественного или символьного типов данных, булевские переменные нельзя вводить с клавиатуры, их можно только выводить на экран. Однако можно использовать небольшую хитрость. Для того чтобы можно было ввести булевскую ...

Textcolor, Window, Textbackground в Pascal.

Текст, который мы выводим на экран с помощью процедуры Writeln или с помощью оператора Write можно изменять. Процедура Textcolor используется для изменения цвета выводимого текста. Процедура Textbackground изменяет цвет фона, на котором выводится ...

Использование вложенного оператора If.

Условные операторы в Pascal можно вкладывать друг в друга. Для этого используется вложенный оператор IF. Рассмотрим это на примере программы, которая будет считать количество корней квадратного уравнения.

Циклы и массивы

ФАЙЛЫ ЗАПИСЕЙ

В практике программирования часто встречаются задачи, решение которых требует большого количества относительно мало изменяемых во времени данных. Ввод данных с экрана заново при каждом счете для этих ...

Описание процедур.

Процедуры являются основой модульного программирования (МП). Модульное программирование – это процесс построения программы, разделенной на логические части, называемые модулями, и последовательное ...

В прошлых уроках мы научились открывать текстовые файлы для чтения с помощью процедуры Reset и записывать в текстовый файл информацию с помощью процедуры Rewrite. В этом уроке мы напишем программу, в которой используются обе эти процедуры. Кроме того, мы попробуем записать в файл не одну строку, а несколько. Для записи нескольких строк в файл вместо процедуры Read используется процедура Readln, а вместо процедуры Write – процедура Writeln.

 Запись в текстовый файл.





Program file7;
Uses crt;
var fl:text;
str:string;
i:integer;
begin
clrscr;
assign (fl, 'programs\text.txt');
rewrite (fl);
for i:=1 to 3 do
begin
readln (str);
writeln (fl,str);
end;
close(fl);
reset (fl);
while not Eof (fl) do
begin
readln (fl,str);
writeln (str);
end;
close (fl);
readln
end.




В строке №5 записываем переменную «i», которая будет являться счетчиком для цикла.

Строка №8. Связываем файловую переменную «fl» с текстовым файлом «text.txt».

Строка №9. Открываем файл для записи.

Строка №10. Т.к. мы будем записывать в файл не одну строку, а несколько, нам понадобится цикл. Предположим, что нам необходимо записать в файл 3 строки, тогда цикл будет иметь вид: «for i:=1 to 3 do».

Строка №11 - №14. Вводим с клавиатуры 3 слова в разных строках (например, «Avatar», «Terminator», «Mission Impossible»). Кстати, если в строке №13 вместо процедуры Writeln использовать процедуру Write, то слова будут записаны в файл в одной строке.

Строка №15. После того как все записи в файл сделаны, необходимо его закрыть с помощью процедуры Close.

Строка №16. Теперь открываем наш файл для чтения.

Строка №17 - №21. Считываем из файла информацию и выводим ее на экран.

Строка №22. Закрываем файл.

zapisj v tekstovihyj fayjl....

После запуска программы вводим слова. После ввода очередного слова нажимаем Enter для перехода на новую строку.

zapisj v tekstovihyj fayjl...

Для достоверности того, что эти слова записались в файл, откройте его и убедитесь.


Предыдущая статья : Запись в текстовый файл.

Оглавление : Уроки Паскаль. Файлы.

Следующая статья : Дописывание в текстовый файл.


Комментарии  

 
0 # Hi all 10.04.2016 09:26
а комментарии вымирающий вид из красной книги :roll:
Ответить
 
 
+2 # DenisHack 19.11.2016 21:58
Very cool infa na 100pr
Ответить
 

Добавить комментарий

Защитный код
Обновить

   ГлавнаяПаскальФайлы в ПаскальИспользование комбинированного типа в текстовых файлах.