ПЕСОЧНИЦА - место для Ваших экспериментов!

XXX-files

Материал из ИнтеВики — обучающей площадкой для проведения тренингов программы Intel
Перейти к: навигация, поиск

Изучение сервисов Web 2.0 в рамках курсов повышения квалификации учителей информатики школ г. Магнитогорска

Содержание


Творческое название

Решение задач с файлами


Что развивает у ребенка (учащегося)

Цель урока: отработка умений, навыков, знаний, решение задач по данной теме.

Задачи:

образовательная – формирование навыков составления алгоритмов решения задач с использованием файлов;

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

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

План

Данная тема изучается в 9 классе.


Задача

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

№ п/п Описательный язык Блок-схема Алгоритмический язык
1 название программы Program file;
описание постоянной const n=3;
дневная температура type sved=record
число Day:integer;
месяц Month:string[10];
температура Temper:integer;

end;

описание переменных, файл дневной температуры var DayTemp:sved;

F:file of sved;

начало программы Begin
связываем файловую переменную с файлом на диске assign(f,'a:\temperat.txt');
открываем файл для редактирования записи reset(f);
указатель файла устанавливаем на запись 3 seek(f,n);
writeln(f,DayTemp);

writeln(,n,);

with DayTemp do

writeln(day:5,month:5,temper); Writeln ();

возвращаем указатель файла на запись номер 3 seek(f,n);
with DayTemp do

readln(day, month, temper);

записываем в файл новые данные writeln(f, DayTemp)
закрываем файл close(f);
выводим сообщение writeln('Запись отредактирована');
конец программы end.

Уровни

Условие: Записать n действительных чисел в файле.

№ п/п Описательный язык Алгоритмический язык
1 название программы Program abc;
описание переменных var f:file of real; a:real; i,n:integer;
связываем файловую переменную с файлом на диске var f:file of real; a:real; i,n:integer;
открываем пустой файл для записи rewrite(f);
cчитываем информацию с файла read(n);
определяем количество элементов в файле. В цикле вводим очередной элемент и записываем его в файл for i:=1 to n do

begin write ('a='); read(a); write(f,a) end;

закрываем файл. (Здесь это обязательно) close(f);
конец программы end.

Условие: Текст из 10 строк храниться в файле. Определить, сколько в тексте знаков препинанияю

№ п/п Описательный язык Алгоритмический язык
2 название программы Program znak;
описание переменных var f:text;

i,j,m,n,k:integer;

описание массива строк str:array[1..10] of string[20];
описание множества символов p:set of char;
начало тело программы begin
множество разделителей p:=['.','!','?',';',',',':'];
связываем файловую переменную с файлом на диске assing(f,'prim_8_8.txt);
открыть файл в режиме чтения reset(f)
n:=1
построчное считывание текста из файла while not(eof(f)) do

begin

 readln(f, str[n]);
 writeln(str[n]);
 n:=n+1;

end

закрываем файл close(f);
k:=0;
длина текущей строки for i:=1 to n-1 do

begin

 m:=length(str[i]);
проверка на вхождение символа во множество разделителей for j:=1 to m do

if str[i][j] in P then k:=k+1; end;

вывод результата writeln(k);
конец программы end.

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

№ п/п Описательный язык Алгоритмический язык
3 название программы Program temperatura;
описание переменных var
дневная температура DayTemp:record
число day:integer;
месяц month:integer;
температура temper:integer;
end;
файл дневной температуры F:text;
номер месяца mes:integer;
кол-во дней месяца, о которых есть данные в файле n:integer;
сумма температур месяца summ:integer;
средняя температура sredn:real;
начало тело программы begin
обнуляем данные по сумме температур месяца и кол-ву дней месяца, о которых есть данные в файле n:=0; summ:=0;
выводим сообщение пользователю writeln ('Вычисление

среднемесячной температуры'); writeln(' - ')

компьютер считывает информацию,которую ввел пользователь readln(mes);
связываем файловую переменную с файлом на диске assign(f,'a:\temperat.txt');
открыть файл в режиме чтения reset(f);
подсчет средней температуры месяца while not eof(f)do
 begin
   with DayTemp do
   readln(f,day,month,temper);
   if DayTemp.month=mes then
     begin
     n:=n+1;
     summ:=summ+DayTemp.temper
     end
 end;
закрыть файл close(f);
вывод полученных данных if n<>0 then

begin

 sredn:=summ/n;
 writeln ('Средняя температура:',

sredn:6:3) end

  else writeln ('Данные о температуре

за',mes:3,'месяц нет')

конец программы end.

Помощь

blog help

Оценивание

1 уровень: Найдите в файле и выведите на экран отрицательные числа.

2 уровень: В файле pr_1.dat храниться матрица вещественных чисел A(n,m), B(p,l) и их размеры. Умножить, если это возможно, A на B, результат дописать в файл pr_1.dat.

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

Оценка "3"(обязательный уровень) - решение задач 1 уровня;

Оценка "4" - решение задач 2 уровня;

Оценка "5" - решение задач 3 уровня.

Используемые источники

1. Алексеев Е.Р., Чеснакова О.В. Турбо Паскаль 7.0.-М.:НТ Пресс.

2. Тимошевская Н.Е., Перышкина Е.А. Основы алгоритмизации и программирование на языке Pascal. Рабочая тетрадь: Учебное пособие. - Томск, 2006.

3. Тимошевская Н.Е., Перышкина Е.А. Основы алгоритмизации и программирование на языке Pascal. Справочник: Учебное пособие. - Томск, 2006.

Источник — «/index.php?title=XXX-files&oldid=94614»
Персональные инструменты
Образовательная галактика Intel Программа Intel 'Обучение для будущего' Программа 'Учимся с Intel' Летописи России Инициативы Intel в образовании