Skocz do zawartości

Prosze o Pomoc Pascal procedura lub funkcja


lukas_s

Polecane posty

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

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

Zarchiwizowany

Ten temat jest archiwizowany i nie można dodawać nowych odpowiedzi.

×
×
  • Utwórz nowe...