hawli utworzono 18 grudnia 2007 utworzono 18 grudnia 2007 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 21 grudnia 2007 komentarz 21 grudnia 2007 Zacząć musisz od wybrania języka. Potem już tylko wystarczy się go nauczyć.
Gość komentarz 7 stycznia 2008 komentarz 7 stycznia 2008 a da sie moze napisac jakis plik wsadowy obliczajacy srednio ? za pomoca wsadow>?
MateuszRyaN1990 komentarz 31 stycznia 2008 komentarz 31 stycznia 2008 Zaczynasz zabawe z programowaniem...polecam Pascala 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 2 lutego 2008 komentarz 2 lutego 2008 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.