Murat20051
13.02.2021 12:03

Решите инфа, даю 50 бллов​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
машуля125
14.03.2023 14:09
№1
а) №4, №2, №5, №3, №6, №1.
б)№2, №1, №3, №4, №6, №5.
№2
тип
№3 четвёртая запись 
№4    фамилия     адрес             тип       название срок 1 Петров   пр. Парковый 2-10   газета  Известия     6 2 Иванова  ул. Подлесная 11-14 журнал Крестьянка       3 3 Соколов ул. Строителей 8-5 газета  Комсомольская правда   12   4 Федоров  пр. Парковый 4-16   журнал  Огонек     6 5 Яковлев ул. Подлесная 7-25  газета  Комсомольская правда    6 6 Юсупова  ул. Строителей 8-13 газета  Известия   3 7 Юровский пр. Парковый 2-10   газета Известия  6 8 Корытько ул. Подлесная 7-25  газета Комсомольская правда  6 9 Худецкая пр. Парковый 2-10   газета Известия  6 10 Тагиров ул. Подлесная 7-25  газета Комсомольская правда  6  
0,0(0 оценок)
Ответ:
Максим555111
13.04.2022 19:32

Объяснение:

На чистом паскале никак. Либо используя графические библиотеки (например, GraphABC в Pascal ABC.NET), либо, например Delphi.

GraphABC:

uses GrathABC;

var b: picture;

begin

b:= Picture.Create('1.png');

...

end.

Далее через процедуру OnKeyDown или OnKeyPress считываем ключ с клавиатуры, и если это 2, то показываем изображение.

Примерно это должно выглядеть так:

procedure OnKeyPress(key: integer);

begin

if key = 2 then b.Draw(10, 10);

end;

Delphi: на нём гораздо проще. Здесь есть уже готовая форма, и стандартные компоненты за визуальность).

Через компонент TImage (вкладка Additional) загружаем изображение, устанавливаем у изображения свойство Visible:= false. Далее через OnKeyPress главной формы считываем ключ, и если key = 2, то Image.Visible:= true;

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