Var a, b, c, d, x1, x2 : real; \\ задание переменных действительных чисел.
begin write('a = '); readln(a); \\запрос у пользователя первого коэффициента write('b = '); readln(b); \\запрос у пользователя второго коэффициента write('c = '); readln(c); \\запрос у пользователя третьего коэффициента d := b*b - 4*a*c; \\ расчет дискриминанта if d=0 then \\ветка для решения при нулевом дискриминанте begin x1 := b / (2 * a) writeln (x1:3:3); end \\ окончание при нулевом дискриминанте else if d>0 then \\ ветка для решения при положительном дискриминанте begin x1 := (- b + sqrt(d) / (2 * a); \\ первый корень x2 := (- b - sqrt(d) / (2 * a); \\ второй корень writeln (x1:3:3, ' ', x2:3:3); \\ вывод ответа end else \\ ветка решения для отрицательного дискриминанта writeln ('Нет действительных корней'); end.
static void Main(string[] args)
{
int countzero = 0;
int countplus = 0;
int countminus = 0;
int N;
Console.Write("Укажите сколько чисел ввести: ");
N = Convert.ToInt32(Console.ReadLine());
int[] mas = new int[N];
for (int i = 0; i < N; i++)
{
Console.WriteLine("Введите {0}-й элемент", i + 1);
mas[i] = int.Parse(Console.ReadLine());
}
for (int i = 0; i < N; i++)
{
if (mas[i] == 0)
{
countzero++;
}
else if(mas[i] < 0)
{
countminus++;
}
else if(mas[i] > 0)
{
countplus++;
}
}
Console.WriteLine();
Console.WriteLine("Количество положительных элементов = " + countplus);
Console.WriteLine("Количество отрицательных элементов = " + countminus);
Console.WriteLine("Количество нулевых элементов = " + countzero);
Console.ReadKey();
}
}
}
Объяснение:
begin
write('a = '); readln(a); \\запрос у пользователя первого коэффициента
write('b = '); readln(b); \\запрос у пользователя второго коэффициента
write('c = '); readln(c); \\запрос у пользователя третьего коэффициента
d := b*b - 4*a*c; \\ расчет дискриминанта
if d=0 then \\ветка для решения при нулевом дискриминанте
begin
x1 := b / (2 * a)
writeln (x1:3:3);
end \\ окончание при нулевом дискриминанте
else
if d>0 then \\ ветка для решения при положительном дискриминанте
begin
x1 := (- b + sqrt(d) / (2 * a); \\ первый корень
x2 := (- b - sqrt(d) / (2 * a); \\ второй корень
writeln (x1:3:3, ' ', x2:3:3); \\ вывод ответа
end
else \\ ветка решения для отрицательного дискриминанта
writeln ('Нет действительных корней');
end.