1. Создайте автоотчет в столбец по таблице «Культурная программа». Краткая справка. После выбора источника записей и макета (в столбец или ленточный) автоотчет создает отчет, который использует все поля источника записей и применяет последний использованный автоформат. 2. Выберите объект базы — Отчеты. Нажмите кнопку Создать, в открывшемся окне Новый отчет выберите вид отчета: «Автоотчет: ленточный» . В качестве источника данных выберите таблицу «Культурная программа». Нажмите кнопку ОК и дождитесь окончания работы мастера создания автоотчетов. 3. Просмотрите отчет в режиме Предварительный просмотр. Перейдите в режим Конструктор и посмотрите, как выглядит отчет в этом режиме. 4. Сохраните отчет под именем «Культурная программа». Задание 6.2. Создание отчета по таблице «Мои расходы» с Мастера создания отчетов. Краткая справка. Мастер задает подробные вопросы об источниках записей, полях, макете, требуемых форматах и создает отчет на основании полученных ответов. Порядок работы 1. Выберите объект базы — Отчеты. Нажмите кнопку Создать, в открывшемся окне Новый отчет выберите вид отчета: «Мастер отчетов». В качестве источника данных выберите таблицу «Мои расходы», выберите поля: Тип расходов и Сумма затрат, задайте сортировку по полю Сумма затрат, вид макета — в столбец.
Ответы
1
program z;
var
i : integer;
begin
Writeln('Введите число'); Readln(i);
if i mod 2 = 0
then
Writeln('Число чётное')
else
Writeln('Число не чётное');
readln;
end.
2
program z;
var
i : integer;
begin
Writeln('Введите число'); Readln(i);
if i mod 3 = 0
then
Writeln('Число делится на 3')
else
Writeln('Число не делится на 3');
readln;
end.
3
program z;
var
i: array[1..6] of byte;
x:byte;
begin
for x:=1 to 6 do
begin
Writeln('Введите ', x,' цифру из 6 ');
Read(i[x]);
end;
if (i[1]+i[2]) = (i[4]+i[5]+i[6])
then
Writeln('Билет счастливый')
else
Writeln('Билет не счастливый');
Readln;
end.
5)))
program z;
var
i : integer;
begin
Writeln('Введите число'); Readln(i);
if i mod 6 = 0
then
Writeln('Число делится на 6')
else
Writeln('Число не делится на 6');
readln;
end.
6
program z;
var
a,b:integer;
begin
Writeln('Введите число A'); Readln(a);
Writeln('Введите число B'); Readln(b);
if b mod a = 0
then Writeln('Число А делится нацело на число В')
else Writeln('Число А не делится нацело на число B');
Readln;
end.
program z;
var
i : integer;
begin
Writeln('Введите число'); Readln(i);
if i mod 2 = 0
then
Writeln('Число чётное')
else
Writeln('Число не чётное');
readln;
end.
2
program z;
var
i : integer;
begin
Writeln('Введите число'); Readln(i);
if i mod 3 = 0
then
Writeln('Число делится на 3')
else
Writeln('Число не делится на 3');
readln;
end.
3
program z;
var
i: array[1..6] of byte;
x:byte;
begin
for x:=1 to 6 do
begin
Writeln('Введите ', x,' цифру из 6 ');
Read(i[x]);
end;
if (i[1]+i[2]) = (i[4]+i[5]+i[6])
then
Writeln('Билет счастливый')
else
Writeln('Билет не счастливый');
Readln;
end.
5)))
program z;
var
i : integer;
begin
Writeln('Введите число'); Readln(i);
if i mod 6 = 0
then
Writeln('Число делится на 6')
else
Writeln('Число не делится на 6');
readln;
end.
6
program z;
var
a,b:integer;
begin
Writeln('Введите число A'); Readln(a);
Writeln('Введите число B'); Readln(b);
if b mod a = 0
then Writeln('Число А делится нацело на число В')
else Writeln('Число А не делится нацело на число B');
Readln;
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Составь алгоритм полива кустов смородины для двух роботов, которые идут навстречу друг другу
Автор: Gennadievna bessonov
Написать функцию, определяющую среднее арифметическое элементов передаваемого ей массива. на с++
Автор: ann-perminova2008
While Loop S=0, i=0, i<=20, s=s+i, i=i+2
Автор: Varvara
Дан массив случайных чисел, получить сумму и произведение элементов массива
Автор: Сергеевна-С.А.1549
На що слід зважати під час вибору стратегії пошуку інформаційних матеріалів в інтернеті?
Автор: Aleksandrovich_Mitoyan1138
7,6 Кбайт/сек
Объяснение:
V = K * i, где
V - информационный объём изображения (размер файла, содержащего изображение)
K - количество точек (пикселей )
i - глубина цвета (число бит, используемых для записи цвета одного пикселя)
N = 2^i, где
N - количество цветов в палитре
i - глубина цвета (число бит, используемых для записи цвета одного пикселя)
^ - знак степени
V = q * t , где
V - объем переданной информации
q - скорость соединения (пропускная канала, в битах в секунду или подобных единицах)
t - время передачи
Дано:
N = 8192
K = 800 х 600 = 480 000
t = 100 секунд
Найти:
q
N = 2^i
2^i = 8192
i = 13 бит (найдено подбором степени)
V = K * i
V = 480 000 * 13 = 6 240 000 бит
V = q * t
q = V / t
q = 6 240 000 / 100 = 62 400 бит/сек
q = 6 240 000 / 100 = 62 400 бит/сек = 62 400 / 8 = 7 800 байт/сек = 7,6171875 Кбайт/сек ≈ 7,6 Кбайт/сек