Программирование Free Pascal - презентация, доклад, проект скачать

Нажмите для полного просмотра!

Содержание ▲

Вы можете ознакомиться и скачать презентацию на тему Программирование Free Pascal. Доклад-сообщение содержит 15 слайдов. Презентации для любого класса можно скачать бесплатно. Если материал и наш сайт презентаций Mypresentation Вам понравились – поделитесь им с друзьями с помощью социальных кнопок и добавьте в закладки в своем браузере.

Слайды и текст этой презентации

Слайд 1

Описание слайда:

Программирование Free Pascal Файлы (упрощенное изложение)

Слайд 2

Описание слайда:

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

Слайд 3

Описание слайда:

Имена файлов, как правило, имеют длину до 8 символов, а расширения - до 3. Например input.dat output.dat input.txt output.txt task.inp task.out

Слайд 4

Описание слайда:

Для того, чтобы работать с файлом необходимо для него: Объявить в разделе описаний Var; В программе связать переменную с физическим файлом на диске; Инициировать вид работы с файлом: чтение, запись или дополнение; Выполнять чтение (в первом случае) или запись (во втором и третьем случае) в файл; Закрыть файл.

Слайд 5

Описание слайда:

Объявление файла: Примеры: Var t:text; f:file of integer; m:file of real; ….

Слайд 6

$Связывание файловой переменной с физическим файлом на диске осуществляется командой assign(<переменная>,<имя файла>); Пример: var t:text; i:integer; begin assign(t,'c:\work1\a01.txt');$

Описание слайда:

Связывание файловой переменной с физическим файлом на диске осуществляется командой assign(<переменная>,<имя файла>); Пример: var t:text; i:integer; begin assign(t,'c:\work1\a01.txt');

Слайд 7

Описание слайда:

Инициирование вида работы с файлом одной из команд: Reset(файловая переменная); для чтения (открывается файл и указатель устанавливается на начало. Если файла не существует возникает ошибка); Rewrite(файловая переменная); для записи (открывается файл и указатель устанавливается на начало. Если файл существует он очищается); Append(файловая переменная); для дозаписи (открывается файл и указатель устанавливается на последнюю запись).

Слайд 8

Описание слайда:

Команды чтения из файла read(файловая переменная, список переменных); readln(файловая переменная, список переменных); Каждый раз указатель смещается на число прочитанных записей.

Слайд 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.$

Описание слайда:

Рассмотрим программу. Какую задачу она решает? 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.

Слайд 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.$

Описание слайда:

Рассмотрим программу. Какую задачу она решает? 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.