wayground logo

Free Printable Worksheets

Font size

S
M
L
XL
Worksheets

Файлы в Pascale

Total questions: 13

Worksheet time: 8mins

Name
Class
Date
1.

Каким оператором файл открывается для чтения ?

a)

ReadLn

b)

Read

c)

Reset

d)

ReadKey

e)

Record

2.

При описании соответствия файловой переменной реальному файлу должен быть оператор

a)

File Open

b)

Append

c)

Add

d)

Assign

e)

Watch

3.

Какая строка должна быть при закрытии файла ?

a)

Closetext;

b)

End.

c)

Writeln;

d)

Eof

e)

Сlose(F);

4.

Какая строка ставит в соответствие физический файл и файловую переменную ?

a)

Assign ( F, file.pas ) ;

b)

File Open ( F, 'C:\pascal\file.pas' ) ;

c)

Append ( F, 'C:\pascal\file.pas' ) ;

d)

File ( F, 'C:\pascal\file.pas' ) ;

e)

Assign ( F, 'C:\pascal\file.pas' ) ;

5.

Какой тип может быть у файловой переменной ( в разделе описания ) ?

a)

DOUBLE

b)

STRING

c)

TEXT

d)

BOOLEAN

e)

INTEGER

6.

Каким оператором файл открывается для добавления данных?

a)

Delay

b)

Append

c)

Debug

d)

Add

e)

Rewrite

7.

Чем отличается запись в файл от добавления данных?

a)

При записи файл создается, а при добавлении нет

b)

Ничем

c)

При записи идет обращение к подпрограмме, а при добавлении нет

d)

При записи файл создается или стирает предыдущие записи, а при добавлении только создается или добавляет

e)

Запись идет с начала строки, а добавление с конца первой строки

8.

Каким оператором файл открывается для записи ?

a)

Rewrite

b)

Open

c)

Write

d)

Output

9.

При работе с файлами обязательно надо описать …

a)

Файловую переменную

b)

Строковую переменную

c)

Константы

d)

Подпрограмму

10.

Выбери условие "конец файла"

a)

if eof(f) then ...

b)

if eoln(f) then ...

c)

if filepos(f) > 0 then ...

d)

if ioresult = 0 then ...

11.

Выбери условие "конец строки"

a)

if eof(f) then ...

b)

if eoln(f) then ...

c)

if filepos(f) > 0 then ...

d)

if ioresult = 0 then ...

12.

Напишите имя физического файла из программы:

Var flo:text;

a,i:integer;

Begin

Assign(flo,'data.txt');

Rewrite(flo);

Writeln('введите 10 цифр');

For i:=1 to 10 do

Begin

Read(a);

Write(flo,a)

End;

Close(flo);

end.

(a)  

13.

Напишите имя логического файла из программы:

Var flo:text;

a,i:integer;

Begin

Assign(flo,'data.txt');

Rewrite(flo);

Writeln('введите 10 цифр');

For i:=1 to 10 do

Begin

Read(a);

Write(flo,a)

End;

Close(flo);

end.

(a)