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

Za iskusne Paskaldzije...

[es] :: Pascal / Delphi / Kylix :: Za iskusne Paskaldzije...

[ Pregleda: 3170 | Odgovora: 15 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Rodd
Rodoljub Petrović
web developer, Extreme
Beograd

Član broj: 242
Poruke: 358
217.26.71.*

ICQ: 114756071
Sajt: www.rodpetrovic.com


Profil

icon Za iskusne Paskaldzije...25.04.2001. u 21:04 - pre 279 meseci
Prvo da kazem da mrzim j***ni Pascal i da me neverovatno smara da ga ucim, kada ima toliko zanimljivijih stvari za ucenje. Ali, sta cu, studiram u VETS i moram. Evo vracam se sa ispita na kojem nas je profan otkinuo i zivo me interesuje da li neko moze da mi resi ove zadatke:

1) Napisati program u Pascal-u kojim se na bazi ucitanog niza od n clanova realnih brojeva (n<=100) formira matrica B(nXn) ciji su elementi prve vrste jednaki elementima datog niza, dok se i-ta vrsta (i=2,...n) dobija ciklicnim pomeranjem prethodne za jedno mesto u desno. Formiranje matrice i ciklicno pomeranje za jedno mesto u desno realizovati opstim podprogramima tipa PROCEDURE. Opstim podprogramom tipa FUNCTION izracunati sumu elemenata ispod glavne dijagonale matrice B (ne ukljucujuci glavnu dijagonalu). U glavnom programu stampati elemente formirane matrice i trazenu sumu.

2) Date su dve datoteke, F1, F2, ciji slogovi sadrze podatke o osobama: sifra, ime, prezime i godina rodjenja. Napisati program u Pascal-u kojim se od ove dve, vec formirane, datoteke stvara nova datoteka F3 u koju su upisani podaci iz F1 i F2. Datoteke F1 i F2 su sortirane po siframa u rastucem poretku. Datoteka F3 treba takodje da bude sortirana po siframa ali u opadajucem poretku.

Ako neki car ili carica ima malo vremena i zna da napise ove programe, neka ih postuje. Bio bih mu/joj puno zahvalan.
Hvala!
 
Odgovor na temu

85#D@libor
Djuric Dalibor
Panchevo

Član broj: 145
Poruke: 97
*.telekom.yu



Profil

icon Re: Za iskusne Paskaldzije...25.04.2001. u 23:57 - pre 279 meseci
meni nedostaje paskal mnogo.....jer ga nisam ucio uopste.....
ali se u delphi-ju super snalazim.....gojko ako mozes....
pitacu te da mi pomognes u vezi nekih stvari u paskalu....
I'm taking over a TV Network...
Finish up honey and get to sleep...
 
Odgovor na temu

Rodd
Rodoljub Petrović
web developer, Extreme
Beograd

Član broj: 242
Poruke: 358
217.26.71.*

ICQ: 114756071
Sajt: www.rodpetrovic.com


Profil

icon Re: Za iskusne Paskaldzije...26.04.2001. u 00:20 - pre 279 meseci
Ma, ja sam na ispitu uradio ova dva pa bi me interesovalo da vidim da li sam se negde propisano za***'o ili su tacni. Istina, drugi je laksi jer sam za njega skoro siguran da mi je tacan (ali treba dva za prolaz) Po mom profanu, ovo su vrlo laki zadaci koji se brzo rade pa sam mislio ako ima neki iskustvenjak koji moze da ih sjebe za po 5-10 minuta...ili to moj profan sere (bice da je ovo drugo)
Ja sam u 4. osnovne nabavio Komodor 64 pa sam se zaludjivao Basic-om, onda je nastupio Visual Basic pa ASP... nije bilo mesta za Pascal. Kapiram ja da je to isto lak i koristan jezik ali ne moze da se zna sve (a uzaludno je i pokusavati da se zna sve)
 
Odgovor na temu

85#D@libor
Djuric Dalibor
Panchevo

Član broj: 145
Poruke: 97
*.telekom.yu



Profil

icon Re: Za iskusne Paskaldzije...26.04.2001. u 02:25 - pre 279 meseci
i ja sam na comodoru razbijao basic....
kasnije na spectra videu.....

ali sta ces kad dalphi zahteva paskal....
I'm taking over a TV Network...
Finish up honey and get to sleep...
 
Odgovor na temu

makojdis




Profil

icon Re: Za iskusne Paskaldzije...26.04.2001. u 15:33 - pre 279 meseci
Ne bih da te razocaram ali tvoj profa je bio u pravu ovo je prilicno jednostavan zadatak...:)
Code:

