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

Pomoc oko zadatka!!!

[es] :: Pascal / Delphi / Kylix :: Pomoc oko zadatka!!!

[ Pregleda: 2901 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Mix5
Milos Djuric
STE, Asseco
Jagodina

Član broj: 14282
Poruke: 332
195.252.103.*



Profil

icon Pomoc oko zadatka!!!19.12.2005. u 22:32 - pre 194 meseci
Dobio sam zadatak da napisem program kojim se uredjuju reci linije teksta koja se unosi sa standardnog ulaza po rastucoj duzini reci. Smatrati da linija teksta sadrzi najvise 10 reci i sa svaka rec ima najvise 20 karaktera. Reci su odvojene jednim razmakom. Program treba da ucita sve potrebne podatke, zatim izvrsi zahtevanu obradu, i na kraju ispise rezultate te obrade. Pri zadavanju niza, prvo se ucita broj elemenata, a zatim i sami elementi niza. Kod ispisivanja niza, ne ispisuje se broj elemenata, vec se ispisuju samo elementi niza. Program treba da ponavlja ceo postupak sve dok se ne unese neka karakteristicna vrednost za neki od ulaznih podataka (npr. negativna vrednost za duzinu niza). Predvideti maksimalni broj elemenata niza, a u toku rada proveravati da li je uneta dimenzija niza manja od maksimalne.

Napisao sam program koji ocigledno ne funkcionise kako treba pa ako neko moze da mi objasni zasto program ne radi i sta treba izmeniti da bi radio bio bih mu jako zahvalan.

Zadatak je u attachmentu

[Ovu poruku je menjao Mix5 dana 20.12.2005. u 00:01 GMT+1]
Prikačeni fajlovi
 
Odgovor na temu

Celebmegil
Nedic Aleksandar

Član broj: 64720
Poruke: 12
*.blueisp.co.yu.



Profil

icon Re: Pomoc oko zadatka!!!20.12.2005. u 02:10 - pre 194 meseci
Evo ti prepravljene verzije tvog programa.
Kod tebe je greska bila sto si samo jednom ucitavo niz.
Takodje treba da mu dozvolis i da ucitava max_el stringova jer kaze da je to maksimalan broj (sto znaci da se i on racuna).

Code:

program dz3;
const max_el=10;
type niz=array[1..max_el] of string[20];
var  a:niz;
     pom:string[20];
     i,p:1..20;
     n:integer;
begin
     write('Unesite broj el. niza: ');read(n);
     while (n>0) and (n<=max_el) do
     begin
      for i:= 1 to n do
                 readln(a[i]);
          for i:= 1 to n-1 do
              for p:= i+1 to n do
                 if length(a[i]) > length(a[p]) then
                 begin
                      pom:=a[i];
                      a[i]:=a[p];
                      a[p]:=pom;
                 end;
          for i:=1 to n do
              writeln(a[i]);

     write('Unesite broj el. niza: ');read(n);
     end
end.
 
Odgovor na temu

Mix5
Milos Djuric
STE, Asseco
Jagodina

Član broj: 14282
Poruke: 332
*.dial.InfoSky.Net.



Profil

icon Re: Pomoc oko zadatka!!!20.12.2005. u 05:10 - pre 194 meseci
Jel si ti proverio da li ovo kod tebe radi. Kod mene ne. I dalje pravi isti problem, ne ucitava uopste prvi element niza. Kad pocne da ucitava niz pocne od drugog elementa a prvi ostavi prazan.
 
Odgovor na temu

Passwd

Član broj: 54624
Poruke: 640
*.adsl.net.t-com.hr.



Profil

icon Re: Pomoc oko zadatka!!!20.12.2005. u 20:02 - pre 194 meseci
Daj neki test primjer, neda mi se citat zadatak i gledat kod..
 
Odgovor na temu

Mix5
Milos Djuric
STE, Asseco
Jagodina

Član broj: 14282
Poruke: 332
*.dial.InfoSky.Net.



Profil

icon Re: Pomoc oko zadatka!!!22.12.2005. u 19:36 - pre 194 meseci
Resio sam zadatak. Problem je bio kod ucitavanja broja elemenata niza.
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Pomoc oko zadatka!!!

[ Pregleda: 2901 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

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