Mam prośbe. Potrzebuje pomocy w napisaniu programu pod Pa

0

Musze napisac program pod TP, ktory wczytuje 3 liczby a nastepnie podajej je w kolejnosci od najwiekszej do najmniejszej. Prosze o napisanie mi tresci tej czesci programu, ktore zajmuje sie porownywaniem tych 3 kiczb lub po prostu tresci calego programu. Mam nadzieje, ze mi pomoŻesz. Z gory bardzo dziekuje i czekam z niecierpliwoscia

kuki z Rzeszowa

0

sprawdź sobie kod qsort.pas z exapmles z TP i poszukaj jeszcze tam - jezeli nie będziesz wiedział co dalej to spróbuję tobie pomóc - lecz nie gwarantuję sukcesu :/

0

domyslam sie ze jestes raczej początkującym programistą (jesli sie myle to zwracam honor). Mozesz albo napisac n! pętli warunkowych (n=3 =&gt n!=6):
if (a&gtb) and (b&gtc) then WriteLn(a,' ',b,' ',c);
if (a&gtb) and (c&gtb) then WriteLn(a,' ',c,' ',b);
...
i tak 6 razy
oczywiscie dla scislosci nalezy pisac w polowie przypadkow nie '&gt' a '&gt=' zeby program byl uniwersalny, możesz także najpierw posortowac owe liczby a nastepnie je po prostu wypisac. Algorytm sortowania znajdziesz z pewnością na tej stronie (może dział algorytmy ; ]);

pozdrawiam

0

program Sort;

uses
Crt;
Const
Max = 3; {liczba elementow tablicy}
Var
Tablica: Array[1..Max] of integer;{nie wiem jakie liczby chcesz sortowac;}
I: Integer; { zmienna pomocnicza}

Procedure Sortuj(Var X: Array of integer);
var
j,k: integer; {j-liczba przegladan tablicy, k-numer elementu}
temp: integer;
Begin
for j:=0 to (Max-1) do
begin
for k:=0 to (Max-2) do
Begin
if (X[k]&gtX[k+1]) then
Begin
temp:= X[k];
X[k]:= X[k+1];
X[k+1]:= temp;
End;
End;
end;
End;

begin
WriteLn('Podaj ',Max,'liczb(y): ');
For I:=1 to Max do
Read(Tablica[I]);
Sortuj(Tablica);
Write('Posortowana tablica: ');
For I:=1 to Max do
Write(Tablica[I],', ');
ReadKey;
end.

Sprawdz czy o to Ci chodzilo, powinno dzialac.
Pozdrawiam {hello} --DiCz

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0