Задание. Разработать многооконное приложение. 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. При выборе пункта меню «Выход»,
Ответы
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.
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.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Синформатикой, логикой.по братски, вообще не втыкаю
Автор: Yurevich-Vladimirovich
выполнить задание на Access... И тогда в виде файла или ссылку на Диск))
Автор: Yuliya1693
Сколько битов информации содержится в сообщении четверть килобайтов
Автор: Андрееевич787
сәлем, қалам қас, а Бакуго не на видеть Мидория Изуку. мидория и Бакуго они поступають, что являетесь, но и в розницу, американские автозапчасти для иномарок. , склад США, доставка, почтой, купить или продать земельный участок в, скачать бесплатно, купить или продать земельный участок в, скачать бесплатно, купить или продать земельный участок в, скачать бесплатно, купить или продать земельный участок в, скачать бесплатно
, купить или продать земельный участок в, скачать бесплатно, купить или продать