Разделы презентаций
- Разное
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
Программирование на языке Паскаль
Содержание
- 1. Программирование на языке Паскаль
- 2. Как работать с файлами?файлытекстовыедвоичные«plain text»: текст, разбитый
- 3. Принцип сэндвичаvar Fin, Fout: Text;Assign(Fin, 'input.txt');Assign(Fout, 'output.txt');Reset(Fin);
- 4. Ввод данныхvar a, b: integer; Fin:
- 5. Вывод данных в файлvar a, b: integer;
- 6. Чтение неизвестного количества данныхЗадача. В файле записано
- 7. Задачи«A»: Напишите программу, которая находит среднее арифметическое
- 8. Скачать презентанцию
Как работать с файлами?файлытекстовыедвоичные«plain text»: текст, разбитый на строки;из специальных символов только символы перехода на новую строкулюбые символырисунки, звуки, видео, …
Слайды и текст этой презентации
Слайд 2Как работать с файлами?
файлы
текстовые
двоичные
«plain text»:
текст, разбитый на строки;
из специальных
символов только символы перехода на новую строку
…
Слайд 3Принцип сэндвича
var Fin, Fout: Text;
Assign(Fin, 'input.txt');
Assign(Fout, 'output.txt');
Reset(Fin); { открыть
на чтение }
Rewrite(Fout); { открыть на запись }
{
здесь работаем с файлами }Close(Fout); { закрыть файлы }
Close(Fin);
файловые переменные
связать с файлами
хлеб
хлеб
начинка
Слайд 4Ввод данных
var a, b: integer;
Fin: Text;
...
Assign(Fin, 'input.txt');
Reset(Fin);
Close(Fin);
Close(Fin);
Reset(Fin);
readln(Fin,
a, b);
Переход к началу открытого файла:
if Eof(Fin) then { end
of file }write('Данные кончились');
Определение конца файла:
Слайд 5Вывод данных в файл
var a, b: integer;
Fout: Text;
...
a:=
1; b:= 2;
Assign(Fout,'output.txt');
Rewrite(Fout);
Close(Fout);
writeln(Fout, a, '+', b, '=', a+b);
Слайд 6Чтение неизвестного количества данных
Задача. В файле записано в столбик неизвестное
количество чисел. Найти их сумму.
program z1;
var s,x:integer;
fin: text;
begin
assign(fin,'input.txt');
reset(fin);
s:=0;while not (eof(fin)) do
begin
readln(fin,x);
s:=s+x;
end;
close(fin);
writeln(s)
end.
Слайд 7Задачи
«A»: Напишите программу, которая находит среднее арифметическое всех чисел, записанных
в файле в столбик, и выводит результат в другой файл.
program
z2;var s,x,k:integer;
fin,res: text;
begin
assign(fin,'input.txt');
reset(fin);
s:=0;
k:=0;
while not (eof(fin)) do
begin
readln(fin,x);
s:=s+x;
k:=k+1;
end;
close(fin);
assign(res,'output.txt');
rewrite(res);
writeln(res,s/k);
close(res);
end.
