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

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

Функции LENGTH и CONCAT.

Функция Length возвращает в качестве значения длину строки. Например, если в строковой переменной «stroka» записано слово «Pascal», то Length(stroka) будет равно 6. Эта операция аналогична операции Ord(stroka[0]), которую мы разбирали в 1-м уроке. ...

Функции Sqr, Abs, Sqrt, Sin, Cos, Arctan, Ln, Exp, Pi в Pascal.

Мы уже знаем, какие существуют функции для целых переменных. Это – нахождение модуля числа (Функция Abc), а также возведение числа в квадрат (Функция Sqr). В этом уроке мы рассмотрим функции, применяемые к дробным числам. Это функции Sqr - квадрат ...

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

Тип данных Real.

Тип REAL (вещественный). Число типа REAL занимает три слова (шесть байтов). При работе с вещественными числами нужно помнить, что на любом отрезке вещественной оси существует бесчисленное множество ...

Использование массивов и функций в качестве формального параметра.

Формальным параметром функции может быть не только переменная скалярного типа, но и идентификатор переменной структурированного типа данных.

В прошлых уроках мы научились открывать текстовые файлы для чтения с помощью процедуры 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:
Ответить
 
 
+1 # DenisHack 19.11.2016 21:58
Very cool infa na 100pr
Ответить
 

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

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

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