Задачу 7 пожалуйста,оплата 30 баллов
10-11 класс
|
Sub fD()
X = Cells(3, 3) ' Ввод Х
If X > 0 Then
D = 0
For Y = 1 To 5
D = D + Y + Cos(X)
Next Y
Else
D = 1
For Y = 1 To 10
D = D * (Y - X)
Next Y
End If
Cells(3, 4) = D ' Вывод D
End Sub
Пример реализации на VBA Excel
Код программы можно посмотреть Alt+F11
Другие вопросы из категории
Написать программу, которая использует подпрограммы и выведит на экран наименьшее расстояние между двумя точками.
Фрагмент кода
int value;
int bit[15];
printf("Enter value: ");
scanf("%d",&value); //тут вводим value
printf("\n\nvalue: %d",value); //выводится наше value
bit[15]=(value<0)?1:0; //тут value почему то зануляется
printf("\n\nvalue: %d",value); //выводим уже 0.
вопрос, почему зануляется?
Читайте также
Я прошу помочь с выполнением задачи.
Напишите пожалуйста код в C++, который делает следующее:
Найти номер элемента массива,модуль разности сумм чисел слева и справа от которого наименьший.Значение элемента с этим номером при суммировании не учитывается.Номера элементов начинаются с 0.
Допустим элементы последовательности такие : 1,2,3,4,5,6,2.
Ответ:номер элемента 4.,т.е. это число 5 последовательности.
Помогите пожалуйста написать код.