Musze zrobic sortowanie 4 zmiennych(liczb).Mam je posortowac w kolejności od najmniejszej do najwiekszej lub na odwrót i najlepiej zapisac to tych samych komórek (ale to tez nie konieczne).Musze to zrobic w Bascomie.Poprosilem klege ktory napisal mi to w C++.Jednak ja nie wiem jak to przenieść do Bascoma(opartego na Basicu).Oto źródło z C++:
int l[4];
l[0]=1;
l[1]=7;
l[2]=6;
l[3]=5;
int temp;
for(int i=0; i<3; i++) //pierwsza petla
for(int j=i+1; j<4; j++)
{
if(l[i]>l[j])
{
temp=l[j];
l[j]=l[i];
l[i]=temp;
}
}
A to moja niedzialająca interpretacja z Bascoma:
Dim Light(4) As Byte
Dim Temp As Byte
Dim I As Byte , J As Byte
Light(1) = 10
Light(2) = 70
Light(3) = 40
Light(4) = 30
Do
For I = 1 To 4
For J = I + 1 To 5
If Light(i) > Light(j) Then
Temp = Light(j)
Light(j) = Light(i)
Light(i) = Temp
End If
Next I
Next J
Loop
Prosze o pomoc i wskazówki jak to zrealizowac najprościej Bascomie.
int l[4];
l[0]=1;
l[1]=7;
l[2]=6;
l[3]=5;
int temp;
for(int i=0; i<3; i++) //pierwsza petla
for(int j=i+1; j<4; j++)
{
if(l[i]>l[j])
{
temp=l[j];
l[j]=l[i];
l[i]=temp;
}
}
A to moja niedzialająca interpretacja z Bascoma:
Dim Light(4) As Byte
Dim Temp As Byte
Dim I As Byte , J As Byte
Light(1) = 10
Light(2) = 70
Light(3) = 40
Light(4) = 30
Do
For I = 1 To 4
For J = I + 1 To 5
If Light(i) > Light(j) Then
Temp = Light(j)
Light(j) = Light(i)
Light(i) = Temp
End If
Next I
Next J
Loop
Prosze o pomoc i wskazówki jak to zrealizowac najprościej Bascomie.