Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   Болталка (https://forum.antichat.xyz/forumdisplay.php?f=46)
-   -   помогите решить задачу Q BASIC (https://forum.antichat.xyz/showthread.php?t=121952)

Яеbz 23.05.2009 15:35

помогите решить задачу Q BASIC
 
СОСТАВИТЬ ЗАДАЧУ ДЛЯ РЕШЕНИЯ КВАДРАТНОГО УРАВНЕНИЯ АХ^2+BX+C=0

art2222 23.05.2009 17:22

А тут решать нечего
Код:

input a,b,c
d = b^2-4*a*c
if d=0 then print "x=";-b/2*a
if d>0 then
  print "x1=";(-b-sqrt(d))/2*a
  print "x2=";(-b+sqrt(d))/2*a
endif

вроде так, давно на бейске не писал.

_==wolf==_ 23.05.2009 17:29

наиацкейший школьнег 2009 года...


Время: 21:54