Stránka: 1 z 3
| [ Príspevkov: 67 ] | 1, 2, 3 |
Autor | Správa |
---|
Registrovaný: 07.03.07 Prihlásený: 04.07.08 Príspevky: 34 Témy: 8 | 8 |
Zdravim, potrebujem pomoc s riesenim ulohy z vypoctovky.
Tu je zadanie: Je dane prirodzené číslo N a postupnosť N prirodzených čísel z intervalu (1,20). (tie zatvorky su hranate). Vytlačte danú postupnosť a určite najmenšie a najväčšie číslo v danej postupnosti, počet ich výskytov a na ktorom mieste zľava sa nachádzaju.
Je to pre mna tazke jak svina. Preto prosim o pomoc, aspon trocha.
dik
|
|
Registrovaný: 09.05.05 Prihlásený: 07.12.16 Príspevky: 1294 Témy: 69 | 69 Bydlisko: - - - |
Hmm..som jediny co nechape ? Aka postupnost ? Nema tam byt este aj nejaka definicia ? to ide 1,2,3,4,5...20 ci ako ?
|
|
Registrovaný: 16.05.07 Prihlásený: 01.08.17 Príspevky: 837 Témy: 6 | 6 |
To prirodzene cislo je asi nejaka chyba. Ale to slovo svina by som teda vobec nepouzil. podla slova poznas .......
mimochodom dev Pascal aj nekto pouziva?
|
|
Registrovaný: 07.03.07 Prihlásený: 04.07.08 Príspevky: 34 Témy: 8 | 8 |
no asi to je to ze 1,2,3 .... 20. A dalej neviem, to mam napisane na papieri :-(
|
|
Registrovaný: 16.05.07 Prihlásený: 01.08.17 Príspevky: 837 Témy: 6 | 6 |
Kód: BEGIN b:=1;c:=1; for a:=1 to 19 do begin if pole[a]<pole[a+1] then b:=a+1; if pole[a]>pole[a+1] then c:=a+1; end; for a:=1 to 20 do begin if pole[a]=pole[b] then inc(d) else if pole[a]=pole[c] then inc(e); end; for a:=1 to 20 do write(pole[a],' '); writeln; write('najmensie je ',pole[b],' obsiahnute ',d,'-krat na mieste'); for a:=1 to 20 do if pole[a]:=pole[b] then write(' ',a); writeln; write('najvacsie je ',pole[c],' obsiahnute ',e,'-krat na mieste'); for a:=1 to 20 do if pole[a]:=pole[c] then write(' ',a); writeln; END.
Co za ....... to zadal ja by som to usporiadal a vytlacil.
Naposledy upravil juho dňa 19.05.2007 23:29, celkovo upravené 1
|
|
Registrovaný: 07.03.07 Prihlásený: 04.07.08 Príspevky: 34 Témy: 8 | 8 |
o to tlacenie sa bat nemusis, ja potrebujem aspon cosi mat, a ucitelka mi s tym pomoze. len ja som z toho lavy. A inak dik, aspon za toto.
|
|
Registrovaný: 16.05.07 Prihlásený: 01.08.17 Príspevky: 837 Témy: 6 | 6 |
Ja sa nebojim o to tlacenie ale o ucitelku, ze co za zadanie to dava. Ja len tvrdim ze lepsie by bolo ucit usporaduvanie(napr taky QuickSort) prvkov a nie taketo ..........
teda aspon myslim ze DevPascal je Pascal len namiesto dosovskeho okna tam je windowsacke
//edit ah slaka dal som to naopak najmensie ma byt pole[c] a najvacsie pole[b]
//edit som to ale do.ep.l
Kód: BEGIN b:=1;c:=1; for a:=2 to 20 do begin if pole[b]<pole[a] then b:=a; if pole[c]>pole[a] then c:=a; end; for a:=1 to 20 do begin if pole[a]=pole[b] then inc(d) else if pole[a]=pole[c] then inc(e); end; for a:=1 to 20 do write(pole[a],' '); writeln; write('najvacsie je ',pole[b],' obsiahnute ',d,'-krat na mieste'); for a:=1 to 20 do if pole[a]=pole[b] then write(' ',a); writeln; write('najmensie je ',pole[c],' obsiahnute ',e,'-krat na mieste'); for a:=1 to 20 do if pole[a]=pole[c] then write(' ',a); writeln; END. Uz by to malo byt hadam vporiadku.
|
|
Registrovaný: 02.11.06 Prihlásený: 11.10.07 Príspevky: 14 Témy: 1 | 1 Bydlisko: Bardejov |
zdravím!Potrebujem pomôcť s príkladom...Urob program, ktory zašifruje lubovolny text a to tak, že kežde písmeno posunie podla abecedy o pocet ktory si vypita na zaciatku(napr. ak bude kod 2,text "auto" ,po zakodovani bude "cwvr")
|
|
Registrovaný: 30.05.06 Prihlásený: 08.10.14 Príspevky: 1756 Témy: 35 | 35 Bydlisko: BA - WESTSIDE |
lubo2 píše: zdravím!Potrebujem pomôcť s príkladom...Urob program, ktory zašifruje lubovolny text a to tak, že kežde písmeno posunie podla abecedy o pocet ktory si vypita na zaciatku(napr. ak bude kod 2,text "auto" ,po zakodovani bude "cwvr")
Vstupy a výstupy si už uprav ako chceš.
Kód: Program Sifrovanie; Uses Crt; Const Text = 'Generuje to volaku madarcinu! :-)'; Posun = 2; Function Sifruj(Retazec:String):String; Var i, j, k :Integer; Begin For i:= 1 To Length(Retazec) Do Begin j:= Ord(Retazec[i]); k:= (j+Posun); Case j Of 65..90 : Begin If k > 90 Then Retazec[i]:= Chr(k-26) Else If k < 65 Then Retazec[i]:= Chr(k+26) Else Retazec[i]:= Chr(k); End; 97..122: Begin If k > 122 Then Retazec[i]:= Chr(k-26) Else If k < 97 Then Retazec[i]:= Chr(k+26) Else Retazec[i]:= Chr(k); End; End; End; Sifruj := Retazec; End;
Begin ClrScr; Write(Sifruj(Text)); ReadKey; End.
_________________
A. S. Tanenbaum píše: The terms LF, MF, and HF refer to low, medium, and high frequency, respectively. Clearly, when the names were assigned, nobody expected to go above 10 MHz, so the higher bands were later named the Very, Ultra, Super, Extremely, and Tremendously High Frequency bands. Beyond that there are no names, but Incredibly, Astonishingly, and Prodigiously high frequency (IHF, AHF, and PHF) would sound nice. |
|
Registrovaný: 02.11.06 Prihlásený: 11.10.07 Príspevky: 14 Témy: 1 | 1 Bydlisko: Bardejov |
ao zmenim tu konstantu tak, aby sa ma na to pytalo v programe?
|
|
Registrovaný: 02.11.06 Prihlásený: 11.10.07 Príspevky: 14 Témy: 1 | 1 Bydlisko: Bardejov |
ešte s jednym zadaním by som potreboval pomôcť....Program ktorý napíše slovo odzadu...
|
|
Registrovaný: 30.05.06 Prihlásený: 08.10.14 Príspevky: 1756 Témy: 35 | 35 Bydlisko: BA - WESTSIDE |
lubo2 píše: ao zmenim tu konstantu tak, aby sa ma na to pytalo v programe? Zmeň to z konštanty na premennú a tú načítaj klasicky cez ReadLn();. lubo2 píše: ešte s jednym zadaním by som potreboval pomôcť....Program ktorý napíše slovo odzadu...
Kód: Program Odzadu; Uses Crt; Var s1 : String; i : Integer; ch : Char;
Begin ClrScr; Write('Napis slovo: '); ReadLn(s1);
Begin For i:= 1 To Trunc(Length(s1)/2) Do Begin ch := s1[i]; s1[i] := s1[Length(s1)-i+1]; s1[Length(s1)-i+1] := ch; End; End;
Write('Tvoje slovo odzadu: ', s1); ReadKey; End.
_________________
A. S. Tanenbaum píše: The terms LF, MF, and HF refer to low, medium, and high frequency, respectively. Clearly, when the names were assigned, nobody expected to go above 10 MHz, so the higher bands were later named the Very, Ultra, Super, Extremely, and Tremendously High Frequency bands. Beyond that there are no names, but Incredibly, Astonishingly, and Prodigiously high frequency (IHF, AHF, and PHF) would sound nice. |
|
Registrovaný: 11.06.07 Prihlásený: 12.06.07 Príspevky: 2 Témy: 0 | 0 |
chalani potrebuejm pomoc mam urobit program v dev-pascale ale nejde mi to dako.mam urobit program na vypocet kvadratickej rovnice.
Kód: program kvadraticke_rovnice; uses crt; var a,b,c,x,d,w,e,r,f,u,n,o:real; begin writeln('zadaj a,b,c'); readln(a,b,c);
if a=0 then begin x:=-c/b; writeln('rovnica je linearna x=',x:5:2); end;
d:=(b*b)-(4*a*c); w:=sqrt(d); if (d>0) and (a<>0) then begin e:=(-b+w)/(2*a); r:=(-b-w)/(2*a); writeln('Rovnica ma dva realne korene x1=',e:5:2,' x2=',r:5:2); end;
if (d=0) and (a<>0) then begin f:=-b/(a*2); writeln('Rovnica ma jeden dvojnasobny koren x=',f:5:2); end;
o:=sqrt(abs(d)); if (d<0) and (a<>0) then begin u:=-b/(2*a); n:=o/(2*a); writeln('Rovnica ma dve komplexne zdruzene korene x1=',u,'+',n,'i ,x2=',u,'-',n,'i'); end; readln; readln;
end.
a nejde mi to kde mam d<0 vsetko ostatne mi ide,viete mi dako pomoct,
diky
P.S: pinky ty tu co robis???
|
|
Registrovaný: 11.06.07 Prihlásený: 12.06.07 Príspevky: 2 Témy: 0 | 0 |
uz som to opravil konecne mi to ide,tak nist uz.cawte
|
|
Registrovaný: 04.06.08 Prihlásený: 04.06.08 Príspevky: 1 Témy: 0 | 0 |
Ahojte potreboval by som pomoct s jednym zadanim.
Uloha: Je dana postupnost 30 celych kladnych cisel z intervalu<-20,20>. Vypiste najskor dvojnasobky vsetkych kladnych cisel, a potom absolutne hodnoty vsetkych nekladnych cisiel.
|
|
Registrovaný: 27.07.07 Príspevky: 3948 Témy: 51 | 51 Bydlisko: Bratislava |
a s cim konkretne chces pomoct?
_________________ NTB: Acer Aspire 4820TG 14" | CPU: Intel Core i5 2,53 GHz | VGA: ATI Mobility Radeon HD5650 1GB | RAM: 8GB DDR3 1066 MHz | HDD: 1TB SSD WD BLUE |
|
Registrovaný: 30.04.08 Prihlásený: 15.05.15 Príspevky: 884 Témy: 3 | 3 |
sapek píše: Ahojte potreboval by som pomoct s jednym zadanim. Uloha: Je dana postupnost 30 celych kladnych cisel z intervalu<-20,20>. Vypiste najskor dvojnasobky vsetkych kladnych cisel, a potom absolutne hodnoty vsetkych nekladnych cisiel.
hmm ta postupnost cisel od -20 do 20 ma byt precitana z klavesnice, alebo vygenerovana alebo co?
mno a mam vypisat absolutne hodnoty nekladnych cisel, ale je pisane, ze je dana postupnost kladnych cisel
|
|
Registrovaný: 30.04.08 Prihlásený: 15.05.15 Príspevky: 884 Témy: 3 | 3 |
mno tak ja som zatial nieco narychlo spravil, tie cisla sa generuju a zaroven sa pise ich dvojnasobok a absolutna hodnota... hadam je to dobre...
Kód: program sapek;
var A,I: integer;
begin Randomize; writeln('Program na generaciu cisel v intervale <-20,20>'); write('vypocet ich dvojnasobku'); writeln(' a absolutnej hodnoty'); writeln; writeln(' Cislo Dvojnasobok Aboslutna hodnota'); for I:=1 to 30 do begin A:=Random(40)-20; writeln(A:5,A*2:15,abs(A):15); end; readln; end.
|
|
Registrovaný: 16.05.07 Prihlásený: 01.08.17 Príspevky: 837 Témy: 6 | 6 |
nekladnych cisel je taka mnozina ktora neobsahuje kladne cisla cize x<=0
Kód: if(A<=0)then write(A:4,' -- ',abs(A):15); cize aj 0 slovom nula je nekladne cislo
|
|
Registrovaný: 02.10.08 Prihlásený: 13.11.08 Príspevky: 8 Témy: 0 | 0 |
Potrebujem to rzchlo spravit v pascale, ale neviem ako:
Digsaw
Digsaw je taká jedna fajná logická úloha. Máte N pásikov papiera. Každý pásik má tvar obdĺžnika zloženého z 5 krát 1 jednotkových štvorcov. Každý štvorec je buď celý biely alebo celý čierny.
Vstupom teda môže byť napríklad toto:
Vašou úlohou je naskladať z týchto pásikov bitmapu s 5 riadkami a N stĺpcami. Jednotlivé pásiky je dovolené otáčať, môžu byť umiestnené vodorovne alebo zvisle. Samozrejme, každý pásik musíte použiť práve raz a rôzne pásiky sa nesmú prekrývať.
Cieľom hry je dostať takú bitmapu, ktorá bude grafickou reprezentáciou čo najväčšieho čísla.
Bitmapy pre jednotlivé cifry vyzerajú nasledovne: (X je čierne políčko, bodka biele.)
..X XXX XXX X.X XXX
..X ..X ..X X.X X..
..X XXX XXX XXX XXX
..X X.. ..X ..X ..X
..X XXX XXX ..X XXX
XXX XXX XXX XXX XXX
X.. ..X X.X X.X X.X
XXX ..X XXX XXX X.X
X.X ..X X.X ..X X.X
XXX ..X XXX XXX XXX
Bitmapová reprezentácia viacciferného čísla je tvorená bitmapami jednotlivých cifier, medzi ktorými je zakaždým jeden stĺpec bielych políčok. Teda napríklad bitmapa pre číslo 47 vyzerá takto:
X.X.XXX
X.X...X
XXX...X
..X...X
..X...X
Task
Pre dané pásiky zistite, aké najväčšie číslo sa z nich dá poskladať.
Input
V prvom riadku vstupu je počet pásikov N, príčom N je vždy 3, 7, 11 alebo 15.
Nasleduje N riadkov. V každom z nich je reťazec tvorený piatimi znakmi, z ktorých každý je buď X alebo bodka. Tieto reťazce popisujú pásiky, ktoré máte k dispozícii.
Output
Vypíšte jeden riadok a v ňom jedno číslo -- najväčšie číslo, ktoré sa dá poskladať z daných pásikov. Ak sa nedá poskladať žiadne, vypíšte -1. Ak skladáte viac ako jednociferné číslo, toto nesmie začínať nulou.
Examples
input
3
XXX.X
XXX.X
X.X.X
output
5
Z týchto pásikov vieme poskladať buď číslo 2, alebo číslo 5. Z nich je väčšie číslo 5.
input
3
XXX..
XXXX.
X..X.
output
-1
Z týchto pásikov nezložíme nič použiteľné.
input
7
XXXXX
XXXXX
XXXXX
XXXXX
X...X
X...X
.....
output
-1
Jediné čo sa dá postaviť a podobá sa na dvojciferné číslo je bitmapa pre "00". Dvojciferné číslo však nesmie začínať nulou.
input
7
XXX..
XXXXX
.X.XX
...X.
XX...
...X.
.X...
output
47
Tieto pásiky sú na obrázku v zadaní. A takto vyzerá z nich poskladaná 47ka:
input
3
XXXXX
X...X
XXXXX
output
0
Jednociferné číslo smie byť aj 0.
|
|
Registrovaný: 30.05.06 Prihlásený: 08.10.14 Príspevky: 1756 Témy: 35 | 35 Bydlisko: BA - WESTSIDE |
Toto je príklad do školy z tréningu na ACM (predmet Rýchlostné programovanie). Podľa nových pravidiel je zakázané riešiť zadania do školy, takže ti s tým nikto nepomôže.
Ale nezúfaj, zadania na rýchlostné môžeš vypracúvať priebežne kedykoľvek počas roka (až do posledného dňa skúškového obdobia v danom semestri), takže času je dosť.
_________________
A. S. Tanenbaum píše: The terms LF, MF, and HF refer to low, medium, and high frequency, respectively. Clearly, when the names were assigned, nobody expected to go above 10 MHz, so the higher bands were later named the Very, Ultra, Super, Extremely, and Tremendously High Frequency bands. Beyond that there are no names, but Incredibly, Astonishingly, and Prodigiously high frequency (IHF, AHF, and PHF) would sound nice. |
|
Registrovaný: 02.10.08 Prihlásený: 13.11.08 Príspevky: 8 Témy: 0 | 0 |
Mohol by si napisat 2 - 3 jednoduche vyriesene priklady na Boolean. Cital som o tom omacky ale ucelene priklady mi chybaju.
|
|
Registrovaný: 30.04.08 Prihlásený: 15.05.15 Príspevky: 884 Témy: 3 | 3 |
Mas na mysli premenne typu Boolean? Hm, ved tie mozu nadobudnut hodnoty len True a False (0,1), co k tomu este potrebujes?
_________________ Empty your memory, with a free()… like a pointer! If you cast a pointer to an integer, it becomes the integer, if you cast a pointer to a struct, it becomes the struct… The pointer can crash…, and can overflow… Be a pointer my friend… |
|
Registrovaný: 02.10.08 Prihlásený: 13.11.08 Príspevky: 8 Témy: 0 | 0 |
nadobuda dve hodnoty ale ako by som napr. dosiahol ich neustalu vymenu ako napr. k True by bolo priradene clRed, a k False clBlue pri nejakom cykle?
|
|
Registrovaný: 30.04.08 Prihlásený: 15.05.15 Príspevky: 884 Témy: 3 | 3 |
No tak by si tam dal len podmienku
Kód: if (premenna==true) ... else ...
_________________ Empty your memory, with a free()… like a pointer! If you cast a pointer to an integer, it becomes the integer, if you cast a pointer to a struct, it becomes the struct… The pointer can crash…, and can overflow… Be a pointer my friend… |
|
Registrovaný: 02.10.08 Prihlásený: 13.11.08 Príspevky: 8 Témy: 0 | 0 |
ak sa chcem dostat na lavy horny roh Image ake suradnice dam pre x a y?
|
|
Registrovaný: 30.05.06 Prihlásený: 08.10.14 Príspevky: 1756 Témy: 35 | 35 Bydlisko: BA - WESTSIDE |
Pozri v helpe k Delphi, ale ak sa dobre pamätám, tak by to mohlo byť [0, 0].
_________________
A. S. Tanenbaum píše: The terms LF, MF, and HF refer to low, medium, and high frequency, respectively. Clearly, when the names were assigned, nobody expected to go above 10 MHz, so the higher bands were later named the Very, Ultra, Super, Extremely, and Tremendously High Frequency bands. Beyond that there are no names, but Incredibly, Astonishingly, and Prodigiously high frequency (IHF, AHF, and PHF) would sound nice. |
|
Registrovaný: 02.10.08 Prihlásený: 13.11.08 Príspevky: 8 Témy: 0 | 0 |
Mali by sa striedat modry a cerveny stvorcek na nahodnych poziciach ale nejde to. Co som zbabral?
Kód: var a, i, x, y: Integer; begin a:= 50; x:= 400; y:= 400; if i = 1 then Image1.Canvas.Brush.Color:= clRed else Image1.Canvas.Brush.Color:= clBlue; for i:= 1 to 2 do begin x:= x-a*Random(2); y:= y-a*Random(2); Image1.Canvas.Rectangle(x, y, x-a, y-a); end; end;
|
|
Registrovaný: 17.10.06 Prihlásený: 08.01.11 Príspevky: 1752 Témy: 17 | 17 |
tu ulohu poznam , ze si prvak na matfyze?
ja som to vyriesil takto
Kód: var x,y,z:integer; begin z := 10; while true do begin if Image1.Canvas.Brush.Color = clRed then Image1.Canvas.Brush.Color := clBlue else Image1.Canvas.Brush.Color := clRed; x := z*random(Image1.Width div z); y := z*random(Image1.Height div z); Image1.Canvas.Rectangle(x, y, x+z, y+z); wait(1); end; end;
_________________ A Real Programmer might or might not know his wife's name. He does, however, know the entire ASCII code table. |
|
Registrovaný: 02.10.08 Prihlásený: 13.11.08 Príspevky: 8 Témy: 0 | 0 |
Mas pravdu ale k tomu prikladu: ma to problem s wait(1) ak ho tam nedam program sa neda zastavit. a este jednu vec v ktorom si rocniku?
|
|
Stránka: 1 z 3
| [ Príspevkov: 67 ] | 1, 2, 3 |
Podobné témy | Témy | Odpovede | Zobrazenia | Posledný príspevok |
---|
| v Assembler, C, C++, Pascal, Java | 3 | 530 | 08.11.2015 7:02 matesko3 | | v Assembler, C, C++, Pascal, Java | 4 | 860 | 27.10.2007 16:44 audiotrack | | v Operačné systémy Unix a Linux | 4 | 523 | 07.09.2011 0:29 System Selector | | v Assembler, C, C++, Pascal, Java | 0 | 429 | 19.12.2014 13:18 Styracoz | | v Assembler, C, C++, Pascal, Java | 0 | 646 | 31.01.2008 20:03 B.A.X.O | | v Assembler, C, C++, Pascal, Java | 16 | 930 | 02.10.2012 13:50 BX | | v Assembler, C, C++, Pascal, Java | 6 | 637 | 14.01.2018 18:30 Miso122 | | v Assembler, C, C++, Pascal, Java | 11 | 1177 | 02.06.2010 21:19 predcis | | v Assembler, C, C++, Pascal, Java | 1 | 443 | 04.05.2010 19:51 Ďuri | | v Assembler, C, C++, Pascal, Java | 4 | 677 | 22.07.2009 23:15 Loko11 | | v Assembler, C, C++, Pascal, Java | 2 | 319 | 13.10.2012 22:37 XOLOO | | v Assembler, C, C++, Pascal, Java | 2 | 437 | 09.07.2015 18:52 reDo | | v Počítačové hry | 6 | 484 | 05.05.2013 17:21 EXIREXT | | v Notebooky a netbooky | 2 | 294 | 06.06.2024 17:56 dank9o | | v Assembler, C, C++, Pascal, Java | 16 | 3823 | 04.06.2009 20:49 Flexor28 | | v Assembler, C, C++, Pascal, Java | 0 | 530 | 02.08.2009 0:16 Loko11 |
|