Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
kirasanovnagmailcom
11.11.2022 12:55 •
Информатика
Постройте трассировочную таблицу if a=t then c:=c-a else t:=c-a; C:=t*c-a
👇
Увидеть ответ
Открыть все ответы
Ответ:
Гелакси27
11.11.2022
'VBScript
Sub Zadanie()
ReDim C(5, 6)
k_pos = 0
mini = LBound(C, 1)
minj = LBound(C, 2)
For i = LBound(C, 1) To UBound(C, 1)
For j = LBound(C, 2) To UBound(C, 2)
C(i, j) = Round(Rnd * 10)
if C(i, j) > 0 then k_pos = k_pos + 1
if C(i, j) < C(mini, minj) then
mini = i
minj = j
end if
Next
Next
MsgBox "min C(" & mini & ", " & minj & ")=" & C(mini, minj) & vbNewLine & "c>0: " & k_pos
End Sub
Call Zadanie()
4,4
(47 оценок)
Ответ:
11UmNiK111
11.11.2022
#include <cstdlib>#include <iostream>#include <iomanip>#include <cmath>
using namespace std;
int main(){ setlocale(0, ""); double x, y, a, b, xk, xn, dx; a = 1.4; b = 2.5; cout << "Ââåäèòå xn,xk, dx = " << endl; cin >> xn; cin >> xk; cin >> dx; x = xn; cout << "Tabl" << endl; cout << "+-----------+" << endl; cout << "¦ x ¦ y ¦" << endl; while (x <= xk) { y = (log10(a*x*x+b))/(a*x+1); cout << "+-----+-----¦" << endl; cout.setf(ios::fixed); cout.precision(3); cout << "¦" << x << "¦"<< y << "¦" << endl; x = x + dx; } cout << "+-----------+"; system("pause");}
4,7
(41 оценок)
Это интересно:
З
Здоровье
05.02.2023
Как сдержать газы: 7 важных советов...
Д
Дом-и-сад
22.09.2020
Как удалить пятна от кондиционера для белья: советы экспертов...
П
Питомцы-и-животные
27.07.2021
Как измерить температуру у лошади: советы от опытных ветеринаров и коневодов...
О
Образование-и-коммуникации
07.03.2022
Как читать показания линейки: простой гайд...
Х
Хобби-и-рукоделие
25.10.2020
Как связать на спицах игрушечного медведя...
Ф
Финансы-и-бизнес
17.08.2020
Как перевести деньги через Western Union: шаг за шагом...
О
Образование-и-коммуникации
21.03.2023
10 способов развить способность к обучению...
К
Компьютеры-и-электроника
27.10.2022
5 простых способов избежать травли в интернете...
К
Кулинария-и-гостеприимство
02.04.2023
Купить семена льна: Советы по выбору и покупке...
К
Кулинария-и-гостеприимство
15.01.2022
Как жарить креветки: секреты приготовления вкуснейшей закуски...
Новые ответы от MOGZ: Информатика
ilya3694444
09.07.2021
Составьте программу, которая запрашивает имя (один из символов: а — алексей, с — сергей, м — михаил, к — константин) и отчество ( б — борисович или с — сергеевич) и выдаёт...
елен9
24.01.2023
Впрограмме описан одномерный целочисленный массив с индексами от 0 до 10. ниже представлен фрагмент программы, обрабатывающей данный массив: s: = 0; n: = 10; for i: =0 to...
Lizarainbowhi
01.09.2020
27(10) = x(2) 103(8) = x(10) 209(10) =x(16) Информатика 8 класс с решением каждого...
tamer20052
25.03.2021
Дана числовая последовательность действительных чисел а1, .признак конца ввода чисел является число 1111.используя цикл с постусловием, составить программу определяющий: 1)произведение...
devochkaSlava
10.10.2021
Составь и запиши в рабочую тетрадь алгоритм вычисления значения выражения (37+15)*(137-69), используя занесение в память промежуточных результатов....
Алиса228228
12.05.2020
Задуманно число х. если оно больше 10, то прибавить к нему 2, в противном случае умножь на 2. составте алгоритм данной ....
guardian009888
15.08.2022
Стальной и алюминиевый цилиндры одинаковых размеров достали из сосуда со льдом и водой. Для плавления какого из цилиндров необходимо большее количество теплоты? Во сколько...
irinavlasova
15.08.2022
Разобрать слово как части речи Зазвенели...
yanabutko1999
30.06.2020
Найдите размах ряда чисел быстрее...
Sonya121s
15.08.2022
ПРЕДЛОЖЕНИЯ С ОБОСОБЛЕННЫМИ ЧЛЕНАМИ Расставьте знаки препинания. Выделите и подчеркните обособленные члены. Надпишите вид обособленных членов. В предложениях с обособленными...
MOGZ ответил
Напишите уравнение реакции негашеной извести с водой...
ПРАВИЛА ЕТИЧНОГО СПОЖИВАЧА...
Вопросы к экзамену по дисциплине «Организация туристской деятельности»...
Як давно почвы правити Діоклетіан кр...
Составь 5 вопровов с ответами используя конспект. На тему (Этапы эмбрионального...
Знайдіть сторони прямокутника, якщо одна з них на 5см більше за другу,...
Каким был стиль жизни Ы. Алтынсарина?...
ИНСТРУКЦИЯ НА СКРИНА контрольний твір...
Режить задачу с уровнения...
Відповідь. 3. Температура води в течії Р сягає +20 °C, а навколишня вода...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
Sub Zadanie()
ReDim C(5, 6)
k_pos = 0
mini = LBound(C, 1)
minj = LBound(C, 2)
For i = LBound(C, 1) To UBound(C, 1)
For j = LBound(C, 2) To UBound(C, 2)
C(i, j) = Round(Rnd * 10)
if C(i, j) > 0 then k_pos = k_pos + 1
if C(i, j) < C(mini, minj) then
mini = i
minj = j
end if
Next
Next
MsgBox "min C(" & mini & ", " & minj & ")=" & C(mini, minj) & vbNewLine & "c>0: " & k_pos
End Sub
Call Zadanie()