В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
maximkolosov66
maximkolosov66
15.01.2022 15:35 •  Информатика

Упростить данные логические функции используя законы алгебры логики. Выполнить проверку правильности выполнения данного задания построением таблиц истинности.


Упростить данные логические функции используя законы алгебры логики. Выполнить проверку правильности

Показать ответ
Ответ:
kaspiridv603
kaspiridv603
12.06.2022 15:40
1
var
   i,k:integer;
   a,b:array[1..10]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 10 do
  begin
  a[i]:=random(-10,10);
  write(a[i]:3)
  end;
for i:=1 to 10 do
  begin
  if a[i]<0 then
    begin
    k:=k+1;
    b[k]:=a[i]
    end
  end;
for i:=1 to 10 do
  begin
  if a[i]>=0 then
    begin
    k:=k+1;
    b[k]:=a[i]
    end
  end;
writeln;
writeln('Преобразованный массив:');
for i:=1 to 10 do write(b[i]:3)
end.

2.
var i,j,k,n,x,p:integer;
a,b:array of integer;
f:boolean;
begin
write('Сколько будет чисел: ');
readln(n);
SetLength(a, n);
for i:=1 to n do
  begin
  f:=false;
  write('Введите число: ');
  readln(x);
  for j:=0 to n-1 do
     if x=a[j] then f:=true;
     if f=false then
        begin
        a[k]:=x;
        k:=k+1;
        end
  end;
SetLength(b, k);
for i:=0 to k-1 do  b[i]:=a[i];
for i:= 0 to k-1 do
     for j := 0 to k-1 do
        begin
        if b[i] < b[j] then
           begin
           p := b[i];
           b[i] := b[j];
           b[j] := p
         end
    end;
writeln('Отсортированный массив:');
for i:=0 to k-1 do write(b[i]:3)
end.

2.1
var
  i,j,k,n,x,p:integer;
  a:array[1..1000] of integer;
  f:boolean;
begin
write('Сколько будет чисел: ');
readln(n);
k:=1;
for i:=1 to n do
   begin
   f:=false;
   write('Введите число: ');
   readln(x);
   for j:=1 to n do
      if x=a[j] then f:=true;
      if f=false then
         begin
         a[k]:=x;
         k:=k+1;
         end
   end;
for i:=1 to k-1 do
     for j:=1 to k-1 do
     begin
        if a[i] < a[j] then
           begin
           p:= a[i];
           a[i]:= a[j];
           a[j]:= p
           end
     end;
writeln('Отсортированный массив:');
for i:=1 to k-1 do write(a[i]:3)
end.
0,0(0 оценок)
Ответ:
Рвововоаоа
Рвововоаоа
17.07.2022 07:46

Chat GPT – чат-бот на базі штучного інтелекту, який здатний спілкуватися в режимі реального часу, навіть у вигляді суперечки, а також за лічені секунди виводити помилки в коді та писати сценарії, вірші та текстовий контент. Технологію представила компанія OpenAI, одним із засновників якої був Ілон Маск.

Універсальний бот з'явився у листопаді 2022 року і одразу облетів увесь світ. Його реалізовували за до суперкомп'ютера Azure AI, а як мовну модель використовували технологію від OpenAI – GPT-3,5.

Цікавим був сам процес навчання Chat GPT. Для нього використовували систему зв'язку з людиною та величезний масив тексту, а потім переучували багато разів, використовуючи відповіді самого чат-бота. Таким чином, вдалося досягти ще коректніших результатів генерації. Розробники хотіли зробити його максимально “людським” і простим для взаємодії.

За даними аналітиків Bloomberg чат-бот універсальний. Його можна використовувати не тільки для написання тексту чи віршів, а й для:

проведення фінансового аналізу;

генерація простого коду;

вибудовування прогнозів;

резюм технічних статей;

створення персональних порад;

реалізації етичних відповідей

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота