Произвести выборку данных, используя вложенный запрос (степень вложенности запросов и применение операторов IN, ANY, ALL, EXISTS зависят от задания). 3. Вывести список пунктов назначений, из которых сегодня (в текущую дату) прибыли поезда.
4. Указать значения поля Дата прибытия (убытия) + Время прибытия
(убытия) для всех местных поездов. Кроме того, для каждого поезда выдать
Номер поезда и Нормативное количество посадочных мест.
5. Найти все пункты назначений, в которые идут местные поезда. Для каждого из них определить Название пункта назначения, Время следования, Расстояние.
Произвести выборку данных, используя вложенный запрос и оператор объединения UNION.
6. Вывести значения поля Дата прибытия (убытия) + Время прибытия (убытия) для всех местных поездов или для тех поездов, у которых Время следования менее 24 часов. Дополнительно указать Номер поезда, Код пункта назначения, Прибытие / Убытие.
var
c,d,Gd,Gm:integer;
k:real;
begin
Writeln('10<=c<=460; 10<=d<=230');
Write('Задайте c в пределах от 10 до 460: ');Read(c);
if (c<10) or (c>460) then Writeln('Неверное значение!')
else begin
Write('Задайте d в пределах от 10 до 230: '); Readln(d);
if (d<10) or (d>230) then Writeln('Неверное значение!')
else begin
Gd := Detect;
InitGraph(Gd, Gm, 'Y:\tp7\bgi'); { Инициализируем графический режим }
SetColor(4);
k:=GetMaxX/GetMaxY; { Коэффициент искажений по осям }
if c<d then Rectangle(Trunc(10/k),10,Trunc((2*d+10)/k),2*d+10)
else Line(Trunc(c/k),c,Trunc(d/k),d);
Readln;
CloseGraph
end
end
end.
Вес одного символа (Включая точки, запятые, пробелы и т.д) равен 8 битам.
Например.
Кошка мурлычет. Вес этого предложения равен:
I = i · k.
I - это информационный объём всего сообщения.
i - это информационный объём одного символа.
k - это количество символов во всём сообщении.
То есть, количество символов умножить на вес одного символа. В данном случае получим 15 · 8 = 120 (В битах. Если нужно перевести в байты, то 120 : 8 = 15 байт (Т.к. в одном байте содержится 8 бит)).
Надеюсь, ответ достаточно исчерпывающий.