Рабочие листы
к вашим урокам
Скачать
1 слайд
Решение задач
с использованием
ввода-вывода из файлов
Урок
2 слайд
§25 (стр. 169–175) – повторить.
Домашнее задание
3 слайд
Организация ввода данных с использованием файлов
Read или Readln – чтение из файла
Close – закрытие файла
Assign - назначает файловой переменной имя внешнего файла.
Reset - открывает существующий файл.
Readln (<файловая переменная>,<имя файла>)
Close (<файловая переменная>)
Assign (<файловая переменная>,<имя файла>)
Reset (<файловая переменная>)
Описание
4 слайд
Организация вывода данных с использованием файлов
Write или Writeln – запись в файл
Close – закрытие файла
Assign - назначает файловой переменной имя внешнего файла.
Rewrite - открывает файл для записи.
Write (<файловая переменная>,<список вывода>)
Writeln (<файловая переменная>,<список вывода>)
Close (<файловая переменная>)
Assign (<файловая переменная>,<имя файла>)
Rewrite (<файловая переменная>)
Описание
Замечание: 1. При выводе, информация которая была в файле удаляется;
2. Русский алфавит не передается;
5 слайд
Задача
В текстовом файле с именем matrica.txt записана следующая числовая
матрица. Создать массив по правилу: 1 элемент этого массива равен сумме элементов 1 строки матрицы, 2 элемент –
сумме 2 строки и т.д. В файл с именем matrica2.txt вывести числовую матрицу и полученный массив.
Формализация
Ввести элементы матрицы в программу из текстового файла .
Посчитать сумму 1 строки и присвоить это значение первому
элементу нового массива, затем также для второй строки и т.д.
Вывести его в текстовой файл персональную матрицу и новый массив.
6 слайд
Program Matrica;
Var M1: array [1..4,1..5] of integer;
M2: array [1..4] of integer;
i,j: byte; s:integer;
F1: text; {файловая
Переменная}
Begin
Assign (F1,'matrica.txt'); {Связывание
F1 с файлом matrica.txt}
Reset(F1); {Открытие файла
для чтения}
For i:=1 to 4 do
Begin
For j:=1 to 5 do
Read (F1, M1[I,j]); {Последовательное чтение из одной строки}
Readln(F1); {переход к
следующей строке}
End;
Close(F1); {Закрытие файла}
For i:=1 to 4 do
Begin
s:=0;
For j:=1 to 5 do
s:=s+M1[i,j]; {находим сумму
элементов i строки}
M2[i]:=s;
End;
Assign (F1,'matrica2.txt'); {Связывание F1 с файлом matrica2.txt}
Rewrite (F1); {открытие файла
для записи}
For i:=1 to 4 do
Begin
For j:=1 to 5 do
Write (F1, M1[i,j]:4);
Writeln(F1);
End;
WriteLn(F1);
For i:=1 to 4 do Write(F1,M2[i]:4);
Close(F1); {Закрытие файла}
End.
7 слайд
Работаем за компьютером
Рабочие листы
к вашим урокам
Скачать
6 626 054 материала в базе
Настоящий материал опубликован пользователем Орлова Лилия Николаевна. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт
Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.
Удалить материалВаша скидка на курсы
40%Курс повышения квалификации
36 ч. — 180 ч.
Курс профессиональной переподготовки
300 ч. — 1200 ч.
Курс повышения квалификации
36 ч. — 144 ч.
Мини-курс
2 ч.
Мини-курс
4 ч.
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.