Добавить работы Отмеченные0
Работа успешно отмечена.

Отмеченные работы

Просмотренные0

Просмотренные работы

Корзина0
Работа успешно добавлена в корзину.

Корзина

Регистрация

интернет библиотека
Atlants.lv библиотека
Особые предложения 2 Открыть
14,20 € В корзину
Добавить в список желаний
Хочешь дешевле?
Идентификатор:354069
 
Автор:
Оценка:
Опубликованно: 09.02.2007.
Язык: Английский
Уровень: Средняя школа
Литературный список: Нет
Ссылки: Не использованы
Фрагмент работы

Type
Product = record
Name:string;
Number:integer;
End;
My_text = file of string[80];
Var
F1: file of char;
F2 : text;
F3: file;
F4: my_text;
F5: file of product;

Piemērs 1.

Var
F: file;
Begin
Assign(f, ‘c: fails1.bat’); {faila inicializācija}
Reset(f, 1); (atver failu lasīšanai)
Writeln(‘Faila lielums ir ’, filesize(f));
Close(f); {aizver failu}
End.

Piemērs 2.
Var
F:text;
P:char;
Begin
Assign(f, ‘tests.dat’); { faila inicializācija }
Reset(f); { atver failu lasīšanai }
While not eof(f) do {kamēr neatrod faila beigas}
Begin
Read(f, p); {nolas datus līdz rindas beigām}
Write(p); {ieraksta failā noteiktu mainīgo}
End;
End.

Piemērs 3.
Var
f1, f2: text;
p:string;
Begin

Коментарий автора
Загрузить больше похожих работ

Atlants

Выбери способ авторизации

Э-почта + пароль

Э-почта + пароль

Неправильный адрес э-почты или пароль!
Войти

Забыл пароль?

Draugiem.pase
Facebook

Не зарегистрировался?

Зарегистрируйся и получи бесплатно!

Для того, чтобы получить бесплатные материалы с сайта Atlants.lv, необходимо зарегистрироваться. Это просто и займет всего несколько секунд.

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

Отменить Регистрация