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

Задание. Разработать многооконное приложение. 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. При выборе пункта меню «Выход»,

Показать ответ
Ответ:
IrishkaKoteika2689
IrishkaKoteika2689
24.05.2021 06:19
Program Project1;
var   
a:array[1..5] of Integer;   
i, j, sum:Integer;   
s:string;
begin 
Readln(s); 
sum:=0; 
 for i:=1 to 5 do 
    begin   
         if (Length(s)>=2) then   
            begin     
              j:=Pos(' ', s);     
             a[i]:=StrToInt(Copy(s, 1, j-1));     
             sum:=sum+a[i];     
             Delete(s, 1, j);   
             end   
         else   
     begin     
      a[i]:=StrToInt(s);     
      sum:=sum+a[i];   
    end; 
end; 
   for i:=1 to 5 do 
      begin   
         if (a[i]<>0) then   
              begin     
                a[i]:=a[i]-sum;     
                Write(a[i], ' ');   
              end   
         else   
           begin     
              a[i]:=a[i];     
              Write(a[i], ' ');   
           end; 
      end; 
end.
0,0(0 оценок)
Ответ:
sagunush13
sagunush13
22.08.2020 14:52
Var a : array [1..3] of array [1..3] of integer;
     i,j : shortint;
     c1,c2,s1,s2 : integer;

begin
    a[1][1]:=-10;
    a[1][2]:=20;
    a[1][3]:=13;
    a[2][1]:=-22;
    a[2][2]:=11;
    a[2][3]:=-5;
    a[3][1]:=4;
    a[3][2]:=12;
    a[3][3]:=-8;
    s1:=0; s2:=0; c1:=0; c2:=0;
    for i:=1 to 3 do begin
         for j:=1 to 3 do begin
               if a[i][j]>0 then begin
                     s1:=s1+a[i][j];
                     inc (c1);
               end else begin
                     s2:=s2+a[i][j];
                     inc (c2);
               end;
         end;
    end;
    writeln (s1/c1:0:0);
    writeln (s2/c2:0:2);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота