slide1 n.
Download
Skip this Video
Loading SlideShow in 5 Seconds..
Файлы в языке Паскаль PowerPoint Presentation
Download Presentation
Файлы в языке Паскаль

Loading in 2 Seconds...

play fullscreen
1 / 8

Файлы в языке Паскаль - PowerPoint PPT Presentation


  • 212 Views
  • Uploaded on

Файлы в языке Паскаль. Что такое файл? Для чего нужны файлы? Данные из файла поступают куда? Откуда осуществляется запись в файл?. Работа с файлами. Компилятор Turbo Pascal поддерживает три типа файлов:. Текстовый файл.

loader
I am the owner, or an agent authorized to act on behalf of the owner, of the copyrighted work described.
capcha
Download Presentation

PowerPoint Slideshow about 'Файлы в языке Паскаль' - ksena


An Image/Link below is provided (as is) to download presentation

Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author.While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server.


- - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - -
Presentation Transcript
slide1
Файлы в языке Паскаль
  • Что такое файл?
  • Для чего нужны файлы?
  • Данные из файла поступают куда?
  • Откуда осуществляется запись в файл?
slide2
Работа с файлами

Компилятор Turbo Pascal поддерживает три типа файлов:

slide3
Текстовый файл
  • Хранит информацию в символьном виде (кодов кодировочной таблицы ASCII)
  • это совокупность строк, разделенных метками конца строки
  • Сам файл заканчивается меткой конца файла.
slide5
1ma
  • 2mb
  • Read(f,a,b)
  • Readln(f,a)
  • Readln(f,b)

Иванов 5 4

Петров 3 5

slide6

Пример 1.

Создать текстовый файл, содержащий случайные целые числа (N строк по К чисел в строке).

Program P1;

Var f:Text;i,k,n,j,x:integer;

Begin

Assign(F, ‘c:\temp\file.txt’);

Randomize;

Readln(n,k);

Rewrite(f);

For i:=1 to n do

Begin

For j:=1 to k do begin

x:=Random(1000);

Write (F,x:4);

end;

writeln(F)

End;Close(f)End.

Как просмотреть содержимое файла?

N=3 k=2

995 894

123 562

N=3 k=2

995 894

123 562

slide7

Пример 2.

Вы имеете файл, в котором только числа. Найти сумму чисел в данном файле. Найти количество строк в файле.

Program P2;

Var f:Text; x1,s:integer; x:char;

Begin

Assign(F, ‘c:\temp\file.txt’); max:=0;

Reset(F); While not eof(F) do

Begin s:=0;

While not eoln(F) do

begin

read(F,X);

if (x>=’0’) and (x<=‘5’) then

begin x1:= ord(x)- ord(‘0’);

s:=s+x1; end

end;

readln(F); if s>max then max:=s;

End;

Writeln(s);

Close(f)End.

N=3 k=2

995894

123562

Иванов 5 4

Петров 3 5

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