Использование Var, Integer, Readln.

Процедура Readln используется не только для задержки экрана. Ее основная задача - ввод данных с клавиатуры. В этой статье мы научимся вводить числа с клавиатуры, и потом выводить их на экран. Для этого нам будет необходимо познакомиться с разделом ...

Перевод числа из десятичной системы счисления в шестнадцатеричную.

Напишем программу, которая вводит с клавиатуры целое число в диапазоне от 0 до 15 и преобразует его к шестнадцатеричной системе счисления. Напомню, что в шестнадцатеричной системе счисления числа в диапазоне от 0 до 9 соответствуют таким же числам в ...

Оператор выбора Case Of в Pascal.

Помимо условного оператора If в языке программирования Pascal существует оператор выбора Case of. Рассмотрим его применение на примере программы, которая выводит на экран то или иное сообщение, в зависимости от введенного числа.

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

Итерационные циклы.

Если число повторений заранее не известно и решение о завершении цикла принимается на основе анализа некоторого условия, то такой повторяющийся вычислительный процесс называется итерационным циклом.

...

Разветвляющийся вычислительный процесс.

Если вычислительный процесс зависит от определенных условий и реализуется по одному из нескольких заранее предусмотренных направлений, он называется разветвляющимся вычислительным процессом, а каждое ...

В прошлых уроках мы научились открывать текстовые файлы для чтения с помощью процедуры 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
Ответить
 

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

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

   ГлавнаяПаскальФайлы в Паскаль