[es] - neki zadaci (neka logicka ideja)

atlas

Član broj: 20158
Poruke: 167
*.as.ka.bih.net.ba.

Profil

^{06.01.2006. u 22:51 - pre 222 meseci}

Ne zelim da mi neko ponudi gotovo rjesenje ali bih volio da predlozite neke ideje,ili barem dio koda ili eventualno web-sajt na kom se nalazi slicno.......
pa ev koji me skaklju... neki sa takmicenja

1) Ucitati broj N koji prestavlja broj,kolona,redova, kvadratne matrice NxN
u matrici ispisati niz prir.brojeva koji su smjesteni u spiralu u smjeru kaz. na satu
pr. ulaz :4
1---2---3---4

12--13--14--5

11--16--15--6

10---9---8--7

2)unijetom broju N ispisati sve rastave broja N na sabirke sa permutacijama..
ulaz : 3:
2+1,1+2,1+1+1

3) zadani realni broj r (0< r < 1) ispisati kao najpriblizniji razlomak u oblku brojnik/nazivnik stim da nazivnik ima najvise N znamenki (N mi unosimo)

pr:

ulaz:
r=0,772727273 n= 2

izlaz: 17/22

4)Učitati rijec kao string ...Napisati program koji ce ispisati najduzu podrijec koja je palindrom (isto se cita slijeva i s desna)

pr: karakter karak
tarabar rabar

5) U recenici pronaci i ispisati najduzu rijec.
6) za upisani sat izracunat kad ce se kazaljke poklopit. [ za ovaj zad. imam kod al ne kontam,ak moze logicko obrazlozenje]

7) za broj N,ispisati N-ti po redu broj koji nije fibonacijev..
pr: n=1 pisi 4

_{[Ovu poruku je menjao atlas dana 07.01.2006. u 00:03 GMT+1]}

Odgovor na temu

osmica
Beograd

Član broj: 38009
Poruke: 74
*.smin.sezampro.yu.

Sajt: www.imagenedthe.com

Profil

Re: neki zadaci (neka logicka ideja)

^{07.01.2006. u 05:33 - pre 222 meseci}

4 .)
Proveris koja su dva "najdalja" slova te ucitane reci(karakter),k-k u ovom slucaju.Zatim proveris rec "karak" pomocu funkcije ReverseString da li je palindrom ili ne!

5 .)
Ako se nezna maximalna broj reci u recenici,onda se zadatak radi preko lancane liste tako sto ces smestati reci u listu,koja ce imati 2 clana,duzinu reci(neko A) i rec.Zatim nadjes najvece A i ispises rec od tog najveceg A.

Ako se zna maximalan broj reci u recenici,upises reci u niz,i nadjes najduzu rec i ispises!

6 .)
Pogledaj ranije teme.

1,2,3,7 ne znam sad,mozda kad ustanem! :)
pozzz!

_{[Ovu poruku je menjao osmica dana 07.01.2006. u 06:35 GMT+1]}

Ivan :)

Odgovor na temu

atlas

Član broj: 20158
Poruke: 167
*.as54.ze.bih.net.ba.

Profil

Re: neki zadaci (neka logicka ideja)

^{08.01.2006. u 16:00 - pre 222 meseci}

hvala 8

ljudi necete vjerovat citav dan sam radio ovaj zadatak sa kazaljkama
(kad ce se poklopiti)

Ovako sam krenuo:
Kada se kazaljke(od sata i minuta) poklope to znaci da opisuju isti ugao pocev od 0...
kazaljka za sate opiše 6° dok prede 1h a kazaljka za minute opise 1,2° dok prede 1min
tako i sekundara.....
kazaljka za sekunde vuce kazaljku za minute a ova onu za sate...
pa sam napravio dvije petlje(za minute i sekunde) od 1 to 60 a prije toga treba unijeti "s" cijeli broj sati
pa je samo sati h:=s+prva petlja/60+druga petlja/360
samo minuta min:=prva petlja+druga petlja/60

uslov poklapanja h*6=min*1,2

dakle sve je to u redu...........ali najgore je sad dolazi jer se radi sa realnim brojevima
pa kada puno preciziram onda dobijem da se nikad u potpunosti kazaljke ne poklope
(sto i mislim da je tacno----kada bi oznacili mikrostepene na satu)

ali kada idem na priblizne vrijednosti onda mi program ispise da se kazaljke poklapaju citavu minutu dakle svake secunde u min...
to je npr.. za SAT=3 poklapaju se od 3h :15min : 0sec do 3h : 15min 59sec
dakle dobijem 60 rezultata...... TO JE ONA ĆIZA KOJA TRAJE 1MIN

al sad kada idem na zaokruzivanje na 2 decimale problem je jos veci ali se dobije rezultat
puno vise varijabli,transformisanje iz integer u string i obratno,,kod je prevelik itd...
dakle previse......
necete vjerovat tona hartije oko mene slike grafovi satovi

pa sam odustao i od prihvatanja rjesenja mada mislim da sam u pravu ali kako ja uvijek nadem tezu varijantu nadam se da ce mi neko dodat ideju
imam kod od nekog dr. Zdravko Dovedan al ne razumem
nek mi neko objasni zasto ide kod ovako zasto *60/11

Code:

...
begin
READLN(SAT);
T:=(SAT MOD 12)*60/11;
WRITELN (SAT:2,':',INT(T):2:0,':',ROUND(FRAC(T)*60):2);
end.

_{[Ovu poruku je menjao atlas dana 09.01.2006. u 18:22 GMT+1]}

Odgovor na temu