Написать программу VBA
10-11 класс
|
вычисление S=2n+n!
да, там факториал, именно из-за него не могу составить программу. прошу помощи....спасибо за ранее огромнейшее!!!
Dim n As Integer
Dim fak As Long
Dim msg As String
msg = ""
For n = 1 To 100
fak = 1
For i = 1 To n
fak = fak * i ' Вычисляем факториал
Next i
msg = msg & "S= " & CStr("2*" & n & "+" & fak) & "=" & (2 * n + fak) & vbCrLf Next
Другие вопросы из категории
Вычислить y=a*min(x,y,z)-b,где x,y,z,a,b-вводятся,причем a,b должны быть кратны 5,иначе выдать соответствующее сообщение
Вот как я написал
#include<iostream.h>
#include<conio.h>
#include<math.h>
int main()
{
int y,x,z,b,a;
cin>>x>>endl;
cin>>y>>endl;
cin>>z>>endl;
cin>>b>>endl;
cin>>a>>endl;
if ((a%5==0)&&(b%5==0))
if ((x<y)&&(y<z))
y=a*x-b cout<<y<<endl;
if ((y<x)&&(y<z))
y=a*y-b cout<<y<<endl;
if ((z<x)&&(x<q))
y=a*z-b cout<<y<<endl;
else cout<<"a,b ne kratnu 5";
getch();
return 0;
}
Значения элементов массива ввести с клавиатуры. Только можно поподробней)
Читайте также
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
2.написать программу в паскале
f(x)=2(sin*sin)x+1
среднее второго и предпоследнего элементов массива
дан целочисленный
массив из 10 элементов написать программу находящую сумму элементов
массива красных 3 ил 5
дан целочисленный массив из 30 ти элементов
написать программу которая позволяет найти среднее арифметическое
положительных элементов массива
2) Заданы действительные числа a , b , c и d . Написать программу нахождения полусуммы наименьшего и наибольшего из них.
3) Написать программу для вычисления суммы цифр числа , введенного с клавиатуры
Помогите прошу
рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу