chizhikovilya
22.10.2020 03:09

Дано 20 дійсних чисел.Складіть програму для визначення,скільки з них більші за своїх "сусідів",тобто за попереднє та наступне числа(Lozarus)

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
243013
18.06.2022 11:05

Объяснение:

Элемент «ИЛИ» (OR)

По другому, его зовут «дизъюнктор».

Любуемся:

Элемент ИЛИ

Опять же, название говорит само за себя.

На выходе возникает единица, когда на один ИЛИ на другой ИЛИ на оба сразу входа подана единица. Этот элемент можно назвать также элементом «И» для негативной логики: ноль на его выходе бывает только в том случае, если и на один и на второй вход поданы нули.

Едем дальше. Дальше у нас очень простенький, но очень необходимый элемент.

Элемент «НЕ» (NOT)

Чаще, его называют «инвертор».

Элемент НЕ

Надо чего-нибудь говорить по поводу его работы?

Ну тогда поехали дальше. Следующие два элемента получаются путем установки инвертора на выход элементов «И» и «ИЛИ».

Элемент «И-НЕ» (NAND)

Элемент И-НЕ

Элемент И-НЕ работает точно так же как «И», только выходной сигнал полностью противоположен. Там где у элемента «И» на выходе должен быть «0», у элемента «И-НЕ» - единица. И наоборот. Э то легко понять по эквивалентной схеме элемента:

Эквивалентная схема элемента И-НЕ

0,0(0 оценок)
Ответ:
DyxaK
29.01.2021 13:21

program z1;

uses graphABC;

begin

SetWindowSize(600,400);

SetWindowTitle('¨ëêà');

SetPenWidth(3);

SetPenColor(clBlack);

Line(250,100,300,50);

Line(300,50,350,100);

Line(350,100,250,100);

FloodFill(300,75,clGreen);

Line(235,200,300,100);

Line(300,100,365,200);

Line(365,200,235,200);

FloodFill(300,175,clGreen);

Line(200,300,300,200);

Line(300,200,400,300);

Line(400,300,200,300);

FloodFill(300,275,clGreen);

MoveTo(0,300);

LineTo(100,350);

LineTo(200,325);

LineTo(400,325);

LineTo(500,350);

LineTo(600,375);

FloodFill(15,375,clLime);

Rectangle(287,300,313,325);

FloodFill(300,315,clBrown);

SetBrushColor(clYellow);

Circle(500,100,50)

end.

Объяснение:

картинка


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