lukas_s Napisano Styczeń 24, 2015 Zgłoś Share Napisano Styczeń 24, 2015 Napisz program, który dla dwóch wektorów (w1,w2) 10 liczb całkowitych: -zastąp w każdym z wektorów zerami elementy o indeksach od 1 do indeksu równego ilości elementów nieparzystych w każdym z wektorów. Użyj procedur lub funkcji. Link do komentarza Udostępnij na innych stronach More sharing options...
olesio Napisano Styczeń 24, 2015 Zgłoś Share Napisano Styczeń 24, 2015 Pokaż co sam zakodziłeś. Programy na zaliczenie powinno się wykonywać samodzielnie. Pozdrawiam: olesio Link do komentarza Udostępnij na innych stronach More sharing options...
lukas_s Napisano Styczeń 25, 2015 Autor Zgłoś Share Napisano Styczeń 25, 2015 Pokaż co sam zakodziłeś. Programy na zaliczenie powinno się wykonywać samodzielnie. Program P1; type TVec=array of real; var Vec:TVec; Min:real; n:byte; procedure WczytajA(var PVec:TVec;var Pn:byte); var i:byte; begin Randomize; Write('Podaj gorna granice wektora: '); ReadLn(Pn); SetLength(PVec,Pn); for i:=1 to Pn do PVec := random(1000); end; procedure Minimum(PVec:TVec;var PMin:real;Pn:byte); var i:byte; begin PMin:=PVec[1]; for i:=2 to Pn do begin if PVec<PMin then PMin:=PVec; end; Write('Minimum wektora: ',PMin:2:2); end; procedure UtworzB(var PVec:TVec;PMin:real;Pn:byte); var i:byte; begin for i:=1 to Pn do begin PVec:=PVec/PMin; end; end; Link do komentarza Udostępnij na innych stronach More sharing options...
5corpio Napisano Styczeń 25, 2015 Zgłoś Share Napisano Styczeń 25, 2015 Po co ci minimum wektora? Skoro w zadaniu nie ma o tym kompletnie mowy. Druga sprawa: zmień typ real na int. Bo w zadaniu masz liczby całkowite. Trzecia sprawa: iterujesz w pętlach od 1 do Pn a tablice w Pascalu zawsze były od 0 elementu (zresztą jak w większości języków). Delphi ew. pozwalał na tworzenie różnych dziwnych zakresów. Poza tym kończyć też powinieneś chyba na Pn - 1 ? Zamiast dziwnego minimum raczej powinieneś sobie zrobić funkcję, która liczy ilość elementów nieparzystych (czyli reszta z dzielenia / 2 = parzystę / nieparzystę) zwraca int i do tego elementu w tablicy wpisujesz 0 wszędzie. Edycja: I po jaką cholerę w ogóle robisz SetLength() dla podanej przez usera długości wektora skoro w zadaniu napisałeś: który dla dwóch wektorów (w1,w2) 10 liczb całkowitych Ogarniasz choć trochę coś czy przepisałeś to z jakiegoś z d... miejsca? Bo jak dla mnie to kupy się w ogóle nie trzyma do treści zadania. Ot taka mini-strona moja po godzinach http://www.wnetrzekuchni.pl Link do komentarza Udostępnij na innych stronach More sharing options...
Polecane posty
Zarchiwizowany
Ten temat jest archiwizowany i nie można dodawać nowych odpowiedzi.