помогите решить задачу Q BASIC

Discussion in 'Болталка' started by Яеbz, 23 May 2009.

  1. Яеbz

    Яеbz Banned

    Joined:
    22 May 2009
    Messages:
    0
    Likes Received:
    1
    Reputations:
    -5
    СОСТАВИТЬ ЗАДАЧУ ДЛЯ РЕШЕНИЯ КВАДРАТНОГО УРАВНЕНИЯ АХ^2+BX+C=0
     
    #1 Яеbz, 23 May 2009
  2. art2222

    art2222 Elder - Старейшина

    Joined:
    28 Apr 2008
    Messages:
    118
    Likes Received:
    57
    Reputations:
    10
    А тут решать нечего
    Code:
    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
    вроде так, давно на бейске не писал.
     
    #2 art2222, 23 May 2009
    Last edited: 23 May 2009
  3. _==wolf==_

    _==wolf==_ Elder - Старейшина

    Joined:
    29 May 2008
    Messages:
    127
    Likes Received:
    38
    Reputations:
    6
    наиацкейший школьнег 2009 года...
     
    #3 _==wolf==_, 23 May 2009
(You must log in or sign up to post here.)