Skocz do zawartości

mysame

Użytkownicy
  • Zawartość

    2
  • Rejestracja

  • Ostatnio

Reputacja

0 Neutralny

O mysame

  • Ranga
    Nowy na forum
  1. mysame

    3 liczby do posortowania

    Bardzo dziękuje, aczkolwiek spróbowałem zrobić też dla czterech liczb na podstawie algorytmu i kompletnie nie wiem co robię źle program sortowanie2; uses crt; var a,b,c,d: integer; begin writeln('Podaj liczby: '); readln(a,b,c,d); if(a<=b) and (c<=b) and (d<=c) then writeln(d,c,b,a) else if(a<=b) and (c>=b) and (d<=a) then writeln(d,c,a,b) else if(a>=b) and (c<=b) and (d<=c) then writeln(d,c,b,a) else if(a>=b) and (c>=b) and (d<=b) then writeln(d,b,c,a) else if(a>=b) and (c>=b) and (d>=b) and (d>=c) then writeln(a,c,a,b) else if(a>=b) and (c>=b) and (d>=b) and (d<=c) then writeln(d,c,b,a) else if(a>=b) and (c<=b) and (d>=c) and (b>=d) then writeln(b,c,a,d) else if(a>=b) and (c<=b) and (d>=c) and (b<=d) then writeln(b,c,d,a) else if(a<=b) and (c>=b) and (d>=a) and (d>=c) then writeln(b,c,a,d) else if(a<=b) and (c>=b) and (d>=a) and (d<=c) then writeln(b,c,d,a) else if(a<=b) and (c<=b) and (d>=c) and (a>=d) then writeln(a,b,d,c) else if(a<=b) and (c<=b) and (d>=c) and (a<=d) then writeln(a,b,c,d); readkey end.
  2. mysame

    3 liczby do posortowania

    Witam, napisałem program, który ma sortować trzy liczby, ale oczywiście nie działa. Z góry dziękuje za wskazówki jak go naprawić. program sortowanie; uses crt; var x: integer; var y: integer; var z: integer; begin writeln('Podaj pierwsza liczbe: '); readln(x); writeln('Podaj druga liczbe: '); readln(y); writeln('Podaj trzecia liczbe: '); readln(z); if (x<=y) and (z<=x) then writeln(z,x,y); if (x<=y) and (z>=x) and (y<=z) then writeln(x,y,z); if (x<=y) and (z>=x) and (y>=z) then writeln(x,z,y); if (x>=y) and (z<=y) then writeln(z,y,x); if (x>=y) and (z<=y) and (z<=x) then writeln(y,z,x); if (x>=y) and (z<=y) and (z>=x) then writeln(y,x,z); readkey end.
×