9 задание как сделать? Access Аналогично создайте форму Поставщики. Заполните эту форму (Приложение 2)
Перейдите в режим конструктора и в области заголовка исправьте текст на следующий:
Информация по поставщикам.
5) Аналогично создайте форму Сотрудники. Заполните эту форму (Приложение 3
В режиме конструктора Перейдите в режим конструктора и в области заголовка исправьте текст
на следующий: Сведения о сотрудниках организации.
6) Аналогично создайте форму Типы. Заполните эту форму (Приложение 4)
Перейдите в режим конструктора и в области заголовка исправьте текст на следующий:
Номенклатурный тип товаров.
7) Аналогично создайте форму Доставка . Заполните эту форму (Приложение 5)
Перейдите в режим конструктора и в области заголовка исправьте текст на следующий: Методы
доставки товаров
8) С Мастера форм создайте форму Заказы [СОЗДАНИЕ-МАСТЕР ФОРМ]
Из таблицы Закупки перенести поля:
КодЗаказа, НомерЗаказа, КодПоставщика, КодСотрудника, ОписаниеЗаказа, КодМетода, ДатаРазмещения
Из таблицы Сделки перенести поля:
ДатаОперции, КодТовара, ЗаказанноеКоличество, Цена, Продано
После этого выполнить:
Далее-выбрать в подчиненной форме Закупки, Табличный, задайте имя формы Заказы, задайте
имя подчиненной форме ЗаказаноТоваров-Готово
9) Откройте форму Заказы в режиме конструктора. Удалите поле КодПоставщика и вместо него
вставьте Поле со списком.
Из таблицы Поставщики выберите: КодПоставщика, НазваниеПоставщика–скрыть ключевой
столбец - сохранить в поле КодПоставщика–задать имя Поставщик.
10) Аналогично в этой же форме удалите поле КодСотрудника и вместо него вставьте поле со
списком. Из таблицы Сотрудники выберите КодСотрудника, Фамилия, Имя – скрыть ключевой
столбец-сохранить в поле КодСотрудника-задать имя Сотрудник
11) Аналогично в этой же форме удалите поле КодМетодаДоставки и вместо него вставьте поле со
списком. Из таблицы Доставка выберите КодМетодаДоставки, МетодДоставки – скрыть
ключевой столбец-сохранить в поле КодМетодаДоставки-задать имя МетодДоставки
В непосредственном режиме- видимо без ввода программы, ввести последовательно строки (сначала присваиваем значение переменной икс, затем вычисляем выражение и помещаем это значение в переменную игрек, и после печатаем значение переменной игрек):
LET X=1.12
LET Y=SQR (X^3+EXP X-LN (3*X))*(1+4*SIN (X/2)+5*EXP (SIN X))
PRINT Y
И записать результат вычислений, который высветится на экране (у меня получилось 27.839525 но у вас может немного отличаться).
Надеюсь, что в вашей версии бейсика нет отличий от той, что у меня (она весьма старая).
n1 = 20;
var
a: array[1..n1, 1..n1] of integer;
i, j, n, k, m: integer;
s: real;
begin
Write('Введите число строк (cтолбцов) массива: ');
Readln(n);
Randomize;
Writeln('Исходный массив');
m := 0;
for i := 1 to n do
begin
for j := 1 to n do
begin
k := Random(101) - 50;
a[i, j] := k;
Write(k:4);
end;
Writeln;
m := m + a[i, i]
end;
k := 0; s := m / n;
for i := 1 to n do
for j := 1 to n do
if a[i, j] > s then k := k + 1;
Writeln('Среднее значение элементов главной диагонали равно ', s);
Writeln('Количество элементов, значения которых больше этой величины - ', k)
end.
Тестовое решение:
Введите число строк (cтолбцов) массива: 10
Исходный массив
29 22 23 15 -23 -25 19 9 -8 -16
1 15 2 35 27 -44 -10 -34 19 50
-35 -31 15 -24 24 -11 -49 -46 40 20
16 48 16 -49 -22 -2 -37 -38 -25 9
36 44 6 23 -16 -27 -40 22 20 29
30 -12 45 32 19 10 -44 -4 41 38
-27 14 20 23 19 4 50 0 7 -21
43 -23 42 -40 -36 -29 13 43 42 0
-21 -20 -15 -40 41 -23 -47 34 -17 19
-9 18 -29 -13 -15 -29 -27 34 -46 31
Среднее значение элементов главной диагонали равно 11.1
Количество элементов, значения которых больше этой величины - 45