Type
 niz=array[1..100] of shortint;
 mat=array[1..100,1..100] of shortint;
Var
 a:niz;
 b:mat;
 n,i,j,p,t:integer;
Procedure matrica(a:niz); {Formira matricu}
Begin
t:=n+2;
 for i:=1 to n do
  Begin
   t:=t-1;
   j:=0;
    repeat
     for p:=t to n do
      Begin
       inc(j);
       b[i,j]:=a[p];
      End;
     for p:=1 to n-i+1 do
      Begin
       inc(j);
       b[i,j]:=a[p];
      End;
    until t>1;
  End;
End;
Function saberi(b:mat):integer; {Sabira}
Var
 suma:integer;
Begin
suma:=0;
 for i:=2 to n do
  for p:=1 to i-1 do
   suma:=suma+b[i,p];
saberi:=suma;
End;
Begin
write('Unesite br clanova niza: ');
readln(n);
 for i:=1 to n do
  read(a[i]);
matrica(a);
for i:=1 to n do
 Begin
  writeln;
   for j:=1 to n do
    write(b[i,j],'  ');
 End;
write('Suma: ',saberi(b));
End.


Moderator dodao UBBC kod za source code.. [ code ] i [ /code ].. kod inace nije radio.

[Ovu poruku je menjao Gojko dana 04-26-2001 u 09:02 PM GMT]
 
Odgovor na temu

UroS
uros.net inc. Head manager
yu/sr/bgd

Član broj: 3
Poruke: 1953
*.242.EUnet.yu

ICQ: 44960289
Sajt: www.uros.net


+1 Profil

icon Re: Za iskusne Paskaldzije...26.04.2001. u 20:33 - pre 279 meseci
au ***ote
one-thousand, three-hundred and thirty-seven.
 
Odgovor na temu

Rodd
Rodoljub Petrović
web developer, Extreme
Beograd

Član broj: 242
Poruke: 358
217.26.71.*

ICQ: 114756071
Sajt: www.rodpetrovic.com


Profil

icon Re: Za iskusne Paskaldzije...26.04.2001. u 21:21 - pre 279 meseci
Majkodis, car si najveci. Hvala ti puno. Jos nisam proverio mada mi izgleda OK (ali, ti verovatno jesi) Ja sam dosta slicno uradio samo sa dve odvojene procedure za pomeraj i za pravljenje matrice (a ta procedura poziva ovu prvu). Ali, fuck, izgleda da sam se ipak zajebo na dva mesta. Jebiga, tu je uvek jun
 
Odgovor na temu

Rodd
Rodoljub Petrović
web developer, Extreme
Beograd

Član broj: 242
Poruke: 358
217.26.71.*

ICQ: 114756071
Sajt: www.rodpetrovic.com


Profil

icon Re: Za iskusne Paskaldzije...26.04.2001. u 21:26 - pre 279 meseci
Nesto mi upravo pade na pamet. Mi na ispitu moramo iz glave da pisemo program na papir. Zar nije to debilno? Pa ja ne znam koji to programeri mogu da kucaju kod bez i jedne greske a da ne koriste kompajler i debugger. Logicno bi bilo da se ispit radi na kompu. Ajde da nemaju kompove, nego jos moja skola (VETS) ima buljuk laboratorija sa IBM-ovim radnim stanicama u kojima radimo vezbe. Pa, sto ih ne koriste i za ispit? E, jesmo debilna zemlja...
 
Odgovor na temu

uLtracode
Nemanja Marjanovic
Centar za Moderno Drustvo Sabac
Srbija/Sabac

Član broj: 40
Poruke: 490
*.ilsa.europeonline.net



Profil

icon Re: Za iskusne Paskaldzije...26.04.2001. u 22:31 - pre 279 meseci
ti ponesi laptop na polaganje postuj ovde i neko ce ti odgovoriti



btw sto sta fali sto ces raditi iz glave to je ono prodjes nekolko puta proveris i to ti je to
I don't need a reason!!!


 
Odgovor na temu

Rodd
Rodoljub Petrović
web developer, Extreme
Beograd

Član broj: 242
Poruke: 358
217.26.71.*

ICQ: 114756071
Sajt: www.rodpetrovic.com


Profil

icon Re: Za iskusne Paskaldzije...27.04.2001. u 02:12 - pre 279 meseci
haha. Ma, razradjivali smo ja i ortak tu semu jos u srednjoj...ono kao na kontrolnom iz istorije ti pitas profu da li je dozvoljen digitron, on ti zbunjeno kaze da jeste a ti izvadis laptop na sto, nakacis se na net, pa pravac www.historynet.com ili tako nesto...
 
