М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
AnDrejk4
AnDrejk4
09.06.2021 05:21 •  Информатика

Розробіть модель бази даних за темою в Microsoft Word
 Розробіть структуру таблиць, (придумайте стовпці, не менше 3х з різним типом
даних (текст, числовий, логічний, дата і час, грошовий) окрім ключового)
вкажіть ключові поля.
 Побудуйте зв’язки між таблицями.
 Окремо побудуйте таблиці та внесіть в них інформацію (по 10 записів до
кожно

👇
Открыть все ответы
Ответ:
Boi11
Boi11
09.06.2021
Const n=10; 
var a:array[1..n] of integer;
i,s,min:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
 begin
 a[i]:=random(21)-10;
 write(a[i]:4);
 end;
writeln;
s:=0; 
min:=a[1];
for i:=1 to n do
 begin
 if a[i]>0 then s:=s+a[i];
 if a[i]<min then min:=a[i];
 end;
writeln('s = ',s,'   min = ',min);
for i:=1 to n do
 if a[i]>0 then a[i]:=s
  else if a[i]<0 then a[i]:=a[i]-min;
writeln('Измененный массив:');
for i:=1 to n do  write(a[i]:4);
writeln;
end.

Пример:
Исходный массив:
   9  -3  -5   7   1   5  -6   9  -8   7
s = 38   min = -8
Измененный массив:
  38   5   3  38  38  38   2  38   0  38
4,8(14 оценок)
Ответ:
bogachevavalery
bogachevavalery
09.06.2021
Const
   N = 6;
   M = 7;
Var
   A:array[1..N,1..M] of integer;
   i,j,k,MM,B:integer;
Begin
Randomize;
WriteLn('Исходный массив:');
For i:= 1 to N do
    Begin
    For j:= 1 to M do
        Begin
        A[i,j]:=random(21)-10;
        Write(A[i,j]:3,' ')
        End;
    WriteLn
    End;
WriteLn;
WriteLn('Отсортированный массив:');
For i:= 1 to N do
    Begin
    For j:= 1 to M do
        Begin
        MM:=j;
        if i mod 2 = 0 then
           Begin
           For k:= j+1 to M do
               if A[i,MM] > A[i,k] then MM:=k
           End
        else
           For k:= j+1 to M do
               if A[i,MM] < A[i,k] then MM:=k;
        B:=A[i,MM];
        A[i,MM]:=A[i,j];
        A[i,j]:=B;
        Write(A[i,j]:3,' ')
        End;
    WriteLn
    End
End.

Пример работы программы:

Исходный массив:
  9  -5   6   0  -9   0   9
  3  -9  -4  10  -8  10   3
 -2   1   2   3   3   0  10
-10   1   8  -3  -4  -3   4
 -9  -7  -3  -9   2  -1  -3
  7 -10  10  -3   4  10   0

Отсортированный массив:
  9   9   6   0   0  -5  -9
 -9  -8  -4   3   3  10  10
 10   3   3   2   1   0  -2
-10  -4  -3  -3   1   4   8
  2  -1  -3  -3  -7  -9  -9
-10  -3   0   4   7  10  10
4,6(6 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