[dmz]

siema, potrzebowałbym pomocy w napisaniu mi trzech pascalowych programów.

1.Napisz program, który trzy liczby podane przez użytkownika,
wypisze na ekranie w kolejności od najmniejszej do największej.

2. Napisz program obliczający średnią arytmetyczną N liczb podanych przez użytkownika.(liczbę N podaje użytkownik).

3.Napisz program sprawdzający, czy trzy dodatnie liczby całkowite mogą być długościami boków trójkąta , a jeśli tak to czy trójkąt jest równoramienny.

da rade ktos?

[Mrówek]

Programiki proste, szkoda tylko, że w Pascalu, bo ja programuje w C++. Co do pierwszego to wpisz sobie do googli "sortowanie bąbelkowe", w C++ działa, nie wiem czy w Pascalu też jest odpowiednik.

1. Nie wiem czy to jest to, ale w C podobnie to wygląda, więc to jest chyba to. Wyglada na jakiś cięższy sposób.

void bubblesort( TYP a[], int n ) 
{
  int i,j;
  TYP tmp;
  int change;
 
  for (i=0; i<n-1; ++i) 
  {
	   change=0;
	   for (j=0; j<n-1-i; j++)
		  if (a[j+1] < a[j])   //porównanie sąsiądów
		  {  
			  tmp = a[j];	  
			  a[j] = a[j+1];
			  a[j+1] = tmp;	//wypchanie bąbelka	 
			  change=1;
		  }
	   if(!change) break;	  // nie dokonano zmian - koniec!
  }
}