Презентация на тему: Программирование на языке Паскаль

Реклама. Продолжение ниже
Программирование на языке Паскаль
Как работать с файлами?
Принцип сэндвича
Ввод данных
Вывод данных в файл
Чтение неизвестного количества данных
Задачи
1/7
Средняя оценка: 4.1/5 (всего оценок: 87)
Код скопирован в буфер обмена
Скачать (273 Кб)
Реклама. Продолжение ниже
1

Первый слайд презентации: Программирование на языке Паскаль

§ 68. Работа с файлами 1

Изображение слайда
1/1
2

Слайд 2: Как работать с файлами?

2 файлы текстовые двоичные « plain text » : текст, разбитый на строки; из специальных символов только символы перехода на новую строку любые символы рисунки, звуки, видео, …

Изображение слайда
1/1
3

Слайд 3: Принцип сэндвича

3 var Fin, Fout: Text ; Assign (Fin, 'input.txt' ); Assign (Fout, 'output.txt' ); Reset (Fin); { открыть на чтение } Rewrite (Fout); { открыть на запись } { здесь работаем с файлами } Close (Fout); { закрыть файлы } Close (Fin); файловые переменные связать с файлами открыть файл работа с файлом закрыть файл хлеб хлеб начинка

Изображение слайда
Изображение для работы со слайдом
Изображение для работы со слайдом
Изображение для работы со слайдом
1/4
4

Слайд 4: Ввод данных

4 var a, b: integer ; Fin: Text ; ... Assign (Fin, ' input. txt ' ) ; Reset (Fin); Close ( Fi n ) ; Close (Fin); Reset ( Fin); readln (Fin, a, b); Переход к началу открытого файла : if Eof (Fin) then { end of file } write( ' Данные кончились ' ); Определение конца файла :

Изображение слайда
1/1
5

Слайд 5: Вывод данных в файл

5 var a, b: integer ; Fout : Text ; ... a:= 1 ; b:= 2 ; Assign ( Fout, ' output. txt ' ) ; Rewrite ( Fout ); Close (F out ) ; writeln(Fout, a, '+', b, '=', a+b);

Изображение слайда
1/1
6

Слайд 6: Чтение неизвестного количества данных

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.

Изображение слайда
1/1
7

Последний слайд презентации: Программирование на языке Паскаль: Задачи

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.

Изображение слайда
1/1
Реклама. Продолжение ниже
Реклама. Продолжение ниже