Щелкнуть на имени листа правой кнопкой мыши и из контекстного меню выбрать пункт Переименовать.
Переведём скорость оптического канала в кб / с.
Var
max, prev_max, n: integer;
begin
max := -10000;
prev_max := -10000;
repeat
read(n);
if n > max then begin
prev_max := max;
max := n;
end;
until n = 0;
writeln(max, ' ', prev_max, ' ', prev_max / max);
end.
using System;
using System.Collections.Generic;
public class Task
{
public static void Main()
{
//Два вещественных числа на одной строке с любым числом пробелов
Console.WriteLine("Введите коэффициенты a, b:");
var s = Console.ReadLine().Split(' ', StringSplitOptions.RemoveEmptyEntries);
double a = Convert.ToDouble(s[0]);
double b = Convert.ToDouble(s[1]);
Console.WriteLine("Решения уравнения ({0})*x^3+({1})*x=0:", a, b);
//a*x^3+bx=0
//x(a*x^2+b)=0
//x = 0 или x = +-sqrt(-b/a)
List<double> roots = new List<double>();
roots.Add(0);
const double eps = 1e-7; //точность для сравнения с нулем вещественных чисел
if (Math.Abs(a) < eps)
{
if (Math.Abs(b) < eps)
{
Console.WriteLine("Бесконечное количество решений");
return;
}
}
else
{
double c = -b/a;
if (c > eps)
{
c = Math.Sqrt(c);
roots.Add(-c);
roots.Add(c);
}
}
foreach(var x in roots)
{
Console.Write("{0} ", x);
}
Console.WriteLine();
}
}
Выделены отдельно Р и S в 4 и 6 блоке ( можно их не писать , а P и S записать в 9 блоке( в нем же допиши вывод ,а во 2 блоке ввод, забыл)). Чуть в кадр не поместился, но у тебя все эти формулы в пограмме. Удачи!
