Sub Main()
Dim a(9) As Double
a(0) = (Math.PI + 0.03 * 10 ^ -3) / Math.Log(Math.Sqrt(15 * Math.E) - 0.2 * 10 ^ -4) + 10 ^ (4.2 - 0.67)
a(1) = 3.95 + (1 / 20) ^ 2 + 1 / 900
a(2) = (2.75 * 10 ^ 2) / Math.Sqrt(14.3 + Math.PI)
a(3) = 2 ^ (Math.Log(0.34 - 10 ^ 3) - (0.16 - 5.27) / 0.029)
a(4) = (Math.Sqrt(0.079 / 3.5 - 6.1 * 10 ^ -5) + 0.4) * (Math.E ^ (0.7 / 9 + 0.8) - 1.5)
a(5) = (Math.Sqrt(7.65) + 4.1 * 10 ^ -3) ^ 2 / Math.Log(3.17 ^ 2 + 3.752) - Math.Sqrt(1 / 0.46 - 0.9)
a(6) = Math.E ^ (Math.PI / 4) * Math.Log(3 * (17.8 ^ 2 - 0.139 * 10 ^ 2)) + 2.3 * 0.69 / 1.5
a(7) = 6.7 * (1 / (Math.PI + 5.04) + 10 ^ (0.198 * Math.Sqrt(3.2))) - 0.36 * 10 ^ -3
a(8) = (10 ^ (1 / 3) - Math.Log(4.25 + 1 / 7) + 0.89 * 10 ^ -4 * 1.2) / (Math.E + 6)
a(9) = 0.09 * (Math.Log(0.41 * 10 ^ -3 + Math.Sqrt(0.26 * 10 ^ -5)) + Math.Sqrt(5.68 - Math.Sqrt(3)) - Math.E ^ (3 * 7))
Console.WriteLine(a(0))
Console.WriteLine(a(1))
Console.WriteLine(a(2))
Console.WriteLine(a(3))
Console.WriteLine(a(4))
Console.WriteLine(a(5))
Console.WriteLine(a(6))
Console.WriteLine(a(7))
Console.WriteLine(a(8))
Console.WriteLine(a(9))
Console.Read()
<span> End Sub
Знаю, можно было вывод сделать циклом, но у меня не получилось ._.</span>
Using System;
public class Test
{
public static void Main()
{
int n, a, b;
Console.Write("Введите номер задачи:\n");
Console.Write("1 - вычисление максимального числа;\n");
Console.Write("2 - вычисление минимального числа;\n");
Console.Write("3 - вычисление суммы чисел.\n");
Console.Write("4 - вычисление произведения чисел.\n");
n = int.Parse(Console.ReadLine());
Console.Write("Введите два числа:\n");
a = int.Parse(Console.ReadLine());
b = int.Parse(Console.ReadLine());
switch (n) {
case 1 :
if (a>b) Console.Write("max = {0}",a);
else Console.Write("max = {0}",b);
break;
case 2 :
if (a<b) Console.Write("min = {0}",a);
else Console.Write("min = {0}",b);
break;
case 3:
Console.Write("S = {0}",a+b);
break;
case 4:
Console.Write("П = {0}",a*b);
break;
}
}
}
Пример:
<span>Введите номер задачи:
1 - вычисление максимального числа;
2 - вычисление минимального числа;
3 - вычисление суммы чисел.
4 - вычисление произведения чисел.
4
Введите два числа:
5
8
П = 40</span>
24=11000
12=1100
17=10001
(http://numsys.ru/)
2847*512=<span>
1457664 байт*8=</span><span><span>11661312 бит емкость дискеты
V=t*D*i*2(для стерео выделяется 2 дорожки)
</span></span><span>t=11661312/16/48000/2=</span><span><span>7,592 сек</span></span>
Program Test;
Var
a1, a2, d, k, max, tmp: integer;
sum: real;
rule: boolean;
Begin
Writeln('Введите а1 и а2');
Readl(a1, a2);
k := 2;
d := a2 - a1;
rule := true;
while (rule = true) do
begin
k := k + 1;
tmp := a1 + k * d;
if (tmp < 50) then
max := tmp
else
rule := false;
end;
sum := (a1 + max) / 2 * k;
Writeln();
Writeln('Сумма = ', sum);
End.
------------------------
Программа будет работать только для арифметических прогрессий, например, таких, как последовательность из задания. Вводить нужно 2 целых числа (первые два члена прогрессии) через пробел (в вашем случае 4 и 7)