Главная /
Программирование на языке Pascal /
Какое значение будет храниться в поле 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:= -10
Какое значение будет храниться в поле 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.
вопрос
Правильный ответ:
-1000
-100
0
100
1000
64536
65436
Сложность вопроса
57
Сложность курса: Программирование на языке Pascal
75
Оценить вопрос
Комментарии:
Аноним
Если бы не опубликованные ответы - я бы не решил c этими тестами интуит.
03 апр 2019
Аноним
Я провалил экзамен, почему я не углядел этот сайт с решениями интуит раньше
16 сен 2016
Другие ответы на вопросы из темы программирование интуит.
- # Идентификатор, описанный после ключевого слова label, является именем:
- # Какой алгоритм реализует приведенная ниже программа?const nnn=10000; type s1 = ^s2; s2 = record n,k,v: integer; next: s1; end; var f: text; head,p,q: s1; x,i,kr,vr,nxt,kol_ver: integer; a: array[1..nnn] of integer; begin assign(f,'in'); reset(f); readln(f,kol_ver); new(head); with head^ do readln(f,n,k,v); head^.next:= nil; while not eof(f) do begin new(q); with q^ do readln(f,n,k,v); q^.next:= nil; if q^.v <= head^.v then begin q^.next:= head; head:= q; continue end; p:= head; while p^.next<>nil do begin if q^.v > p^.next^.v then p:= p^.next else begin q^.next:= p^.next; p^.next:= q; break; end; end; if p^.next = nil then p^.next:= q; end; close(f); p:=head; while p<>nil do begin write(p^.v,' '); p:=p^.next; end; writeln('*'); for i:= 1 to kol_ver do a[i]:= 0; kr:= 0; vr:= 0; nxt:= 0; p:= head; while (p^.next <> nil)and(kr<kol_ver)do with p^ do begin if a[n]=0 then if a[k]=0 then begin inc(kr); inc(vr,v); inc(nxt); a[n]:= nxt; a[k]:= nxt; end else begin a[n]:= a[k]; inc(vr,v); end else if a[k]=0 then begin a[k]:= a[n]; inc(vr,v); end else if a[n]<>a[k] then begin x:= a[k]; for i:= 1 to kol_ver do if a[i]=x then a[i]:=a[n]; inc(vr,v) end; p:= next end; writeln(vr) end.
- # Какой тип будет иметь результат выражения a+b при a:shortint, b:word?
- # Какие значения будут храниться в переменных s и k после считывания из текстового файла f строки 'Петров Петр Петрович 1956' при помощи команды readln(f,s,k); {s: string[22], k:shortint =0}
- # С текстовыми файлами могут работать файловые переменные, описанные следующим образом: