Логические и символьные константы.

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

Процедуры STR и VAL.

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

...

Логические операции с целыми числами.

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

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

Вычисление предела последовательности.

Вычисление предела последовательности является типичной задачей на использование итерационного цикла.

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

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

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