Главная /
Программирование на языке Pascal /
Какие переменные может использовать секция внешних связей модуля B?unit A; unit C; unit F; interface interface interface uses C,D; uses D,F; var f; var a; var c; implementation implementation implementation uses A; uses F; uses B; var ff; var aa; var cc;
Какие переменные может использовать секция внешних связей модуля B
?unit A; unit C; unit F;
interface interface interface
uses C,D; uses D,F; var f;
var a; var c; implementation
implementation implementation uses A;
uses F; uses B; var ff;
var aa; var cc; end;
end; end;
unit B; unit D;
interface interface
uses C; var d;
var b; implementation
implementation uses B;
uses D; var dd;
var bb; end;
end;
вопрос
Правильный ответ:
a
aa
b
bb
c
cc
d
dd
f
ff
Сложность вопроса
24
Сложность курса: Программирование на языке Pascal
75
Оценить вопрос
Комментарии:
Аноним
Я завалил зачёт, почему я не углядел этот великолепный сайт с решениями интуит в начале года
22 окт 2017
Аноним
Я провалил экзамен, какого чёрта я не увидел этот крутой сайт с всеми ответами интуит до зачёта
29 май 2017
Другие ответы на вопросы из темы программирование интуит.
- # Постройте дерево бинарного поиска (дерево сортировки) для входной последовательности чисел 7 2 5 1 8 3 6 4 9 13 11 10 12, а затем распечатайте вершины этого дерева в порядке обратного обхода. Какая последовательность чисел получится
- # Сколько полей содержится в записи 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 записи 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.
- # Описанные ниже подпрограммы 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;