Remkomplekty.ru

IT Новости из мира ПК
6 просмотров
Рейтинг статьи
1 звезда2 звезды3 звезды4 звезды5 звезд
Загрузка...

Файлы паскаль задачи с решением

Решение задач на тему «Текстовые файлы» с использованием среды программирования Turbo Pascal

Цель урока: обобщение и систематизация знаний по теме: “Текстовые файлы” с помощью решения задач

Образовательная – повторить и обобщить знания по данной теме с помощью решения задач используя язык программирования Turbo Pascal.

Воспитательная – содействовать в ходе урока формированию внимательности, самостоятельности.

Развивающая – развитие логического мышления учащихся, умения решать задачи по данной теме.

Тип урока: урок решения задач

  • Организационный этап (5 мин)
  • Вводно-мотивационный этап (15 мин)
  • Операционно-содержательный этап (45 мин)
  • Рефлексивно-оценочный этап (10 мин)
  • Домашнее задание (5 мин)
  • Оборудование: ПК, программное обеспечение

    Ход работы

    1. Организационный этап.

    Здравствуйте, ребята, садитесь. Сегодня на уроке мы с вами будем решать задачи на тему “Текстовые файлы” используя язык программирования Turbo Pascal.

    2. Вводно-мотивационный этап (актуализация опорных знаний).

    Опрос на тему: “Текстовые файлы”.

    1. Что такое файл?
    2. Для каких целей используются файлы?
    3. Каковы требования к именам файлов?
    4. Назовите основные процедуры текстовых файлов.

    3. Операционно-содержательный этап

    Начинаем решение задач.

    (Все программы перед компиляцией следует сохранять. )

      Написать программу, которая создает текстовый фай, содержащий сведения о вашем друге (подруге): фамилия, имя, дата рождения.

    Program primer;
    Var f:text;
    Fam,name,date:string;
    Begin
    Assign(f,’drug.txt’);
    Rewrite(f);
    Writeln(‘Введите фамилию’);
    Readln(fam);
    Writeln(f,fam);
    Writeln(‘Введите имя’);
    Readln(name);
    Writeln(f,name);
    Writeln(‘Введите дату рождения’);
    Readln(date);
    Writeln(f,date);
    Close(f);
    End.

    (Предлагается решить самостоятельно. Решение аналогично) Написать программу, которая создает текстовый фай, содержащий информацию о книге: автор, название, год издания.

    Program biblioteka;
    Var f:text;
    Avtor,nazvanie:string;
    God:integer;
    Begin
    Assign(f,’biblioteka.txt’);
    Rewrite(f);
    Writeln(‘Введите автора книги’);
    Readln(avtor);
    Writeln(f,avtor);
    Writeln(‘Введите название книги’);
    Readln(nazvanie);
    Writeln(f,nazvanie);
    Writeln(‘Введите год издания’);
    Readln(god);
    Writeln(f,god);
    Close(f);
    End.

    Открыть существующий файл drug.txt и дополнить его информацией о хобби своего друга (подруги).

    Program primer2;
    Var f:text;
    Hob:srting;
    Begin
    Assign(f,’drug.txt’);
    Append(f);
    Writeln(‘Введите хобби’);
    Readln(hob);
    Writeln(f,hob);
    Close(f);
    End.

    (Предлагается решить самостоятельно. Решение аналогично). Открыть существующий файл biblioteka.txt и дополнить его информацией о количестве страниц в книге.

    Program Biblioteka2;
    Var f:text;
    str:srting;
    Begin
    Assign(f,’biblioteka.txt’);
    Append(f);
    Writeln(‘Введите количество страниц в книге’);
    Readln(str);
    Writeln(f,str);
    Close(f);
    End.

    Создать текстовый файл chisla.dat, содержащий все четные двузначные числа.

    Program primer3;
    Var f:text;
    I:integer;
    Begin
    Assign(f,’chisla.dat);
    Rewrite(f);
    For i:=10 to 99 do
    If i mod 2=0 then writeln(f,i);
    Close(f);
    End.

  • (Предлагается решить самостоятельно. Решение аналогично). Создать текстовый файл proba.dat, содержащий все трехзначные числа, кратные 125.
  • Program probnik;
    Var f:text;
    I:integer;
    Begin
    Assign(f,’proba.dat);
    Rewrite(f);
    For i:=100 to 999 do
    If i mod 125=0 then writeln(f,i);
    Close(f);
    End.

    Рефлексивно-оценочный этап (10 мин). Проверка программ, выставление оценок за урок

    Домашнее задание. Попов. Turbo Pascal для школьников. Стр 314 №11, №15.

    Oh, MSBRO !

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

    Pascal: Примеры задач с решением

    Задача 1.

    Вычислить: y = sin1 + sin1.1 + sin1.2 + … + sin2.

    Первый вариант решения данной задачи.

    Анализируя данную формулу, видим, что аргумент функции sin очередного слагаемого отличается от предыдущего на 0.1. Поэтому для решения данной задачи можно составить следующий алгоритм:

    с – очередное слагаемое;

    i – аргумент функции;

    1. Обнуляем начальное значение переменной y (строка 5), в которой будем накапливать сумму.
    2. Начальное значение аргумента функции i равно 1 (строка 6).
    3. Проверяем, значение i меньше или равно 2, т.к. по заданию аргумент функции изменяется от 1 до 2 (строка 7)?
    4. Если «да», то определяем очередное значение функции (строка 9). Сохраняем его в переменной с. Если «нет», то расчет суммы закончен – переходим на шаг 78.
    5. Добавляем это слагаемое в сумму (строка 10).
    6. Увеличиваем значение аргумента i на 0.1 (строка 11).
    7. Переходим на шаг 3.
    8. Выводим результат на экран (строка 13).

    Второй вариант решения данной задачи.

    Анализируя данную формулу, видим, что каждое слагаемое данной суммы можно рассчитать по формуле sin(1 + 0.1 * i), где i изменяется от 0 до 10. Поэтому для решения данной задачи можно составить следующий алгоритм.

    Читать еще:  На каком языке написан паскаль

    i – параметр цикла;
    y – сумма.

    1. Обнуляем начальное значение переменной y (строка 6), в которой будем накапливать сумму.
    2. Организуем цикл для определения суммы (параметр дан-ного цикла должен измениться от 0 до 10) .
    3. В данном цикле определяем очередное слагаемое по фор-муле и добавляем это слагаемое в сумму (строка 7).
    4. Выводим результат на экран (строка 8).

    Задача 2.

    Вычислить: y = 1*3*5* … *(2n–1), n>0;

    Задача 3.

    Дано натуральное число N. Разложить его на простые множители.

    n – исследуемое число;

    i, j – переменные циклов;

    f – вспомогательный флаг.

    Алгоритм решения задачи:

    1. Вводим значение переменной n. Т.к. пользователь может случайно ввести отрицательное число, то необходимо дать ему возможность для повторного ввода значения переменной n. По-этому организуем цикл (строки 3–6 текста программы). Лучше использовать цикл с пост проверкой условия (Repeat…Until). Тело цикла составляют два оператора: вывода на экран приглашения для ввода значения переменной n (строка 4) и оператор чтения с клавиатуры – для непосредственного ввода значения переменной n (строка 5). Данный цикл будет выполняться до тех пор, пока пользователь не введет любое положительное число (срока 6).
    2. Выводим на экран значение переменной n и начинаем формировать ответ. Ответ будет представлен в следующем виде (например, в качестве значения переменной n ввели 8): 8 = 1*2*2*2. Т.к. единица является простым множителем для любого числа, то выводим ее на экран (строка 7). В результате выполнения данной строки на экране появится: 8=1.
    3. Вспомогательной переменной f присваиваем значение false. Данная переменная нам будет необходима для определения, а были ли вообще найдены простые множители у заданного числа n. Запоминаем исходное значение переменной n в переменной j (строка 8).
    4. В цикле по переменной i начинаем порождение натуральных чисел, не превосходящих середины заданного числа n, для определения делителей данного числа n (строка 9). Данный цикл начали с 2, т.к. единицу мы уже учли (шаг 2 данного алгоритма). Т.к. в цикле For можно использовать только целые переменные, то воспользовались оператором целочисленного деления на 2 (n div 2). В данном цикле выполняем следующее. Определяем, является ли очередное i делителем числа n (в качестве n в данном цикле используем j). Для этого определяем остаток от деления j на i. Если остаток равен 0 (строка 10), т.е. число i является делителем j, то определяем, сколько таких делителей, уменьшая число n (строки 11–18). Переменной f присваиваем значение true (строка 12) – это означает, что у заданного числа n есть делители. Организуем цикл, пока остаток от деления j на i равен 0 (строка 13). В данном цикле выводим делитель на экран (строка 15) и уменьшаем заданное число, деля его целочисленно на делитель (строка 16). Повторяем цикл. После завершения этого цикла возвращаемся на цикл For (строка 9), изменяем i и повторяем те же действия для нового делителя.
    5. Если у числа нет делителей (оно является простым), то данное число можно разложить только на 1 и само себя. Вспомогательная переменная f и определяет, были ли делители у числа n. Если значение переменной f осталось false, то делителей не было, поэтому выводим само это число (строка 19).

    лабы по информатике, егэ

    лабораторные работы и задачи по программированию и информатике, егэ по информатике

    Pascal: Занятие № 12 Часть1. Работа с файлами в паскале (текстовые файлы)

    Работа с файлами в паскале

    Виды файлов в зависимости от их описания и режимом работы

    1. текстовые (тип text) файлы со строками неопределенной длины;
    2. файлы с типом записей (двоичные или типизированные (file of) );
    3. файлы без типа для передачи данных блоками записей нетипизированные (file).

    Описание файловых переменных:

    Для связи файла в коде программы и действительного файла на внешнем носителе используется процедура ASSIGN :

    где myfile — имя переменной (объявленной ранее в области var ), ассоциированной с файлом
    c:text.txt — путь к реальному файлу
    Первый аргумент процедуры assign в паскаль — переменная, второй – путь к файлу на диске.

    Читать еще:  Кто разработал язык паскаль

    Текстовые файлы в паскале: процедуры работы

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

    Возможные расширения файлов:
    *.txt, *.log,
    *.htm, *.html

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

    Предусмотрены два режима работы: режим для записи в файл информации и для чтения ее из файла. Одновременная запись и чтение запрещены.

    Открытие файла

    Допустим, мы в программе описали переменную для работы с текстовым файлом:

    Рассмотрим дальнейшую последовательность работы с ним, и рассмотрим процедуры, необходимые для работы с текстовым файлом в Паскале:

    процедура открытия существующего файла для чтения при последовательном доступе:

    процедура открытия создаваемого файла для записи в него информации; если файл с таким именем уже существует, то информация в нем стирается:

    Работа с файлами в Pascal ABC

    Как организовать дистанционное обучение во время карантина?

    Помогает проект «Инфоурок»

    Файлы в Паскале (Pascal). Работа с файлами. Решение задач

    Файл — это упорядоченная последовательность однотипных компонентов, расположенных на внешнем носителе. Файлы предназначены только для хранения информации, а обработка этой информации осуществляется программами. Использование файлов целесообразно в случае:

      долговременного хранения данных ;

      доступа различных программ к одним и тем же данным;

      обработки больших массивов данных, которые невозможно целиком разместить в оперативной памяти компьютера.

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

      Все файлы должны быть описаны в программе либо в разделе переменных VAR, либо в разделе типов TYPE. Под чтением файла понимают ввод данных из внешнего файла, находящегося на диске, в оперативную память машины. Запись в файл — вывод результатов работы программы из оперативной памяти на диск в файл.

      Работа с файлами выполняется следующими процедурами:

      Assign – устанавливает связь между именем файла в программе (файловой переменной ) и физическим именем файла, принятым в ОС.
      Reset — открывает существующий файл для чтения.
      Rewrite – создает и открывает новый файл для записи на внешнем устройстве (если файл ранее существовал, вся предыдущая информация из него стирается).
      Close — закрывает открытый файл.

      Для определения конца файла используется стандартная встроенная функция EOF (файловая переменная), которая принимает значение True, если достигнут конец файла, и значение False в противном случае.

      Текстовые файлы – файлы на диске, состоящие из символов ASCII. Для разделения строк используются символы «конец строки». Текстовые файлы являются файлами с последовательным доступом. В любой момент времени доступна только одна запись файла. Другие записи становятся доступными лишь в результате последовательного продвижения по файлу. Текстовые файлы внутренне разделены на строки, длины которых различны. Для разделения строк используется специальный маркер конца строки. Объявляются текстовые файлы переменной типа text. Обрабатывать их можно только последовательно и с помощью процедур и функций:

      Readln (f , st )- чтение строки st из файла f и переход на начало следующей ;
      Writeln (f, st )- запись строки st в файл f и маркера конца строки ;
      Append (f ) — процедура, открывающая файл f для добавления строк в конец файла;
      Eoln (st )- логическая функция, результат выполнения которой равен TRUE, если достигнут маркер конца строки st.

      Читать еще:  Паскаль шифрования текста гаммированием по модулю

      Пример 1. Создать текстовый файл, в который записать 3 предложения. Прочитать этот файл, вывести его содержимое на экран. Определить длину каждого предложения.

      Типизированные файлы – это файлы, состоящие из нумерованной последовательности объектов (записей) любого типа. С такими файлами можно работать в режиме прямого доступа, при котором выполняется непосредственное обращение к любой записи файла. Каждая запись файла имеет свой номер, начиная с 0 и т.д.
      Процедуры и функции обработки файлов:

      1) Write и Read- записывают и читают информацию из указанного файла и перемещают указатель файла к следующей записи.
      2) Seek (файловая переменная, номер записи); процедура перемещения указателя на запись файла с заданным номером.
      3) Truncate (файловая переменная); процедура, усекающая файл по текущей позиции указателя файла, т.е. все записи, находящиеся после указателя файла, удаляются.
      4) Функция Filesize (файловая переменная); имеет тип Integer и определяет размер файла, т.е. число записей.
      5) Функция Filepos (файловая переменная); имеет тип Integer и возвращает текущую позицию указателя файла.

      Для добавления записей в конец файла используются процедуры:

      При этом указатель устанавливается за конец файла, т.к. нумерация записей начинается с нуля. После чего с помощью Write можно добавлять записи. Открывать файл можно только процедурой Reset (f).
      Для того, чтобы в режиме произвольного доступа считать, а затем изменить значение записи, следует выполнить два вызова процедуры Seek.Один вызов перед операцией Read, а другой — перед операцией Write (т.к. Read после чтения записи переместит указатель к следующей записи).

      Пример: Cоздать файл из списка 10 студентов с их оценками ( номер, Ф.И.О. и три оценки). Вывести его содержимое на экран, изменить фамилию студента с номером, введенным с клавиатуры, заново прочитать файл.

      лабы по информатике, егэ

      лабораторные работы и задачи по программированию и информатике, егэ по информатике

      Pascal: Занятие № 12 Часть1. Работа с файлами в паскале (текстовые файлы)

      Работа с файлами в паскале

      Виды файлов в зависимости от их описания и режимом работы

      1. текстовые (тип text) файлы со строками неопределенной длины;
      2. файлы с типом записей (двоичные или типизированные (file of) );
      3. файлы без типа для передачи данных блоками записей нетипизированные (file).

      Описание файловых переменных:

      Для связи файла в коде программы и действительного файла на внешнем носителе используется процедура ASSIGN :

      где myfile — имя переменной (объявленной ранее в области var ), ассоциированной с файлом
      c:text.txt — путь к реальному файлу
      Первый аргумент процедуры assign в паскаль — переменная, второй – путь к файлу на диске.

      Текстовые файлы в паскале: процедуры работы

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

      Возможные расширения файлов:
      *.txt, *.log,
      *.htm, *.html

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

      Предусмотрены два режима работы: режим для записи в файл информации и для чтения ее из файла. Одновременная запись и чтение запрещены.

      Открытие файла

      Допустим, мы в программе описали переменную для работы с текстовым файлом:

      Рассмотрим дальнейшую последовательность работы с ним, и рассмотрим процедуры, необходимые для работы с текстовым файлом в Паскале:

      процедура открытия существующего файла для чтения при последовательном доступе:

      процедура открытия создаваемого файла для записи в него информации; если файл с таким именем уже существует, то информация в нем стирается:

      Ссылка на основную публикацию
      Adblock
      detector