Инфоурок / Информатика / Другие методич. материалы / Работа с файлами На Паскаль 9 сынып
Обращаем Ваше внимание, что в соответствии с Федеральным законом N 273-ФЗ «Об образовании в Российской Федерации» в организациях, осуществляющих образовательную деятельность, организовывается обучение и воспитание обучающихся с ОВЗ как совместно с другими обучающимися, так и в отдельных классах или группах.

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

Только сейчас Вы можете пройти дистанционное обучение прямо на сайте "Инфоурок" со скидкой 40% по курсу повышения квалификации "Организация работы с обучающимися с ограниченными возможностями здоровья (ОВЗ)" (72 часа). По окончании курса Вы получите печатное удостоверение о повышении квалификации установленного образца (доставка удостоверения бесплатна).

Автор курса: Логинова Наталья Геннадьевна, кандидат педагогических наук, учитель высшей категории. Начало обучения новой группы: 20 сентября.

Подать заявку на этот курс    Смотреть список всех 203 курсов со скидкой 40%

Работа с файлами На Паскаль 9 сынып

библиотека
материалов
Работа с файлами в PascalABC.NET
ОПРЕДЕЛЕНИЕ ПОНЯТИЙ Физический Файл – это поименованная область на диске, со...
И другие СТРУКТУРА ЛОГИЧЕСКОГО ФАЙЛА Это способ восприятия файла в программе,...
У массива количество элементов фиксировано, а у файлов количество элементов м...
Классификация Файлов в ПАСКАЛЕ
РАБОТА С ТЕКСТОВЫМИ ФАЙЛАМИ var список имен файлов : text; Текстовый файл мож...
НАПРИМЕР: На диске есть файл: D:\MyFile.dat Или: Var f : text; Name: string;...
ПРИНЦИПЫ РАБОТЫ С ФАЙЛАМИ Открытие Чтение из файла или запись в файл Закрытие...
ИСПОЛЬЗОВАНИЕ ДАННЫХ ИЗ ФАЙЛА Для считывания данных из файла в ОП используют...
Если в списке переменных есть числовая переменная (integer или real), то счи...
Функции и директивы для работы с файлами Функция Eof (имя файла) – true, есл...
ПРИМЕРЫ ПРОГРАММ Задача № 1 Пусть на диске (в текущем каталоге) есть файл myf...
var f :text; x: integer; Summa:longint; Begin {$I-} assign(f, 'myfile.dat');...
СОЗДАНИЕ ФАЙЛОВ 1 способ – с помощью текстового редактора, например Блокнот и...
Задача № 2 Написать программу, в которой в текстовый файл записываются данные...
var f : text; 	name : string [ 10 ] ; 	ves : real; 	ROST : real; 	Otvet : cha...
Задача № 3 Написать программу, которая считывает слова из одного текстового ф...
Program slovo; var f,h:text; bukva:char; slovo:string; begin assign(f,'f.txt'...
Пример 1. Нахождение площади треугольника по формуле Герона. Исходные файлы i...
var  a,b,c:integer; s,p:real; f,g:text; begin assign(f,'input.txt'); reset(f)...
Задача №5 Даны три целых числа. Определить, имеется ли среди них хотя бы одна...
Var a,b,c:integer; f,g: text; begin assign (f,'input.txt'); reset (f); readln...
Графика в PascalABC.Net При работе с графическим окном нужно учитывать две ос...
Надо выполнить преобразование системы координат таким образом, чтобы точка (0...
Здесь x0 и y0 – координаты точки, в которую мы хотим перенести начало координ...
Основные команды TextOut(x, y, s) – Вывод текста в графическое окно. При этом...
WindowWidth - ширина графического окна; WindowHeight - высота графического ок...
28 1

Описание презентации по отдельным слайдам:

№ слайда 1 Работа с файлами в PascalABC.NET
Описание слайда:

Работа с файлами в PascalABC.NET

№ слайда 2 ОПРЕДЕЛЕНИЕ ПОНЯТИЙ Физический Файл – это поименованная область на диске, со
Описание слайда:

ОПРЕДЕЛЕНИЕ ПОНЯТИЙ Физический Файл – это поименованная область на диске, содержащая какую-либо информацию. Логический файл – это одна из структур данных, используемых в программировании.

№ слайда 3 И другие СТРУКТУРА ЛОГИЧЕСКОГО ФАЙЛА Это способ восприятия файла в программе,
Описание слайда:

И другие СТРУКТУРА ЛОГИЧЕСКОГО ФАЙЛА Это способ восприятия файла в программе, т.е. «шаблон», через который мы смотрим на физическую структуру файла на диске. В ЯП таким шаблонам соответствуют типы данных, допустимые в качестве компонент файлов. File of byte: File of char: File of integer: байт байт . . . байт Eof код символа код символа . . . код символа Eof целое со знаком целое со знаком . . . целое со знаком Eof

№ слайда 4 У массива количество элементов фиксировано, а у файлов количество элементов м
Описание слайда:

У массива количество элементов фиксировано, а у файлов количество элементов может изменяться в процессе работы.(Количество в каждый момент времени неизвестно, но в конце файла стоит символ Eof) Массив целиком располагается в ОП, а файл находится на диске. Нумерация элементов массива выполняется соответственно значений нижней и верхней границ, указанных при его объявлении. Нумерация элементов файла выполняется слева направо, начиная с нуля Логическая структура файла в принципе очень похожа на структуру массива. Различия:

№ слайда 5 Классификация Файлов в ПАСКАЛЕ
Описание слайда:

Классификация Файлов в ПАСКАЛЕ

№ слайда 6 РАБОТА С ТЕКСТОВЫМИ ФАЙЛАМИ var список имен файлов : text; Текстовый файл мож
Описание слайда:

РАБОТА С ТЕКСТОВЫМИ ФАЙЛАМИ var список имен файлов : text; Текстовый файл может состоять из любых символов (в том числе и цифр) Для работы с каким-либо физическим файлом (тем, который существует на диске) его необходимо связать с файловой переменной Assign (имя файла, ‘путь к файлу’); ИСПОЛЬЗОВАНИЕ Файлы используются для хранения данных. Из них можно считывать начальные данные, записывать результаты, изменять информацию в файле.

№ слайда 7 НАПРИМЕР: На диске есть файл: D:\MyFile.dat Или: Var f : text; Name: string;
Описание слайда:

НАПРИМЕР: На диске есть файл: D:\MyFile.dat Или: Var f : text; Name: string; . . . Begin . . . Name : = ‘D:\MyFile.dat ‘ ; Assign ( f, name); . . . Var f : text; . . . Begin . . . Assign (f; ‘D:\MyFile.dat’ );

№ слайда 8 ПРИНЦИПЫ РАБОТЫ С ФАЙЛАМИ Открытие Чтение из файла или запись в файл Закрытие
Описание слайда:

ПРИНЦИПЫ РАБОТЫ С ФАЙЛАМИ Открытие Чтение из файла или запись в файл Закрытие RESET (название файла) – открытие файла для чтения из него информации в ОП REWRITE (название файла) – открытие файла для записи данных в файл APPEND (название файла) – открытие с целью дополнения данных CLOSE (название файла) – закрытие файла

№ слайда 9 ИСПОЛЬЗОВАНИЕ ДАННЫХ ИЗ ФАЙЛА Для считывания данных из файла в ОП используют
Описание слайда:

ИСПОЛЬЗОВАНИЕ ДАННЫХ ИЗ ФАЙЛА Для считывания данных из файла в ОП используют read и readln. Read ( название файла, список переменных ) Readln ( название файла, список переменных ) Если в списке переменных есть переменная типа char или string [10], то из строки в файле считывается 1 или 10 символов ( вместе с пробелами ) и присваиваются этой переменной. Запись в файл осуществляется процедурами write и writeln Write ( имя файла, список выражений ); Writeln ( имя файла, список выражений ).

№ слайда 10 Если в списке переменных есть числовая переменная (integer или real), то счи
Описание слайда:

Если в списке переменных есть числовая переменная (integer или real), то считываются символы, которые трактуются как цифры до ближайшего пробела. Т. О. особенностью текстового файла является то, что происходит автоматическое преобразование числовых данных в цепочку символов при записи в файл и обратное преобразование символов в цифры при чтении из файла.

№ слайда 11 Функции и директивы для работы с файлами Функция Eof (имя файла) – true, есл
Описание слайда:

Функции и директивы для работы с файлами Функция Eof (имя файла) – true, если достигнут конец файла и False – иначе. {$ I - } , { $ I + } – директивы компилятору Pascal – отключают и включают контроль ошибок ввода-вывода. Если этого не сделать, то отсутствие файла приведет к аварийному завершению программы. Функция IOResult (имя файла) определяет наличие файла на диске ( 0 – есть, 1 – нет).

№ слайда 12 ПРИМЕРЫ ПРОГРАММ Задача № 1 Пусть на диске (в текущем каталоге) есть файл myf
Описание слайда:

ПРИМЕРЫ ПРОГРАММ Задача № 1 Пусть на диске (в текущем каталоге) есть файл myfile.dat, который состоит из некоторого числа целых чисел, разделенных пробелами. Написать программу, вычисляющую сумму этих элементов.

№ слайда 13 var f :text; x: integer; Summa:longint; Begin {$I-} assign(f, 'myfile.dat');
Описание слайда:

var f :text; x: integer; Summa:longint; Begin {$I-} assign(f, 'myfile.dat'); reset(f); {$I+} begin Summa:=0; while not Eof(f) do begin read(f,x); Summa:=Summa+x end; Writeln('Summa= ', Summa:8); end; Close(f); end.

№ слайда 14 СОЗДАНИЕ ФАЙЛОВ 1 способ – с помощью текстового редактора, например Блокнот и
Описание слайда:

СОЗДАНИЕ ФАЙЛОВ 1 способ – с помощью текстового редактора, например Блокнот или Pascal. 2 способ – программными средствами. Открыть файл процедурой Rewrite ( f ) Процедурой REWRITE нельзя открыть запись информации в уже существующий файл. При выполнении этой процедуры старый файл с таким же именем уничтожается и никаких сообщений в программу не передается.

№ слайда 15 Задача № 2 Написать программу, в которой в текстовый файл записываются данные
Описание слайда:

Задача № 2 Написать программу, в которой в текстовый файл записываются данные 10 учеников: имя, вес и рост.

№ слайда 16 var f : text; 	name : string [ 10 ] ; 	ves : real; 	ROST : real; 	Otvet : cha
Описание слайда:

var f : text; name : string [ 10 ] ; ves : real; ROST : real; Otvet : char; i:integer; Begin Assign ( f, ‘ deti . txt ‘ ) ; { $ | - } { проверяем, существует ли такой файл } Rewrite ( f ) ; For i : = 1 to 10 do Begin Writeln ( ‘ введите имя, вес и рост ‘ ); Readln ( name, ves, rost ); Writeln ( f, name : 10, ves : 4, rost : 5:2 ); End; Close ( f ); End.

№ слайда 17 Задача № 3 Написать программу, которая считывает слова из одного текстового ф
Описание слайда:

Задача № 3 Написать программу, которая считывает слова из одного текстового файла и записывает их в столбик в другой текстовый файл. Пояснение: слова разделяются символом пробел. Поэтому мы будем считывать символы из первого файла и «складывать» их в слово до тех пор, пока не встретиться пробел. Потом это слово запишем во второй файл и опять начнем формировать следующее слово. И так до тех пор, пока не достигнем конца первого файла.

№ слайда 18 Program slovo; var f,h:text; bukva:char; slovo:string; begin assign(f,'f.txt'
Описание слайда:

Program slovo; var f,h:text; bukva:char; slovo:string; begin assign(f,'f.txt'); assign(h,'h.txt'); reset(f); rewrite(h); slovo:=' '; while not eof(f) do begin read(f, bukva); if bukva<>' ' then begin slovo:=slovo+bukva; end else begin writeln(h,slovo); writeln(slovo); slovo:=' '; End ; end; Close (f); Close (h); end.

№ слайда 19 Пример 1. Нахождение площади треугольника по формуле Герона. Исходные файлы i
Описание слайда:

Пример 1. Нахождение площади треугольника по формуле Герона. Исходные файлы input.txt (формат 3 5 7) Вывод результатов во внешний файл output.txt Задача №4 Фо́рмула Герона позволяет вычислить площадь треугольника (S) по его сторонам a, b, c: где p — полупериметр треугольника: .

№ слайда 20 var  a,b,c:integer; s,p:real; f,g:text; begin assign(f,&#039;input.txt&#039;); reset(f)
Описание слайда:

var  a,b,c:integer; s,p:real; f,g:text; begin assign(f,'input.txt'); reset(f); readln(f,a,b,c); close(f); assign(g,'output.txt'); rewrite(g); if(a+b>c)and (a+c>b)and(b+c>a) and (a>0)and(b>0)and(c>0) then begin p:=(a+b+c)/2; s:=sqrt(p*(p-a)* (p-b)* (p-c)); writeln (g,s:12:6); end else writeln(g,-1); close(g); end.

№ слайда 21 Задача №5 Даны три целых числа. Определить, имеется ли среди них хотя бы одна
Описание слайда:

Задача №5 Даны три целых числа. Определить, имеется ли среди них хотя бы одна пара равных между собой чисел. Формат входных данных: Входной файл содержит три целых числа через пробел. Формат выходных данных: Выведите 'YES' если это так, и 'NO' в противном случае. Входные данные 544 935 911 Выходные данные NO

№ слайда 22 Var a,b,c:integer; f,g: text; begin assign (f,&#039;input.txt&#039;); reset (f); readln
Описание слайда:

Var a,b,c:integer; f,g: text; begin assign (f,'input.txt'); reset (f); readln (f,a,b,c); close (f); assign (g,'output.txt'); rewrite (g); if (a=b) or (b=c) or (c=a) then writeln (g,'YES') else writeln (g,'NO'); close(g); end.

№ слайда 23 Графика в PascalABC.Net При работе с графическим окном нужно учитывать две ос
Описание слайда:

Графика в PascalABC.Net При работе с графическим окном нужно учитывать две особенности. Во-первых, начало координат – точка (0, 0) – находится не где-то посредине окна, а в левом верхнем углу. Вторая особенность связана с первой: положительное направление оси OY показывает не вверх, а вниз (OX направлена вправо).

№ слайда 24 Надо выполнить преобразование системы координат таким образом, чтобы точка (0
Описание слайда:

Надо выполнить преобразование системы координат таким образом, чтобы точка (0, 0) находилась посредине окна (в любой нужной точке), а ось OY была направлена вверх. Стандартное преобразование в прямоугольной правой системе координат выглядит следующим образом:

№ слайда 25 Здесь x0 и y0 – координаты точки, в которую мы хотим перенести начало координ
Описание слайда:

Здесь x0 и y0 – координаты точки, в которую мы хотим перенести начало координат новой системы, x и y – координаты точки в старой системе, x1 и y1 – координаты точки в новой системе. Но поскольку ось OY в графическом окне Паскаля направлена вниз, то для её разворота вверх нужно, естественно, знак координаты y поменять на противоположный (вместо y поставить -y).

№ слайда 26 Основные команды TextOut(x, y, s) – Вывод текста в графическое окно. При этом
Описание слайда:

Основные команды TextOut(x, y, s) – Вывод текста в графическое окно. При этом текст (строка s) записывается в прямоугольную область таким образом, что точка с координатами (x, y) находится в левом верхнем углу первой буквы; Line(x1, y1, x2, y2) – Проводит отрезок от точки (x1, y1) до точки (x2, y2); DrawCircle(x, y, r) – Рисует окружность с центром (x, y) и радиусом r.

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

№ слайда 28 WindowWidth - ширина графического окна; WindowHeight - высота графического ок
Описание слайда:

WindowWidth - ширина графического окна; WindowHeight - высота графического окна (в пикселях); ClearWindow - эта процедура очищает окно белым цветом; sleep(ms) - задержка (пауза) на ms миллисекунд.



Самые низкие цены на курсы переподготовки

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

После окончания обучения выдаётся диплом о профессиональной переподготовке установленного образца с присвоением квалификации (признаётся при прохождении аттестации по всей России).

Обучение проходит заочно прямо на сайте проекта "Инфоурок", но в дипломе форма обучения не указывается.

Начало обучения ближайшей группы: 20 сентября. Оплата возможна в беспроцентную рассрочку (10% в начале обучения и 90% в конце обучения)!

Подайте заявку на интересующий Вас курс сейчас: https://infourok.ru

Общая информация

Номер материала: ДВ-483308

Похожие материалы

2017 год объявлен годом экологии и особо охраняемых природных территорий в Российской Федерации. Министерство образования и науки рекомендует в 2017/2018 учебном году включать в программы воспитания и социализации образовательные события, приуроченные к году экологии.

Учителям 1-11 классов и воспитателям дошкольных ОУ вместе с ребятами рекомендуем принять участие в международном конкурсе «Законы экологии», приуроченном к году экологии. Участники конкурса проверят свои знания правил поведения на природе, узнают интересные факты о животных и растениях, занесённых в Красную книгу России. Все ученики будут награждены красочными наградными материалами, а учителя получат бесплатные свидетельства о подготовке участников и призёров международного конкурса.

Конкурс "Законы экологии"