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

Практическая по информатике
Программа в PascalABC.(Заранее благодарен)


Практическая по информатике Программа в PascalABC.(Заранее благодарен)

Показать ответ
Ответ:
Ника85527
Ника85527
31.03.2021 22:36
Top и Left определяют расстояние от границы поля до верхней и левой границы контейнера, в котором поле находится, соответственно. Name определяет системное имя поля, Color-цвет поля, Text-отображаемый текст на поле, Enabled-возможность взаимодействия с полем(к примеру кликнуть по полю), Visible-видимость поля, Font-шрифт отображаемого текста. Изменить текст в поле можно с метода setText("Строка"). Разместить поле на форме можно с метода add(<компонент>), или с визуального инструмента в Visual Studio, Qt Designer. И самое важное: поле нужно в программе для взаимодействия человека с программой, а так же настройки графического интерфейса. А вот отличие для поля и формы я не знаю((
0,0(0 оценок)
Ответ:
ТвояМилая
ТвояМилая
20.08.2022 23:09

вот не забудь нажать Объяснение:

var

   arr : Array[1..100] Of ShortInt;

   temp : ShortInt;

   i, j, n : Byte;

begin

   Write('n='); ReadLn(n);

   Randomize;

   for i := 1 to n do

   begin

       arr[i] := Random(11) - 5;

       Write(arr[i], ' ');

   end;

   WriteLn; WriteLn;

   for i := 2 to n do

       for j := n downto i do

           if (((arr[j - 1] <= 0) And (arr[j] > 0)) Or ((arr[j - 1] < 0) And (arr[j] = 0)))

           then

           begin

               temp := arr[j - 1];

               arr[j - 1] := arr[j];

               arr[j] := temp;

           end;

   for i := 1 to n do

       Write(arr[i], ' ');

end.

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