Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Problem oko zadatka u pascalu..

[es] :: Pascal / Delphi / Kylix :: Problem oko zadatka u pascalu..

[ Pregleda: 4779 | Odgovora: 8 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

djole_za
zajechar

Član broj: 158998
Poruke: 101
77.46.225.*



+6 Profil

icon Problem oko zadatka u pascalu..11.11.2007. u 12:01 - pre 199 meseci
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..
 
Odgovor na temu

anon68680

Član broj: 68680
Poruke: 528
*.dynamic.sbb.co.yu.



+14 Profil

icon Re: Problem oko zadatka u pascalu..11.11.2007. u 12:41 - pre 199 meseci

ako je tekst:='589' onda je
tekst[1]:='5';
tekst[2]:='8';
tekst[3]:='9';
 
Odgovor na temu

Nemanja_666
Nemanja Tatic
Gradiska

Član broj: 116292
Poruke: 221
87.250.127.*



+19 Profil

icon Re: Problem oko zadatka u pascalu..11.11.2007. u 13:07 - pre 199 meseci
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.
 
Odgovor na temu

djole_za
zajechar

Član broj: 158998
Poruke: 101
77.46.225.*



+6 Profil

icon Re: Problem oko zadatka u pascalu..11.11.2007. u 13:13 - pre 199 meseci
pa tako smo i mi radili,ali nece..ne znam probacu neki drugi nachin,hvala na pomoci..
 
Odgovor na temu

escape...
student
Bg

Član broj: 163295
Poruke: 37
*.smin-1.sezampro.yu.



+1 Profil

icon Re: Problem oko zadatka u pascalu..18.11.2007. u 03:00 - pre 199 meseci
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...
 
Odgovor na temu

holononi

Član broj: 163572
Poruke: 658
*.rcub.bg.ac.yu.



+5 Profil

icon Re: Problem oko zadatka u pascalu..27.11.2007. u 12:46 - pre 198 meseci
Pogledaj na http://www.freewebs.com/holononi/rac_inf.html. Ima nesto resenih zadataka u Pascal-u. Mozda ce ti pomoci!
 
Odgovor na temu

c3nar1us
nema

Član broj: 163191
Poruke: 4
89.146.187.*



Profil

icon Re: Problem oko zadatka u pascalu..29.11.2007. u 01:41 - pre 198 meseci
Sry zbog off topica ali i ja imam problem u pascalu:p
Kako koristenjem jednog niza prebrojati kolko ima istih elemenata u tom nizu???
 
Odgovor na temu

Miroslav Ćurčić
ex mVeliki
Novi Sad

Član broj: 19034
Poruke: 1118
*.adsl.beotel.net.



+19 Profil

icon Re: Problem oko zadatka u pascalu..29.11.2007. u 08:25 - pre 198 meseci
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.
"The quieter you become, the more you are able to hear."
Blog | PowerCMS
 
Odgovor na temu

holononi

Član broj: 163572
Poruke: 658
*.vektor.net.



+5 Profil

icon Re: Problem oko zadatka u pascalu..30.11.2007. u 20:46 - pre 198 meseci
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]
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Problem oko zadatka u pascalu..

[ Pregleda: 4779 | Odgovora: 8 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.