База ответов ИНТУИТ

Программирование на языке Pascal

<<- Назад к вопросам

Сколько полей содержится в записи 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;

(Отметьте один правильный вариант ответа.)

Варианты ответа
3
4
4 или 5, в зависимости от значения trade_union(Верный ответ)
3 или 4, в зависимости от значения trade_union
10
5 или 8, в зависимости от значения trade_union
Похожие вопросы
Сколько полей содержится в записи 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;
Сколько полей содержится в записи 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;
Какое значение будет храниться в поле 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.
Описанные ниже подпрограммы
function C: boolean; forward;function D: boolean; forward;procedure A; begin  x:= c(x);  y:= d(y); end;function B: boolean; begin  x:= c(x); end;function C; begin  z:= c(z); end;function D; begin  z:= d(z); end;
Описанные ниже подпрограммы
function C: boolean; forward;function D: boolean; forward;procedure A; begin  x:= c(x);  y:= d(y); end;function B: boolean; begin  a; end;function C; begin  z:= b(z); end;function D; begin  z:= b(z); end;
Описанные ниже подпрограммы
function C: boolean; forward;function D: boolean; forward;procedure A; begin  x:= c(x);  y:= d(y); end;function B: boolean; begin  z:= d(z); end;function C; begin  z:= b(z); end;function D; begin  z:= b(z); end;
Тип данных boolean является
Какое значение будет храниться в поле 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.
Какое значение будет храниться в поле 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.
Какие переменные будут существовать во время выполнения подпрограммы p1?
program prog;var a: byte;procedure p1; function f: boolean;  var a: byte;  begin   ...  end; var a: byte; begin  ... end;procedure p2;var a: byte; begin  ... end;