Задача 5. Выполните тестовое задание. 1. Что такое база данных? А. Специально организованные записи и файлы

цепь

В. Последовательность специально организованных файлов

С. Последовательность записей, организованная в виде списка D. Последовательность специально организованных записей

43-20 Промежуточное контрольное задание. Первое издание

25

2. Как создается еда.

А. Скомпилирован на языке C. В. Создан на базе системы управления базами данных.

С. Реляционная модель управления базой данных

создан на основе

D. На основе языка DFun.

3. Основные объекты базы данных

А. Таблицы, отчеты, макросы и модули.

В. Таблицы, запросы, формы, отчеты,

макросы и модули

С. Таблица и модуль

D. Таблицы, запросы, формы, отчеты

4. Описание действий вводится в объект Access:

В. Таблица

С. Запрос

5. Для чего используется база данных пользователей?

А. в номинальном режиме

В. в демонстрационном режиме

С. в скрытом режиме

D. в специальном режиме

👇

Увидеть ответ

Ответ:

seva116

15.10.2020

1.А

2.D

4.C

5.A

4,6(78 оценок)

Открыть все ответы

Ответ:

Oxicko

15.10.2020

1 вариант
var a,b,c,max,min, sum: real; {описание переменных, они все действительного типа}
begin readln(a,b,c); {ввод с клав. чисел a,b,c}
if (3*a)<(a+b) and (3*a)<(7*c) then {если первое выражение
меньше второго и третьего, то}
min:=3*a {переменной min присвоить
значение первого выражения}
else if (a+b)<(7*c) then {иначе, если 2-ое выражение < 3-го,то}
min:=a+b {переменной min присвоить
значение второго выражения}
else min:=7*c; {иначе значение третьего выражения}
if a>c then max:=a+b {если a>c (сравниваем только эти числа,
так как число b входит в оба выражения),
то переменной max присвоить значение
первого выражения}
else max:=b+c; {иначе второго}
sum:=min+max; {находим сумму min и max}
writeln(sum:1:2); {выписываем на экране ответ}
readln;
end.

2 вариант (все тоже самое, просто нахождение минимума и максимума производится в процедуре)
процедура описывается всегда до основной программы, в ней используются абстрактные переменные, в данном случае x,y,z,u (локальные переменные), вместо которых при вызове процедуры в основной программе будут даваться конкретные значения введенных ранее переменных.
var a,b,c,max, min, sum: real;
procedure mn(x,y,z: real; var u:real);
begin if (x<y) and (x<z) then
u:=x
else if (y<z) then
u:=y
else u:=z;
end;
procedure mx(x,y: real; var u:real);
begin if (x>y) then u:=x
else u:=y;
end;
begin readln(a,b,c);
mn(3*a,a+b,7*c,min);
mx(a+b,b+c,max);
sum:=min+max;
writeln(sum:1:2);
readln;
end.

4,6(70 оценок)

Ответ:

alekseevvv

15.10.2020

Program pascal;
var a, b, q, w, e, r, t: integer; SQR: string;begin q:=3; w:=5; e:=7; r:=9; t:=11; SQR:=SQR; writeln('Введите SQR то бы увидеть все квадраты и произведение всех квадратов'); write('Введите нечетные числа. От 3 до 11: '); read(SQR); if SQR=SQR then writeln('3*3= ', q*q); writeln('5*5= ', w*w); writeln('7*7= ', e*e); writeln('9*9= ', r*r); writeln('11*11= ', t*t); writeln('Произведения всех квадратов: ', q*q*w*w*e*e*r*r*t*t); read(a); if a=11 then writeln('Произведение квадратов: 11*11') else if a=9 then writeln('Произведение квадратов: 9*9') else if a=7 then writeln('Произведение квадратов: 7*7') else if a=3 then writeln('Произведение квадратов: 3*3') else if a=5 then writeln('Произведение квадратов: 5*5') else writeln('Доступно: 3, 5, 7, 9, 11'); end.

4,5(46 оценок)

Это интересно:

Компьютеры-и-электроника

29.05.2022

Как подключить телевизор Samsung к беспроводной сети:...

Философия-и-религия

01.09.2022

Как найти счастье в жизни: советы от психологов...

Образование-и-коммуникации

25.04.2021

Векторная кинематика: как рассчитать пройденное расстояние...

Здоровье