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

Visual basic! написать процедуру:
1) вычислить сумму элементов массива x(m)
2)те из элементов массива y(n), значения которых равны произведению двух предыдущих умножить сумму элементов массива x(m)
3) элементы преобразованного массива y(n) вывести в список на форме.

Показать ответ
Ответ:
Ekaaaterina
Ekaaaterina
05.08.2020 06:49
Program raznost_xy;
var x, y:integer;
begin
write ('Введите число х = ');
readln (x);
write ('Введите число у = ');
readln (y);

if (x>0) and (y>0) then
  begin
    if abs(x)>abs(y) then write ('x-y > 0');
    if abs(x)=abs(y) then write ('x-y = 0');
    if abs(x)<abs(y) then write ('x-y < 0');
  end;
      
if (x<0) and (y<0) then
  begin
    if abs(x)>abs(y) then write ('x-y < 0');
    if abs(x)=abs(y) then write ('x-y = 0');
    if abs(x)<abs(y) then write ('x-y > 0');
  end;

if (x=0) and (y=0) then write ('x-y = 0');
if (x>0) and (y<0) then write ('x-y > 0');
if (x<0) and (y>0) then write ('x-y < 0');
if (x=0) and (y>0) then write ('x-y < 0');
if (x=0) and (y<0) then write ('x-y > 0');
if (x>0) and (y=0) then write ('x-y > 0');
if (x<0) and (y=0) then write ('x-y < 0');
end.
0,0(0 оценок)
Ответ:
клубничка125
клубничка125
20.12.2020 16:55
1) Второе название термина "компьютерная графика?"(машинная)-8букв
2) Какой мультфильм в 1964 году, выполняя написанную программу решения дифференциальных уравнений, рисовала БЭСМ-4?(кошечка)-7букв
3)  Обычно компьютерную графику разделяют на векторную и растровую. Хотя обособляют ещё один ...тип представления изображений. Что это за тип? (фрактальный)-11букв
4) Название объекта, отдельные элементы которого наследуют свойства родительских структур. (фрактал)-7букв
5) Что управляет всеми визуальными преобразованиями в 3D-графике?(матрица)-7букв
6)Монитор-это матрица. Он состоит из строк и...?(столбцы)-7букв
7) Сколько видов матриц используется в компьютерной графике? (три)-3буквы
8) Объединение высококачественного изображения на экране компьютера со звуковым сопровождением-это? (мультимедиа)-11букв
9) Визуализация графики бывает растровая и..?(векторная)-9букв
визуализации это?(растр)-5букв
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота