Вопрос #17795

 #  

 #  

А чем засыпать будешь, кредитами или центами?

P.s. не нравится мне двоечники

 #  

Vic7 пишет

А чем засыпать будешь, кредитами или центами?

P.s. не нравится мне двоечники

искренне с тобой согласен...

 #  

Как - не знаю, но принцип такой.
Пишешь прогу для решения конкретного уравнения.
Потом создаешь страничку с полями ввода переменных.
Прописываешь подставленные переменные в прогу.
Создаешь страничку с выводом результата.

 #  

Хах это на excele легче сделать

 #  

hbyfn пишет

Хах это на excele легче сделать

 #  

А я знаю)
это очень легко

 #  

Написал на Pascal ABC, но думаю пойдёт и на турбо т.к. они практически идентичны

Program ololo;
Var x1,x2,a,c,b,d:real;
Begin
Writeln ('Введите число "a"');
Readln (a);
Writeln ('Введите число "b"');
Readln (b);
Writeln ('Введите число "c"');
Readln (c);
d:=sqr(b)-(4*a*c);
Writeln ('Дискрименант ' , d);
x1:=-b+SQRT(d)/2*a;
Writeln ('Первый корень равен ' ,x1);
x2:=-b-sqrt(d)/2*a;
Writeln ('Второй корень равен ' ,x2);
End.


А лучше учи паскаль))))