x-kom hosting

Obliczanie Średniej

hawli
utworzono
utworzono

Nie ukrywam ze nie znam sie na tym, ale kazdy kiedys zaczynał.. Chciałbym napisac jakis prosty 'program' np pod dos, ktory obliczalby średnią arytmetyczną ważoną. Najpierw prosilby o podanie ilosci danych, potem po kolei dane i ich wagi. czego musze sie nauczyc i gdzie ot znalezc w necie?;p

luq
komentarz
komentarz

Zacząć musisz od wybrania języka.

Potem już tylko :P wystarczy się go nauczyć.

  • 3 tygodnie później...
Gość
komentarz
komentarz

a da sie moze napisac jakis plik wsadowy obliczajacy srednio ? za pomoca wsadow>?

  • 4 tygodnie później...
MateuszRyaN1990
komentarz
komentarz

Zaczynasz zabawe z programowaniem...polecam Pascala :P Jest idealny na początek...a baw sie we "Free Pascalu"

W paskalu wyglądało by to miejwięcej tak:

program srednia;var wynik, n, temp;begin  write("Podaj liczbe skladnikow: ");  readln(n);  wynik:=0;  writeln("Podaj kolejne składniki (oddzielone enterem)");  for i:=1 to n do	 begin	 readln(tmp);	 wynik:=wynik+tmp;  end;  wynik:=wynik/n;  writeln("Srednia arytmetyczna wynosi: ",wynik);  readln;end.
grucha
komentarz
komentarz

Po pierwsze to temat trochę odkopany, ale pomińmy to.

Po drugie MateuszRyaN1990 nie dostosowałeś się do warunków zadania postawionego przez hawli, ponieważ program miał obliczać średnią ważoną ;]

Wg. hawli program może być pod DOS'em, nie określił jaki ma być język programowania, a skoro jesteśmy w dziele innych języków to odskoczymy trochę od tych najpopularniejszych i napiszemy coś w Fortranie 77, który idealnie nadaje się do obliczeń numerycznych ;]

CC	 Obliczanie wartosci sredniej wazonejC	  program sr_wazona	  real liczba(100), srednia	  integer waga(100) 	  write(*,*)' Podaj ilosc liczb: '	  read(*,*)n	  do 100 i=1,n	  write(*,901)i	  read(*,*)liczba(i)	  write(*,902)i	  read(*,*)waga(i)100   continue	  suma=0	  do 101 i=1,n	  suma=suma+(liczba(i)*waga(i))101   continue	  ile=0	  do 102 i=1,n102   ile=ile+waga(i)	  srednia=suma/ile	  write(*,900)srednia900   format(//'Wartosc sredniej wazonej wynosi: ',F8.2)901   format('Podaj liczbe ',I3,':')902   format('Podaj wage dla liczby ',I3,':')	  stop	  end

Wciąż szukasz rozwiązania problemu? Napisz teraz na forum!

Możesz zadać pytanie bez konieczności rejestracji - wystarczy, że wypełnisz formularz.

×
×
  • Dodaj nową pozycję...

Powiadomienie o plikach cookie

Strona wykorzystuje pliki cookies w celu prawidłowego świadczenia usług i wygody użytkowników. Warunki przechowywania i dostępu do plików cookies możesz zmienić w ustawieniach przeglądarki.