Odgovor na temu

makojdis




Profil

icon Re: Za iskusne Paskaldzije...27.04.2001. u 13:41 - pre 279 meseci
Pa pravo da ti kazem to moze da bude malo j***no kad radis na papiru, al'
sta je tu je.....to ti je SRBIJA :))
 
Odgovor na temu

misk0
.: Lugano :. _.: CH :.

SuperModerator
Član broj: 634
Poruke: 2824
*.dialup.blic.net

ICQ: 46802502


+49 Profil

icon Re: Za iskusne Paskaldzije...04.08.2001. u 16:14 - pre 275 meseci
Da ali to i nije neki veliki problem.
Jeste ljepse kad radis za compom.
ali ja sam rijesavao zadatke u ASMu isto na ETFu na papiru i nisam imao gresaka. Cak sam 2 zadatka rijesio iz prvog puta, znaci nisam morao da prepisujem kod i preracunavam adrese zato sto sam zaboravio da ubacim neki dio.
A sto se tice zadataka, nije nesto posebno tesko jer nemas velikih vrijednosti i ne moras maltene nista rucno da radis. Rotiranje niza nije problem, a koristis niz kao globalnu varijablu odakle pozoves funkciju sa parametrima koja ce da sabere kolone.
p.s. vidim da je covjek rijesio samo nisam gledao kod..
:: Nemoj se svadjati sa budalom, ljudi cesto nece primjetiti razliku ::
 
Odgovor na temu

misk0
.: Lugano :. _.: CH :.

SuperModerator
Član broj: 634
Poruke: 2824
*.dialup.blic.net

ICQ: 46802502


+49 Profil

icon Re: Za iskusne Paskaldzije...04.08.2001. u 16:16 - pre 275 meseci
i jos ..
zasto mrziti pascal ..
mnogo powerfull jezik.
Da je BP 5.0-7.0 imao podrsku za baze ... pa sjebo bi clipper i C i sve ostale jezike prije par godina i bio bi veoma koristen...

dobro .sve su to moja misljenja, tj ... subjektivna
:: Nemoj se svadjati sa budalom, ljudi cesto nece primjetiti razliku ::
 
Odgovor na temu

Riste Pejov
Team Leader/Senior Software Developer @
Ein-Sof ltd Skopje
Skopje, Macedonia

Član broj: 128
Poruke: 571
212.110.78.*

Jabber: richie@bagra.net.mk
ICQ: 154236769
Sajt: riste.softver.org.mk


Profil

icon Re: Za iskusne Paskaldzije...11.08.2001. u 17:11 - pre 275 meseci
Pa kad smo vec kod ispitnih zadataka .. daj dodajte jos jedan forum
gde bi svako moga da postavi zadatak a da ga drugi rese ...


mozda ce nego da postane elektro inzinjer par meseca ranije

People who think they know everything tend to irritate those of us who do.
 
Odgovor na temu

misk0
.: Lugano :. _.: CH :.

SuperModerator
Član broj: 634
Poruke: 2824
*.dialup.blic.net

ICQ: 46802502


+49 Profil

icon Re: Za iskusne Paskaldzije...11.08.2001. u 22:17 - pre 275 meseci
Citat:
PSx-9ne je napisao:
Pa kad smo vec kod ispitnih zadataka .. daj dodajte jos jedan forum
gde bi svako moga da postavi zadatak a da ga drugi rese ...
:)

mozda ce nego da postane elektro inzinjer par meseca ranije :)


da . a mozda neko napravi kucu i otvori firmu rijesavajuci tudje zadatke ;)
:: Nemoj se svadjati sa budalom, ljudi cesto nece primjetiti razliku ::
 
Odgovor na temu

Riste Pejov
Team Leader/Senior Software Developer @
Ein-Sof ltd Skopje
Skopje, Macedonia

Član broj: 128
Poruke: 571
212.110.78.*

Jabber: richie@bagra.net.mk
ICQ: 154236769
Sajt: riste.softver.org.mk


Profil

icon Re: Za iskusne Paskaldzije...18.09.2001. u 13:26 - pre 274 meseci
Da ne oces da mi budes busssines partner ?

People who think they know everything tend to irritate those of us who do.
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Za iskusne Paskaldzije...

[ Pregleda: 3170 | Odgovora: 15 ] > FB > Twit

Postavi temu Odgovori

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