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

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

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

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

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

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

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

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

Работа с файлами

библиотека
материалов

Предмет: Информатика

Урок: 13

Класс: 9 б

Тема: работа с файлами

Цель урока: научиться решать задачи на файлы

Образовательные: Обучить основным приемам решении задач

Развивающие: развитие логического мышления, расширение кругозора

Воспитательные: развитие познавательного интереса, логического мышления

Оборудование : доска, компьютер,тетрадь.

План урока:

  1. Организационный момент(1 мин)

  2. Проверка и актуализация знаний(5мин)

  3. Теоретическая часть (25мин)

  4. Д\з (2 мин)

  5. Вопросы учеников(5 мин)

  6. Итог урока (2 мин)


Ход урока:

  1. Орг. Момент.

Приветствие ,проверка присутствующих. Объяснение хода урока.

  1. Проверка и актуализация знаний.

Вопросы: Ребята давайте вспомним: что такое структурное, модульное, объектно - ориентированное программирование, облачные технологии ? расскажите историю развития программирования

3. Теоретическая часть

При работе с файлами в TP используются следующие процедуры:

assign(var F; name: string); — устанавливает соответствие между файлом и файловой переменной, открывает все другие процедуры работы с файлами. F — переменная любого файлового типа, name — полное имя файла.
close(var F);
 — окончание процедур работы с файлами (закрытие файла).
rewrite(var F: file);
 — создаёт и открывает новый файл.
reset(var F: file);
 — открывает существующий файл.
append(var F: text);
 — открывает существующий текстовый файл и позиционирует указатель обработки на конец файла.

    После этого можно дополнять текстовый файл информацией, начиная с конца строки.

    erase(var F); — удаляет неоткрытый внешний файл любого типа, задаваемый переменной F.
   
 rename(var F: newname: string); — переименовывает неоткрытый файл F любого типа. Новое имя задаётся строкой newname.

    Текстовый файл можно рассматривать как последовательность символов, разбитую на строки длиной от 0 до 256 символов. Для описания используется стандартный тип text: var F: text; (F — файловая переменная).
    Стандартные типы данных не требуют описания в разделе type в отличие от типов, образованных пользователем. Формат раздела:

type <имя типа> = <значение типа>;
Имя и значение типа даёт пользователь.

    Пример: type fil=text;

    Рассмотрим работу с файлами в TP на примерах.

    Пример 1. Запись текстового файла на диск и ввод в него текста.

program wtf;
type fil=text;
var f1:fil; name:string[35]; txt:string;
begin
    write('Введите имя файла для записи текста>');
    readln(name);
    writeln;
    assign(f1,name);
    rewrite(f1);
    writeln('Введите текст для записи (для окончания-Enter):');
    writeln;
    repeat
       write(':>');
       readln(txt);
       writeln(f1,txt);
    until txt='';
    close(f1);
    writeln;
    writeln('Ввод окончен, нажмите Enter.');
    readln;
end.

    Пример 2. Запись результата вычисления в текстовый файл.

program wtf1;
uses crt;
type fil=text;
var f1:fil; name:string[35]; txt:string;
var i,n:real;s,q:real;
begin
    clrscr;
    writeln('Для вычисления суммы ряда S=1+1/4+1/9+...+1/n2,');
    write('введите n=1,2,3...: n=');
    read(n);
    i:=1;
    S:=1;
    while i<>n do
       begin
          i:=i+1;
          s:=s+1/(i*i);
        end;
    writeln('Сумма членов ряда равна S=',s);
    name:='rezult.txt';
    txt:='Сумма ряда S=1+1/4+1/9+...+1/n2 равна: S=';
    writeln;
    assign(f1,name);
    rewrite(f1);
    writeln(f1,txt,s,' при n=',n:9:0);
    close(f1);
    writeln('Ваш результат будет записан в файл rezult.txt');
    writeln('Для выхода из программы нажмите Enter.');
    readkey;
end.

    Пример 3. Чтение последовательности длиной до 35 символов из текстового файла example.txt (его содержимое, например, "23456 Всем привет!"

    Функция Eoln(var F: text) возвращает булевское значение True, если текущая файловая позиция находится на маркере конца строки или вызов Eof(F) возвратил значение True. Во всех других случаях значение функции будет False.

    Функция Eof(var F: text) возвращает булевское значение True, если указатель конца файла находится сразу за последним компонентом. В противном случае — False.

program wtf2;
var F: text; St: string[35];
begin
    assign(F, 'example.txt'); {Файл example.txt должен существовать!}
    reset(F);
    while not Eoln(F) do

        begin {Проверка конца строки}
          read(F,St);
          writeln('St = ',St); {Вывод на экран}
        end;
    readln(F); {Переход к следующей строке}
    close(F);
    writeln('Вывод символов из файла окончен. Для выхода — Enter.');
    readln;
end.

4.Домашнее задание: Учить по конспекту.

5.Вопросы учеников: ответы на вопросы учащихся.

6. Итог урока: подведение итога урока. Выставление оценок



\


Подайте заявку сейчас на любой интересующий Вас курс переподготовки, чтобы получить диплом со скидкой 50% уже осенью 2017 года.


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

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

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

Краткое описание документа:

разработка урока для 9 класса даст научиться решать задачи на файлы

Обучить основным приемам решении задач, подробнее узнать описание и назначение используются при работе на файле в Тurbo Pascale

развитие логического мышления, расширение кругозора

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

Автор
Дата добавления 26.04.2015
Раздел Информатика
Подраздел Рабочие программы
Просмотров265
Номер материала 254470
Получить свидетельство о публикации
Похожие материалы

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