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/pasprog/383331/383331/convert-lower-case-to-uper-case/

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

[White Ripper]

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:

y_G9BkAm6B8

P00xJgWzz2c

[FakeDeath]

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

[FakeDeath]

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]

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.

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