program pascal-&gt;vb

#1
algiuelena

Posted 08 January 2007 - 15:22

New Member

Grup: Members
Posts: 7
Înscris: 08.01.2007

sal
cine ma poate ajuta si pe mine sa realizez programul asta in VB 5?
nu stiu deloc programare in VB 5 si am incercat sa citesc niste tutoriale dar nu am inteles nimic.
multumesc

program EcuatiaDeGradul_1;
var a,b,x: Real;
begin
  WriteLn ( 'Rezolvam ec. de gradul I ax+b=0' , Chr (7) ) ;
  Write ( ' Dati a = ' ) ; ReadLn (a) ;
  Write ( ' Dati b = ' ) ; ReadLn (

;
  if a=0 then
  if b=0 then WriteLn ( ' Nedeterminare ' )
  else WriteLn ( ' Imposibilitate' )
  else
  begin
  x := -b/a;
  WriteLn ( ' Solutia este: x = ' , x:7:3)
end;
ReadLn
end.

Back to top

#2
ionut_y

Posted 08 January 2007 - 23:06

Member

Grup: Members
Posts: 836
Înscris: 21.06.2005

O idee :

Dim  a,b,x as Double

a=val(Inputbox("Dati a=","0"))
b=val(Inputbox("Dati b=","0"))

If a=0 then
   If b=0 then
      Msgbox( "Nedeterminare ")
   Else
     Msgbox(" Imposibilitate" )
   Endif
Else
  x = -b/a
  Msgbox( "Solutia este : x = " +str(x))
Endif

Back to top

#3
algiuelena

Posted 09 January 2007 - 09:04

New Member

Grup: Members
Posts: 7
Înscris: 08.01.2007

ms fain
este perfect :*

Back to top

Anunturi

Bun venit pe Forumul Softpedia!

program pascal->vb

#1
algiuelena

Posted 08 January 2007 - 15:22

#2
ionut_y

Posted 08 January 2007 - 23:06

#3
algiuelena

Posted 09 January 2007 - 09:04

Anunturi

▶ 0 user(s) are reading this topic

program pascal->vb

#1 algiuelena Posted 08 January 2007 - 15:22

#2 ionut_y Posted 08 January 2007 - 23:06

#3 algiuelena Posted 09 January 2007 - 09:04

Anunturi

▶ 0 user(s) are reading this topic

Sign In

#1
algiuelena

Posted 08 January 2007 - 15:22

#2
ionut_y

Posted 08 January 2007 - 23:06

#3
algiuelena

Posted 09 January 2007 - 09:04