Помогите написать простенькие программки! Язык не важен-от Бэйсика до Си++

Question

1)Составьте программу, вычисляющую 
отношение факториала числа N к сумме 
целых чисел от 1 до N. Целое число N 
должно задаваться вводом с клавиатуры с 
проверкой соответствия вводимого числа. 
2)Составьте программу, которая по 
заданным координатам треугольника (ввод с 
клавиатуры 6-ти вещественных чисел) 
рассчитывает его периметр и площадь

Ну раз написал, значит надо

Axtam Yunusov · Accepted Answer

#include
#include
using namespace std;
unsigned long long fact(unsigned long long);
unsigned long long summa(unsigned long long);
int main() {
unsigned long long x;
while (true) {
bool flag = true;
while (flag) {
cout << "N?.. ";
cin >> x;
if (cin.good()) {
if (x < 1 || x > 20) continue;
double y = double(fact(x)) / summa(x);
cout << "Result = " << setprecision(17) << y << endl;
flag = false;
} else {
cin.clear();
cin.ignore(12,'\n');
}
}
}
cin.get(); cin.get();
return 0;
}
unsigned long long fact(unsigned long long x) {
return (x == 0) ? 1 : x * fact(x - 1ull);
}
unsigned long long summa(unsigned long long x) {
return (x == 0) ? 0 : x + summa(x - 1ull);
}

Аяна Суберекова · Answer

VB 6 
1) 
Function Fact(n) 
Dim i As Integer 
Fact = 1 
For i = 1 To n 
Fact = Fact*i 
Next i 
End Function 
 
Sub FactSumm 
Dim N As Integer, Sum As Integer, SN As Single, Mes As String 
N = InputBox ("Введите N") 
Sum = N*(N+1)/2 
SN = Fact(N) / Sum 
Mes = "Отношение факториала к сумме равно" & SN 
MsgBox (Mes) 
End Sub 
 
2) 
Sub Triangle 
Dim Ax As Integer, Ay As Integer, Bx As Integer, By As Integer, Cx As Integer, Cy As Integer 
Dim AB As Single, AC As Single, BC As Single, P As Single, S As Single, Mes As String 
AB = Sqr((Bx - Ax)^2 + (By - Ay)^2): BC = Sqr((Cx - Bx)^2 + (Cy - By)^2): AC = Sqr((Cx - Ax)^2 + (Cy - Ay)^2) 
P = AB + BC + AC 
S = Sqr(P/2*(P/2 - AB)*(P/2 - AC)*(P/2 - BC)) 
Mes = "Периметр Р = " & P & "; Площадь S = " & S 
MsgBox (Mes) 
End Sub

Инга Хоюр-Оол · Answer

На F# могу смеху ради только непонятно что вы с этим будете делать. . ну как то так 1 будет http://pastebin.com/YStdphDs