в Pascal сделать программку о дискриминанте и с комментариями. Безотлагательно!ЕСЛИ МОЖНО,ТО

В Pascal сделать программку о дискриминанте и с комментариями. Безотлагательно!
ЕСЛИ МОЖНО,ТО ПОКАЗАТЬ В САМОЙ ПРОГРАММЕ ПАСКАЛЬ. СПАСИБО!

Задать свой вопрос
Kristina
Только паскаль это не программка )
1 ответ
Program q3; var: a,b,c,D,x1,x2: real;(вводим переменные) readln(a); readln(b); readln(c);(считываем переменные с клавиатуры) D:=b*b-4*a*c;(формула дискриминанта) if(Dlt;0) then writeln('нет решений');(проверяем дикриминант меньше 0) if(D=0) then do begin x1:=-b/2*a; writeln(x1); end; if(Dgt;0) then do begin x1:=(-b+sqrt(D))/2*a; x2:=(-b-sqrt(D))/2*a;(обретаем корешки) writeln(x1); writeln(x2); end; end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт