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

Создайте проект в котором событие click для кнопки установит ее размеры 50 на 50 пикселей, установит коричневый цвет текста на кнопке и изменит текст на кнопке на мой проект а событие keypress переместит кнопку на 30 пикселей вправо и на 40 пикселей вниз.

!
(object pascal) lazarus

Показать ответ
Ответ:
memasov
memasov
22.07.2022 23:07
// PascalABC.NET 3.2, сборка 1370 от 24.12.2016
// Внимание! Если программа не работает, обновите версию!

function MyNum(a:array of integer;lim:integer):=a.Where(x->x<lim).Count;

begin
  var p:=ArrRandom(ReadInteger('n='),-99,99); p.Println;
  var k:=ReadInteger('Введите границу отсечения элементов:');
  Writeln('Количество элементов, меньших ',k,', равно ',MyNum(p,k))
end.

Пример
n= 17
-50 -52 -98 1 99 27 -44 70 -65 -22 -64 48 91 3 -69 -69 52
Введите границу отсечения элементов: 23
Количество элементов, меньших 23, равно 11
0,0(0 оценок)
Ответ:
Артемошка1111
Артемошка1111
27.02.2020 13:37
Вот код, написанный в среде PascalABC.NET 3.2 и проверенный в среде Free Pascal (fpc):

const
  n=14;
var
  a,b,c:array[1..n] of integer;
  i:integer;
begin
  Randomize;
  for i:=1 to n do begin
    a[i]:=random(199)-99; // [-99;99]
    Write(a[i],' ');
    b[i]:=random(199)-99; // [-99;99]
    end;
  Writeln;
  for i:=1 to n do Write(b[i],' ');
  Writeln;
  for i:=1 to n do begin c[i]:=a[i]*b[n+1-i]; Write(c[i],' ') end;
  Writeln
end.

Пример
70 92 -92 19 -33 8 10 -37 -87 51 -29 -4 -3 25
20 -69 7 -36 -91 -74 -38 -16 49 -46 93 0 -73 40
2800 -6716 0 1767 1518 392 -160 1406 6438 -4641 1044 -28 207 500

В качестве бонуса и вопроса "в воздух" - та же самая программа, написанная с учетом современных возможностей PascalABC.NET 3.2

begin
  var a:=ArrRandom(14,-99,99); a.Println;
  var b:=ArrRandom(14,-99,99); b.Println;
  var c:=a.Zip(b.Reverse,(x,y)->x*y).ToArray; c.Println
end.

И обещанный вопрос: Если Паскаль, как система программирования, в настоящее время используется только в целях обучения (следовательно, критерий "fpc шире распространен" отпадает), то зачем учиться на давным-давно устаревшей версии? Чтобы писать было сложнее, больше и допускать при этом больше ошибок?

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