Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015

Автоматическая выдача свидетельства о публикации в официальном СМИ сразу после добавления материала на сайт - Бесплатно

Добавить свой материал

За каждый опубликованный материал Вы получите бесплатное свидетельство о публикации от проекта «Инфоурок»

(Свидетельство о регистрации СМИ: Эл №ФС77-60625 от 20.01.2015)

Инфоурок / Информатика / Другие методич. материалы / Работа с файлами На Паскаль 9 сынып
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону № 313-ФЗ все педагоги должны пройти обучение навыкам оказания первой помощи.

Дистанционный курс "Оказание первой помощи детям и взрослым" от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (180 часов). Начало обучения новой группы: 26 апреля.

Подать заявку на курс
  • Информатика

Работа с файлами На Паскаль 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

"Инфоурок" приглашает всех педагогов и детей к участию в самой массовой интернет-олимпиаде «Весна 2017» с рекордно низкой оплатой за одного ученика - всего 45 рублей

В олимпиадах "Инфоурок" лучшие условия для учителей и учеников:

1. невероятно низкий размер орг.взноса — всего 58 рублей, из которых 13 рублей остаётся учителю на компенсацию расходов;
2. подходящие по сложности для большинства учеников задания;
3. призовой фонд 1.000.000 рублей для самых активных учителей;
4. официальные наградные документы для учителей бесплатно(от организатора - ООО "Инфоурок" - имеющего образовательную лицензию и свидетельство СМИ) - при участии от 10 учеников
5. бесплатный доступ ко всем видеоурокам проекта "Инфоурок";
6. легко подать заявку, не нужно отправлять ответы в бумажном виде;
7. родителям всех учеников - благодарственные письма от «Инфоурок».
и многое другое...

Подайте заявку сейчас - https://infourok.ru/konkurs

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

№ слайда 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 миллисекунд.

Автор
Дата добавления 25.02.2016
Раздел Информатика
Подраздел Другие методич. материалы
Просмотров298
Номер материала ДВ-483308
Получить свидетельство о публикации

"Инфоурок" приглашает всех педагогов и детей к участию в самой массовой интернет-олимпиаде «Весна 2017» с рекордно низкой оплатой за одного ученика - всего 45 рублей

В олимпиадах "Инфоурок" лучшие условия для учителей и учеников:

1. невероятно низкий размер орг.взноса — всего 58 рублей, из которых 13 рублей остаётся учителю на компенсацию расходов;
2. подходящие по сложности для большинства учеников задания;
3. призовой фонд 1.000.000 рублей для самых активных учителей;
4. официальные наградные документы для учителей бесплатно(от организатора - ООО "Инфоурок" - имеющего образовательную лицензию и свидетельство СМИ) - при участии от 10 учеников
5. бесплатный доступ ко всем видеоурокам проекта "Инфоурок";
6. легко подать заявку, не нужно отправлять ответы в бумажном виде;
7. родителям всех учеников - благодарственные письма от «Инфоурок».
и многое другое...

Подайте заявку сейчас - https://infourok.ru/konkurs


Выберите специальность, которую Вы хотите получить:

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

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ


Идёт приём заявок на международный конкурс по математике "Весенний марафон" для учеников 1-11 классов и дошкольников

Уникальность конкурса в преимуществах для учителей и учеников:

1. Задания подходят для учеников с любым уровнем знаний;
2. Бесплатные наградные документы для учителей;
3. Невероятно низкий орг.взнос - всего 38 рублей;
4. Публикация рейтинга классов по итогам конкурса;
и многое другое...

Подайте заявку сейчас - https://urokimatematiki.ru

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

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