Операции умножения и сложения в Pascal.

В данном уроке мы рассмотрим операции умножения и сложения в Pascal. Умножение в Pascal обозначается знаком «*», а сложение - знаком «+».

Ветвления в Pascal.

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

Тип данных Boolean. Значения True, False в Pascal.

Мы рассмотрели с Вами целый тип данных (integer), вещественный тип (real), символьный (char). В этом уроке мы рассмотрим тип данных, который имеет большое значение в программировании. Логический типBoolean. Одной из особенностей этого типа данных ...

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

Поиск минимального и максимального элементов массива.

Одной из наиболее распространенных задач обработки массивов является поиск минимального (максимального) элемента.

Программирование вычислительных процессов.

Решение задачи на ЭВМ — это сложный процесс, в ходе которого пользователю приходится выполнять целый ряд действий, прежде чем он получит интересующий его результат.

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

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

   ГлавнаяПаскальФайлы в ПаскальЗапись в текстовый файл (продолжение).