- Главная
- Разное
- Дизайн
- Бизнес и предпринимательство
- Аналитика
- Образование
- Развлечения
- Красота и здоровье
- Финансы
- Государство
- Путешествия
- Спорт
- Недвижимость
- Армия
- Графика
- Культурология
- Еда и кулинария
- Лингвистика
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Детские презентации
- Информатика
- История
- Литература
- Маркетинг
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
Программирование Free Pascal презентация
Содержание
- 1. Программирование Free Pascal
- 2. Файлы в языке программирования используются для
- 3. Имена файлов, как правило, имеют длину до
- 4. Для того, чтобы работать с файлом необходимо
- 5. Объявление файла: Примеры: Var
- 6. Связывание файловой переменной с физическим файлом на
- 7. Инициирование вида работы с файлом одной из
- 8. Команды чтения из файла read(файловая переменная,
- 9. Команды закрытия файла close(файловая переменная);
- 10. Логическая величина eof(файловая переменная)
- 11. Логическая величина eoln(файловая переменная)
- 12. Рассмотрим программу. Какую задачу она решает?
- 13. Рассмотрим программу. Какую задачу она решает?
- 14. Заготовка для решения задач Program …; var
- 15. И это еще не все, но ... КОНЕЦ
Файлы в языке программирования используются для ввода информации для обработки в программу; хранения в них полученных результатов.
Слайд 1Программирование Free Pascal
Файлы (упрощенное изложение)
Программирование – вторая грамотность.
А.П.Ершов
Слайд 2Файлы в языке программирования используются для
ввода информации для обработки в программу;
хранения
в них полученных результатов.
Слайд 3Имена файлов, как правило, имеют длину до 8 символов, а расширения
- до 3.
Например
input.dat
output.dat
input.txt
output.txt
task.inp
task.out
Слайд 4Для того, чтобы работать с файлом необходимо для него:
Объявить в разделе
описаний Var;
В программе связать переменную с физическим файлом на диске;
Инициировать вид работы с файлом: чтение, запись или дополнение;
Выполнять чтение (в первом случае) или запись (во втором и третьем случае) в файл;
Закрыть файл.
В программе связать переменную с физическим файлом на диске;
Инициировать вид работы с файлом: чтение, запись или дополнение;
Выполнять чтение (в первом случае) или запись (во втором и третьем случае) в файл;
Закрыть файл.
Слайд 6Связывание файловой переменной с физическим файлом на диске осуществляется командой assign(,
файла>);
Пример:
var
t:text;
i:integer;
begin
assign(t,'c:\work1\a01.txt');
Слайд 7Инициирование вида работы с файлом одной из команд:
Reset(файловая переменная);
для чтения (открывается файл и указатель устанавливается на начало. Если файла не существует возникает ошибка);
Rewrite(файловая переменная);
для записи (открывается файл и указатель устанавливается на начало. Если файл существует он очищается);
Append(файловая переменная);
для дозаписи (открывается файл и указатель устанавливается на последнюю запись).
Rewrite(файловая переменная);
для записи (открывается файл и указатель устанавливается на начало. Если файл существует он очищается);
Append(файловая переменная);
для дозаписи (открывается файл и указатель устанавливается на последнюю запись).
Слайд 8Команды чтения из файла read(файловая переменная, список переменных); readln(файловая переменная, список переменных); Каждый раз
указатель смещается на число прочитанных записей.
Команды записи в файл
write(файловая переменная, список переменных); writeln(файловая переменная, список переменных);
Каждый раз указатель смещается на последнюю запись.
Слайд 9Команды закрытия файла close(файловая переменная); Если команда в программе отсутствует, то файл закрывается
автоматически вместе с завершением программы.
Слайд 10Логическая величина eof(файловая переменная) используется для проверки достижения конца файла
и является сокращением от
end
of
file
Слайд 11Логическая величина eoln(файловая переменная) используется для проверки достижения конца строки
файла и является сокращением от
end
of
line
Слайд 12Рассмотрим программу.
Какую задачу она решает?
program a01;
var
t:text;
i:integer;
begin
assign(t,'c:\work\a01.txt');
rewrite(t);
randomize;
for i:=1 to 100 do
writeln(t,random(100)-50);
close(t)
end.
for i:=1 to 100 do
writeln(t,random(100)-50);
close(t)
end.
Слайд 13Рассмотрим программу.
Какую задачу она решает?
program a02;
var
t,t1:text;
x:integer;
begin
assign(t,'c:\work\a01.txt');
assign(t1,'c:\work\a02.txt');
reset(t); rewrite(t1);
while not eof(t) do
begin
read(t,x);
write(x:5);
if x>0 then
x:=sqr(x)
else
x:=-x;
writeln(x:5);
writeln(t1,x);
end;
close(t);close(t1);
end.
while not eof(t) do
begin
read(t,x);
write(x:5);
if x>0 then
x:=sqr(x)
else
x:=-x;
writeln(x:5);
writeln(t1,x);
end;
close(t);close(t1);
end.
Слайд 14Заготовка для решения задач
Program …;
var
…
t:text;
begin
assign(t,’…in');
reset(t);
close(t);
…
assign(t,’…out');
rewrite(t);
…
end;
close(t);
end.
assign(t,’…out');
rewrite(t);
…
end;
close(t);
end.
