Пустой текстовый файл
(*ответ*) содержит символ #26
не существует
может содержать сколько угодно пробелов
не содержит никаких символов
Пусть Var p : ^Integer. Вывести значение переменной p
(*ответ*) можно с помощью оператора Writeln(Seg(p), Ofs(p))
можно с помощью оператора Writeln( Addr(p))
можно с помощью оператора Writeln(p)
нельзя
Пусть в текстовом файле записаны следующие две строки 1.23 1.34 2.34 [13] [10] 0.87 0.56 [13] [10] После считывания данных с помощью операторов Read (a, b); Read (c, d); значениями переменных a, b, c, d (типа Real) будут
(*ответ*) 1.23 1.34 2.34 0.9
нули, так как из текстового файла нельзя считывать числа
1.23 1.34 2.34 13
1.23 1.34 0.9 0.87
Пусть в текстовом файле записаны следующие две строки 1.23 1.34 2.34 [13] [10] 0.87 0.56 [13] [10] После считывания данных с помощью операторов Readln(a, b); Readln (c, d); значениями переменных a, b, c, d (типа Real) будут
(*ответ*) 1.23 1.34 0.9 0.87
нули, так как из текстового файла нельзя считывать числа
1.23 1.34 2.34 13
1.23 1.34 2.34 0.9
Пусть значением q является ссылка на некоторый (не последний) элемент списка целых чисел и требуется исключить из списка элемент, следующий за тем, ссылка на который является значением переменной q. Для этого нужно выполнить последовательность операторов
(*ответ*) r := q^.next; q^.next := q^.next^.next; r^.next := Nil;
q := q - 1;
New( r ); q^.next := r^.next;
q^.next := Nil;
Пусть имеется описание Type Dim = Array [1..100, 1..2] of Real; Zap = Record x, y : Byte; a : Dim; End; Df = File Of Dim; Zf = File Of Zap; ff1 = File Of File Of Real; ff2 = File Of Df; f = File Of Char Допустимыми объявлениями файлового типа являются:
(*ответ*) Df, Zf, f
Df, Zf, f, ff1, ff2
ff1, ff2
Df, Zf, ff1
Пусть имеется описание Type Pint = ^Integer; W = array [1..20] of Real; p = ^W; Var N : Pint; U : p; G : ^array [1..5] Of Char; B : ^Boolean; правильно описаны ссылочные переменные
(*ответ*) N, U, B
Pint, p, N, U, G, B
N, U, G
N, U, p
Пусть имеется описание переменных Type q = array [1..20] Of Char; z = Record x, y : Char End; Var x, y : ^Char; a, b : ^ q; c : ^z; p : Pointer; Тогда справедливы операторы присваивания
(*ответ*) x := y; x := p; p :=c;
a := x; y := b;
c := x; y := c;
a := x; x := c; c := y;
Пусть имеется следующее описание переменных Var a, b : Real; S, R : Integer; SS : Record x, y : Real End; Ar : array [1..5] Of Char; Неверно записанным оператором вывода в текстовый файл является
(*ответ*) Writeln (f, a, b, SS, Ar)
Writeln (f, Ar [1], Ar [2], Ar [3], Ar [4], Ar [5], S, R)
Writeln (f, Ar [1], Ar [2], SS.x, SS.y)
Writeln (f, a : 8 : 3, ‘S=‘, S : 4)
Пусть имеется следующее описание: Var a, b: ^Real; Для переменных a и b справедлив оператор
(*ответ*) a^ := Sin(b^)
a^ := a^ mod b^
a := a / b
New (a^)
Пусть объявлены переменные файлового типа: Type Sklad = Record Name : String [30]; Num : String [10]; Count : Integer; Date : String [10]; End; Var f1 : File Of Sklad; f2 : Text; f3 : File; f4 : File Of Integer; Типизированными файлами являются:
(*ответ*) f1, f4
f1, f3, f4
f1, f2, f3, f4
f3