Pascal

[FakeDeath]

E ovako, imam 2 pitanja....
1. Kako da on n unetih brojeva nađem najveći ?
2. Kako da u nekom stringu program gleda sva slova kao velika ili mala (mislim da to ide preko uppercase funkcije, ali ne znam kako )

[zokocx]

1. link
http://bit.ly/A0AZcg

http://www.programmersheaven.com/mb/...-to-uper-case/

Google ti je jedini prijatelj koji ne trazi uslugu nazad, pa ga koristi !

[White Ripper]

FakeDeath kaže:

E ovako, imam 2 pitanja....
1. Kako da on n unetih brojeva nađem najveći ?
2. Kako da u nekom stringu program gleda sva slova kao velika ili mala (mislim da to ide preko uppercase funkcije, ali ne znam kako )

1. if then else koristiš (a ima i drugih načina)
Znači ovako nekako, ako nisam nešto izostavio.

if a>b then if a>c then writeln('najvece a',a)
else writeln('najvece c',c)
else if b>c then writeln('najvece b',b)
else writeln('najvece c',c);

Dao sam ti srž programa, ostalo možeš i sam.
2. Ovo drugo ti je zokocx priložio, a ima i fazon preko TYPE, ali me mrzi da kucam i razmišljam.

[voodoo_]

Uradiš quicksort niza pa pročitaš prvi ili poslednji element, zavisno da li si sortirao po opadajućim ili rastućim vrednostima.

[Futuristic]

E cuo sam nesto o tim nacinima sortiranja : taj quicksort sto si spomenuo, i neki bubble sort. Sta ih karakterise ukratko ako vas ne mrzi da pisete?

[Belphegor]

Slikovito:

Quick sort

Bubble sort

[FakeDeath]

Радим у Паскалу неких 6 месеци, још нисам стигао до сортирања низа. Задатак који треба да урадим гласи :
Написати програм који за дати низ од Н бројева израчунава за колико је највећи унети број већи од просечне вредности унетих бројева.
Ја бих то требао да урадим што једноставније, са for, while ili repeat петљом....

[FakeDeath]

white ripper kaže:

1. If then else koristiš (a ima i drugih načina)
znači ovako nekako, ako nisam nešto izostavio.



dao sam ti srž programa, ostalo možeš i sam.
2. Ovo drugo ti je zokocx priložio, a ima i fazon preko type, ali me mrzi da kucam i razmišljam.

Ово је када знам колико бројева испитујем. Мени треба за Н унетих бројева... само са једном променљивом.
А ово друго сам успео

[voodoo_]

Zaboravio sam paskalsku sintaksu, valjda je ovako

var
  niz: array[1..n] of integer;
  max: integer;
  i: integer;
begin
  max := niz[1];
  for i := 2 to n do
    if max > niz[i] then max := niz[i];
end;

Kad se petlja završi, max će sadržati najveću vrednost u nizu.

[FakeDeath]

voodoo_ kaže:

zaboravio sam paskalsku sintaksu, valjda je ovako

var
  niz: Array[1..n] of integer;
  max: Integer;
  i: Integer;
begin
  max := niz[1];
  for i := 2 to n do
    if max > niz[i] then max := niz[i];
end;

kad se petlja završi, max će sadržati najveću vrednost u nizu.

То је отприлике то, хвала