Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 15 odgovora
  • 4.623 pregleda

Najnovija ↓

Za iskusne Paskaldzije... 25.04.2001. u 22:04 · pre 310 meseci #1
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!
Potpis
http://www.rodpetrovic.com
http://lista.rodpetrovic.com
Re: Za iskusne Paskaldzije... 26.04.2001. u 00:57 · pre 310 meseci #2
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....
Potpis
I'm taking over a TV Network...
Finish up honey and get to sleep...
Re: Za iskusne Paskaldzije... 26.04.2001. u 01:20 · pre 310 meseci #3
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) :)
Potpis
http://www.rodpetrovic.com
http://lista.rodpetrovic.com
Re: Za iskusne Paskaldzije... 26.04.2001. u 03:25 · pre 310 meseci #4
i ja sam na comodoru razbijao basic....
kasnije na spectra videu.....

ali sta ces kad dalphi zahteva paskal....
Potpis
I'm taking over a TV Network...
Finish up honey and get to sleep...
Re: Za iskusne Paskaldzije... 26.04.2001. u 16:33 · pre 310 meseci #5
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]
Re: Za iskusne Paskaldzije... 26.04.2001. u 22:21 · pre 310 meseci #7
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 :(
Potpis
http://www.rodpetrovic.com
http://lista.rodpetrovic.com
Re: Za iskusne Paskaldzije... 26.04.2001. u 22:26 · pre 310 meseci #8
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... :(
Potpis
http://www.rodpetrovic.com
http://lista.rodpetrovic.com
Re: Za iskusne Paskaldzije... 26.04.2001. u 23:31 · pre 310 meseci #9
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
Potpis
I don't need a reason!!!


Re: Za iskusne Paskaldzije... 27.04.2001. u 03:12 · pre 310 meseci #10
:) 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... :)
Potpis
http://www.rodpetrovic.com
http://lista.rodpetrovic.com
Re: Za iskusne Paskaldzije... 04.08.2001. u 17:14 · pre 307 meseci #12
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..
Potpis
:: Nemoj se svadjati sa budalom, ljudi cesto nece primjetiti razliku ::
Re: Za iskusne Paskaldzije... 04.08.2001. u 17:16 · pre 307 meseci #13
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
Potpis
:: Nemoj se svadjati sa budalom, ljudi cesto nece primjetiti razliku ::
Re: Za iskusne Paskaldzije... 11.08.2001. u 18:11 · pre 307 meseci #14
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 :)
Potpis
People who think they know everything tend to irritate those of us who do.
Re: Za iskusne Paskaldzije... 11.08.2001. u 23:17 · pre 307 meseci #15
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 ;)
Potpis
:: Nemoj se svadjati sa budalom, ljudi cesto nece primjetiti razliku ::
Re: Za iskusne Paskaldzije... 18.09.2001. u 14:26 · pre 305 meseci #16
Da ne oces da mi budes busssines partner ?
:D
Potpis
People who think they know everything tend to irritate those of us who do.
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme