logo
Вход Регистрация Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
anfinogenov97
anfinogenov97
10.09.2020 03:58 •  Информатика

Что такое вложенные условия?
2. В каких случаях применяют вложенные условия?
3. Какие варианты ИСпользования вложенных условий вы знаете? Дайте их анализ.
4. Определите различия решения задач с вложенными условиями на языке модульного программирования и визуальной среды программирования​

👇
Увидеть ответ
Ответ:
andreymarshev0p0b1aa

Объяснение:

1. Когда оператор if появляется внутри другого оператора if, они считаются вложенными.

2. Такое вложение используется для уменьшения числа необходимых проверок.

3. -if  

   - else if

   - else  

4,6(91 оценок)
Открыть все ответы
Ответ:
DimaKravshenco
DimaKravshenco
10.09.2020
Program Zadacha;
Const n = 10; m = 10; max = 15;
Var A: Array [1..n, 1..m] Of Integer;
B: Array[1..n] of Integer;
C: Array[1..n] of Real;
min, sum, count, i, j: Integer;
Begin
Randomize;
For i := 1 To n Do
For j := 1 To m Do
A[i, j] := Random(max * 2) - max;
min := max;
For i := 1 To n Do
For j := 1 To m Do
If A[i, j] < min Then
min := A[i, j];
For i := 1 To n Do
For j := 1 To m Do
If A[i, j] = min Then
B[i] := 1;
sum := 0;
count := 0;
For i := 1 To n Do
Begin
For j := 1 To m Do
If (A[i, j] Mod 2 = 0) And (A[i, j] >= 0) Then
Begin
sum := sum + A[i, j];
count := count + 1;
End;
C[i] := sum / count;
sum := 0;count := 0;
End;
WriteLn('Массив A:');
For i := 1 To n Do
Begin
For j := 1 To m Do
Write(A[i, j], ' ');
WriteLn;
End;
WriteLn('Массив B:');
For i := 1 To n DoWrite(B[i], ' ');
WriteLn;
WriteLn('Массив C (среднее арифметиеское положительных четных элементов массива A):');
For i := 1 To n Do
Write(C[i]:5:2, ' ');
ReadLn;
End.
4,7(60 оценок)
Ответ:
Какфундик
Какфундик
10.09.2020
С использованием составных условий:

Program Type1;
Var X1, Y1, X2, Y2: Integer;
BeginWriteLn('X1 = ');
ReadLn(X1);
WriteLn('Y1 = ');
ReadLn(Y1);
WriteLn('X2 = ');
ReadLn(X2);
WriteLn('Y2 = ');
ReadLn(Y2);
If (X1 = -X2) And (Y1 = -Y2) Then
WriteLn('Точки симметричны относительно начала координат')
Else If (X1 = -X2) And (Y1 = Y2) Then
WriteLn('Точки симметричны относительно оси Y')
Else If (X1 = X2) And (Y1 = -Y2) Then
WriteLn('Точки симметричны относительно оси X')
Else
WriteLn('Точки не симметричны');
ReadLn;
End.

Без использования составных условий:

Program Type2;
Var X1, Y1, X2, Y2: Integer;
Begin
WriteLn('X1 = ');
ReadLn(X1);
WriteLn('Y1 = ');
ReadLn(Y1);
WriteLn('X2 = ');
ReadLn(X2);
WriteLn('Y2 = ');
ReadLn(Y2);
If (X1 + X2 = 0) And (Y1 + Y2 = 0) Then
WriteLn('Точки симметричны относительно начала координат')
Else If (X1 + X2 = 0) And (Abs(Y1) - Abs(Y2) = 0) Then
WriteLn('Точки симметричны относительно оси Y')
Else If (Abs(X1) - Abs(X2) = 0) And (Y1 + Y2 = 0) Then
WriteLn('Точки симметричны относительно оси X')
Else
WriteLn('Точки не симметричны');
ReadLn;
End.
4,7(27 оценок)
Это интересно:
О
Не можете правильно произнести французские буквы? Вот как это сделать правильно!...
П
Как подготовиться к появлению котят в доме...
И
Как снять документальный фильм: советы от профессионалов...
К
Как удалить все сообщения в Twitter: лучшие способы...
П
Как дрессировать австралийскую овчарку: практические советы и рекомендации...
З
Здоровье
03.07.2021
Как избежать обезвоживания при отравлении...
Ф
Как заниматься консигнацией: советы для начинающих...
В
Как сохранить романтику: секреты успешных отношений...
К
Запекись, стейк! Как подогреть мясо и не испортить его вкус...
К
Как приготовить легкие и сочные вегетарианские блинчики в домашних условиях...
Новые ответы от MOGZ: Информатика
Саша007228666
Саша007228666
24.04.2023
10. укажите, о каком свойстве алгоритма идёт речь: свойство алгоритма, заключающееся в том, что один и тот же алгоритм можно использовать с различными исходными данными. а) детерминированность...
Andy01
Andy01
12.09.2022
Одна страница текста содержит 50 строк по 60 символов в каждой. объем информации, содержащийся в пяти таких страницах равен...
1234мика
1234мика
08.04.2023
Граф. файл содержит изображение размером 100*100. какой информационный объем файла?...
ksyxa92
ksyxa92
16.03.2022
Запрос найдено страниц(в тысячах) сша | куба | политика 450 куба | политика 260 (сша & куба)| (сша & политика) 50 сделать кругами эйлера, не понимаю...
ludamechta
ludamechta
31.12.2021
Как происходит орфографическая проверка текста?...
nerika2017
nerika2017
31.12.2021
На одну специальность в одном из вузов поступало 120 человек. абитуриенты сдавали три экзамена : по , по информатике и языку. сдали 60 человек, информатику 40. 30 абитуриентов сдали...
милкаshow
милкаshow
25.11.2021
Посчитай, сколько байт информации содержит 136 бит?...
vinerplay6
vinerplay6
25.11.2021
Запишите число в естественной форме 0,3800456*10^{2}...
kontik20033002
kontik20033002
05.07.2022
2. составить таблицу истинности для функции: f=cad...
igulsinya
igulsinya
08.02.2021
Найти наибольшее и наименьшее значения и их индексы в массиве d(n), n ≤ 25. вычислить их среднее значение и произведение элементов, значения которых превышают среднее. вывести массив,...

MOGZ ответил

Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
О НАС
ПОМОЩЬ
App
.
.
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