Løse Ligninger af 1. og 2. grad randomfunktionen

forstår ikek hvad du spørger om..

Et er at løse ligninger med en eller flere ubekendte - hvad har det med random funktionen at gøre?

Hvad mener du med "Kan man få ligninger ved hjælp af random funktionen?"

Det er 2 spørgsmål:
1) en kode til at løse ligninger
2) ved hjælp af random kan man få et tilfældigt tal, heltal eller decimaltal.
Måske kunne man også få en tilfældig ligning, fx x+2 = 10

Hvis du bryder dine ligninger op i

Ax^2 + Bx + C = 0

og beder brugeren indlæse A (hvis der er et A), B og C, kan du jo selv opstille ligningen for at løse den, og skrive resultatet ud.

F.eks

If A=0 then 'førstegradsligning
  løsning = -C/B
Else 'Andengradsligning
  løsning1 = -B + sqr(B^2-4*A*C)/(2*A)
  løsning2 = -B - sqr(B^2-4*A*C)/(2*A)
End if

Du kan jo tjekke determinanten og fortegnene på koeficienterne for allerede inden du begynder at regne, at se om der overhovedet ER nogle løsniger - det kunne jo være, at størrelsen B^2-4*A*C er mindre end nul, og så er der jo ingen (reelle) løsninger

        ___________


Hvis du i stedet beder brugeren indtaste HELE ligningen, og ikke kun koeficienterne, altså fx "5x^2+3x-8=0" er det straks meget værre. - så skal du pille A, B og C ud af den tekststreng, og desuden gøre alverdens fikfakserier for at tjekke, at der er indtastet en lovlig ligning

        ___________


Random: Du kan jo bare via randomfunktionen genere en masse til, du kan smide ind som koeficienter i en ligning - brug Randomize imellem hver kørsel af Random, så bliver det mere tilfældigt

-B - sqr(B^2-4*A*C)/(2*A)
rettes til
(-B - sqr(B^2-4*A*C))/(2*A)

tilsvarende med løsning1 - der mangler også en parantes

martin_moth Tak for hjælpen , jeg prøver senere på dagen. Hvis jeg ikke kan få det til at fungere, vender jeg tilbage.

tjek selv om det hedder sqr() eller sqrt() - i VB6 hedder det det ene, i VBA det andet, kan ikke huske hvad der gælder i VB6