Задание. Разработать многооконное приложение. 1. На главную форму приложения поместить компонент TAnimate. Компонент должен реализовать пользовательской анимации, путь которому прописывается в свойстве FileName. 2. На главной форме реализовать музыкальной композиции при компонента TMediaPlayer. 3. Поместить на форму главное меню, содержащее следующие пункты: - задание 1 - задание 2 - выход При выборе пункта меню «Задание 1», необходимо реализовать открытие формы «График» (в модальном режиме). На форме «График» разместить 2 вкладки: - «Таблица»- содержит таблицу, содержащее протабулированное значение функции y=f(x) на отрезке [a,b]. Количество значений функций равно n. Шаг вычисляется по формуле h=(b-a)/n.. - «График» - содержит график функции y=f(x), начерченный с компонента TChart. При выборе пункта меню «Задание 2», необходимо открытие формы «Теория» (в немодальном режиме). На форме «Теория» расположить 2 компонента TreeView и WebBrowser. Узлами дерева TreeView являются темы теоретического материала. По щелчку названию темы необходимо осуществить загрузку соответствующей страницы html в компонент WebBrowser. При выборе пункта меню «Выход»,

👇

Открыть все ответы

Ответ:

danilp18

05.06.2023

сәлем, қалам қас, а Бакуго не на видеть Мидория Изуку. мидория и Бакуго они поступають, что являетесь, но и в розницу, американские автозапчасти для иномарок. , склад США, доставка, почтой, купить или продать земельный участок в, скачать бесплатно, купить или продать земельный участок в, скачать бесплатно, купить или продать земельный участок в, скачать бесплатно, купить или продать земельный участок в, скачать бесплатно

, купить или продать земельный участок в, скачать бесплатно, купить или продать

4,8(64 оценок)

Ответ:

lim155

05.06.2023

Var a:array [1..10, 1..10] of integer;
i, j, max, min, imin, imax, jmin, jmax:integer;
begin
imax:=0; imin:=0; jmax:=0; jmin:=0;
max:=-maxint; min:=maxint;
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
a[i,j]:=random(89)+10;
write(a[i,j],' ');
if a[i,j]<min then
begin
min:=a[i,j];
imin:=i;
jmin:=j;
end;
if a[i,j]>max then
begin
max:=a[i,j];
imax:=i;
jmax:=j;
end;
end;
writeln;
end;
writeln;
writeln('Максимальный элемент:',max);
writeln('Его индекс ',imax,' ',jmax);
writeln('Минимальный элемент:',min);
writeln('Его индекс ',imin,' ',jmin);
end.

4,7(24 оценок)

Это интересно:

Здоровье

16.03.2023

Хотите научиться вырываться, ведя машину? Это можно сделать, но только при определенных условиях...

Здоровье

21.11.2022

Как предотвратить варикозное расширение вен...

Дом-и-сад

08.03.2021

Как самостоятельно заасфальтировать подъездную дорожку: пошаговая инструкция...

31.01.2021