[ djole_za @ 11.11.2007. 12:01 ] @
Unosi se trocifreni broj,i treba odrediti da li su cifre tog broja u rastucem ili opadajucem poretku..

e sad,problem je u tome kako odrediti srednju cifru broja?za prvu i poslednju mi nije problem,niti za to kako da odredim da li je rastuci ili opadajuci poredak,samo mi ta srednja cifra zadaje muke..
[ anon68680 @ 11.11.2007. 12:41 ] @

ako je tekst:='589' onda je
tekst[1]:='5';
tekst[2]:='8';
tekst[3]:='9';
[ Nemanja_666 @ 11.11.2007. 13:07 ] @
Code:

program pr_01;
var
  Ulaz : integer;
  cif1, cif2, cif3 : integer;
begin
  Readln(Ulaz);
  cif1 := Ulaz mod 10;
  cif2 := Ulaz div 10 mod 10;
  cif3 := ulaz div 100;
  writeln('jedinice:', cif1);
  writeln('desetice:', cif2);
  writeln('stotice:', cif3);
  readln;
end.


valjda je ovako. Pisem napamet.
[ djole_za @ 11.11.2007. 13:13 ] @
pa tako smo i mi radili,ali nece..ne znam probacu neki drugi nachin,hvala na pomoci..
[ escape... @ 18.11.2007. 03:00 ] @
Može ovako:
Code:

program nekiTamo;
var broj, stotine, desetice, jedinice : integer;
begin
   readln(broj);
   stotine:=broj div 100;
   desetice:=(broj - stotine*100) div 10;
   jedinice:=broj - stotine*100 - desetice*10;
   writeln('stotine: ', stotine);
   writeln('desetice: ', desetice);
   writeln('jedinice: ', jedinice);
   readln;
end.


ili ovako:

Code:

   ...
   stotine:=broj div 100;
   broj:=broj mod 100;
   desetice:=broj div 10;
   jedinice:=broj mod 10;
   ...


ili, npr., ovako:

Code:

   ...
   stotine:=broj div 100;
   desetice:=(broj mod 100) div 10;
   jedinice:=(broj mod 100) mod 10 ;
   ...


Postoji gomila načina...
[ holononi @ 27.11.2007. 12:46 ] @
Pogledaj na http://www.freewebs.com/holononi/rac_inf.html. Ima nesto resenih zadataka u Pascal-u. Mozda ce ti pomoci!
[ c3nar1us @ 29.11.2007. 01:41 ] @
Sry zbog off topica ali i ja imam problem u pascalu:p
Kako koristenjem jednog niza prebrojati kolko ima istih elemenata u tom nizu???
[ Miroslav Ćurčić @ 29.11.2007. 08:25 ] @
Recimo da u petlji prođeš kroz niz,
gledajući svaki zaseban element
prođeš još jednom (ugneždena petlja) kroz elemente od početka ali samo do trenutne pozicije tražeći dali je trenutni element već jednom obrađen, te ako nije onda neki globalni brojač uvećaš za 1.

Na kraju oduzmeš taj brojač od broja elemenata u nizu i dobiješ broj duplikata.
[ holononi @ 30.11.2007. 20:46 ] @
Program koji odredjuje broj pojedinih elemenata u nizu. Optimizaciju prepustam vama.

Code:

program niz;{holononi}
uses Crt;
const
     nMax = 10;
var
        a: array [1..nMax] of integer;
        b: array [1..nMax] of integer;
        i, j, nMin: integer;

begin
        writeln('--------------------------------');
        Randomize;
        nMin := -32767;
    {Pomocni marker minus beskonacno.
     Pretpostavka je da se nMin
     ne pojavljuje u nizu.}
        for i := 1 to nMax do
        begin
            a[i] := Random(nMax);{Kreiramo niz.}
            write('   ', a[i]);
        end;
        writeln;
        for i := 1 to nMax do
    {Razmotriti sve clanove niza}
        begin
            b[i] := 1;
        {Svaki element se javlja bar jednom u nizu.}
            if a[i] <> nMin then
        {Ako je neki prethodni jednak nMin
         tada je vec ubrojan}
            begin
               j := i + 1;
               while j <= nMax do
           {Posmatrati samo sledece clanove.}
               begin
                    if a[i] = a[j] then
            {Moze se desiti i da je a[j]=nMin,
             ali necemo to razmatrati.}
                    begin
                         b[i] := b[i] + 1;
                {Uvecaj brojac istih elemenat.}
                         a[j] := nMin;
        {Izbaciti tekuci element iz razmatranja.}
                    end;
                    j := j + 1;
               end;
            end;
        end;

        for i := 1 to nMax do
            if a[i] <> nMin then
               writeln( 'Broj ', a[i],
        ' se pojavljuje ',
             b[i], ' puta.' );
end.


[Ovu poruku je menjao holononi dana 30.11.2007. u 22:10 GMT+1]