Программирование на языке Pascal - тест 7

Упражнение 1:

---

Номер 1

Сколько полей содержится в записи man?
        type data = record day: 1..31;
                         month: 1..12;
                         year: 1900.. 2100;
                  end;
           man = record name: string[20];
                        date_birth: data;
                        case citizen: boolean of
                                true: (birth_place: string[20]);
                               false: (country: string[20];
                                       date_came: data);
                 end;

Ответ:

---

Номер 2

Сколько полей содержится в записи person? 
        type data = record day: 1..31;
                         month: 1..12;
                         year: 1900.. 2100;
                  end;
           person = record name: string[20];
                           date_birth: data;
                         case family_status: char of
                                  'm': (wedding_date: data;
                                        spouse_name: string[20]);
                                  's': (church_celibate: boolean);
                                  'd': (date_divorce: data;);
                                  'w': (date_of_spouse_death: data);
                     end;

Ответ:

---

Номер 3

Сколько полей содержится в записи employee? 
        type data = record day: 1..31;
                         month: 1..12;
                         year: 1900.. 2100;
                  end;
           employee = record name: string[20];
                             date_entering: data;
                           case trade_union: boolean of
                                       true: (date_enter: data;
                                              leader: boolean);
                                      false: (manager: boolean);
                      end;

Ответ:

---

Упражнение 2:

---

Номер 1

Какое значение будет храниться в поле a записи r1 после выполнения следующего блока?
        var a: integer;
    r1: record a: byte;
               ...
        end;
    r2: record a: shortint;
               ...
        end;
begin
 a:= 0;
 with r1 do 
  begin
   r2.a:= -10;
   with r2 do
    begin a:= 100;
          r1.a:= -a;
    end
  end;
 a:= 100;
end.

Ответ:

---

Номер 2

Какое значение будет храниться в поле a записи r1 после выполнения следующего блока?
        var a: longint;
    r1: record a: word;
               ...
        end;
    r2: record a: integer;
               ...
        end;
begin
 a:= 0;
 with r1 do 
  begin
   a:= 1000;
   with r2 do
    begin a:= 1000;
          r1.a:= -a;
    end;
   r2.a:= -100;
  end;
 a:= 100;
end.

Ответ:

---

Номер 3

Какое значение будет храниться в поле a записи r2 после выполнения следующего блока?
        var a: integer;
    r1: record a: longint;
               ...
        end;
    r2: record a: byte;
               ...
        end;
begin
 a:= 0;
 with r2 do 
  begin
   a:= 10;
   with r1 do
    begin a:= -r2.a;
          r2.a:= 100;
    end;
   a:= r1.a;
  end;
 a:= -100;
end.

Ответ:

---

Упражнение 3:

---

Номер 1

С текстовыми файлами могут работать файловые переменные, описанные следующим образом:

Ответ:

---

Номер 2

С типизированными файлами могут работать файловые переменные, описанные следующим образом:

Ответ:

---

Номер 3

С бинарными файлами могут работать файловые переменные, описанные следующим образом:

Ответ:

---

Упражнение 4:

---

Номер 1

Чтобы иметь возможность считывать информацию из бинарного файла, его нужно открыть при помощи команды

Ответ:

---

Номер 2

Чтобы иметь возможность записывать информацию в бинарный файл, его нужно открыть при помощи команды

Ответ:

---

Номер 3

Чтобы иметь возможность одновременно считывать информацию из текстового файла и записывать ее туда, файл нужно открыть при помощи команды

Ответ:

---

Упражнение 5:

---

Номер 1

Какая последовательность символов будет содержаться в файле f: file of char после выполнения следующего отрывка программы:
        rewrite(f);
for c:= 'a' to 'p' do write(f,c);	{c: char}
seek(f,10);
read(f,c);
write(f,c);
seek(f,15);
truncate(f);
write(f,c);

Ответ:

---

Номер 2

Какая последовательность символов будет содержаться в файле f: file of char после выполнения следующего отрывка программы:
        rewrite(f);
for c:= 'а' to 'р' do write(f,c);	{c: char}
seek(f,10);
read(f,c);
truncate(f);
seek(f,15);
write(f,c);

Ответ:

---

Номер 3

Какая последовательность символов будет содержаться в файле f: file of char после выполнения следующего отрывка программы:
        rewrite(f);
for c:= '0' to '9' do write(f,c);	{c: char}
seek(f,5);
read(f,c);
write(f,c);
seek(f,3);
truncate(f);
seek(f,9);
write(f,c);

Ответ:

---