Anonymní profil Příležitostný návštěvník – Programujte.com

#3 Tomáš
Je tím myšleno tohle:

type
  druh = (zena, muz, hermafrodit); 
var
     pohlavi:druh;  
     vstup:string;
begin
  {readln(pohlavi);  tohle nejde - chyba překladače}
  readln(vstup); {neni problem}
  writeln(vstup); {taky neni problem}
  if vstup='muz' then pohlavi:=muz;
  if vstup='zena' then pohlavi:=zena;
  if copy(vstup,1,4)='herm' then pohlavi:=hermafrodit;
  writeln(pohlavi); {tohle taky nejde - chyba překladače, 
                     i kdyz koukam, ze nektere prekladace 
                     tohle uz zkousnou a vypisou 
                     identifikator hodnoty}
  {U prekladacu, ktere to neumi, se to musi vypisovat 
   treba takhle:}
  case pohlavi of
    muz:writeln('muz');
    zena:writeln('zena');
    hermafrodit:writeln('hermafrodit');
  end;     
end.

#1 Tomáš
První varianta zabírá v paměti podle verze překladače 1 bajt nebo 4 bajty a nelze ji číst z klávesnice ani vypisovat.. Můžeš ji ale použít třeba v množině a provádět množinové operace.

Druhá varianta zabírá 256 bajtů a lze ji číst i vypisovat. Na množiny zapoměň.

PS: pohlaví se píše s měkkým...

#14 Lenny
pole bajtů je pole bajtů, v céčku nedělám, ale pochybuju, že by neumožňovalo deklarovat cokoliv.

nehledě na to, že taky lze cokoliv přetypovat na cokoliv...

Jak tak chvíli googluju, tak standardní C nemá typ byte, jen char, ale jak se zdá, má přesně to co potřebuješ - bitové pole, kde si nadefinuješ počty bitů jednotlivých částí té tvé hlavičky:

http://www.builder.cz/rubriky/c/c--/ucime-se-c-25-dil-bitove-operatory-a-bitove-pole-155778cz

#9 Lenny
No sláva, tak ještě doplň jestli i data jsou de fakto v bajtech (celkový počet bitů je dělitelný osmi), přičemž délka dat je jak předpokládám samozřejmě jedna z položek info bloku (hlavičky) a pak už není co řešit. Prostě přečti daný počet bajtů tvořících hlavičku, děkóduj pomocí bitových operací potřebné informace (především délku dat) a pak přečti daný počet bajtů dat do nějakého bufferu. Data pak zpracuj...

Pokud tam délka dat není, ale délka dat je dělitelná osmi a hodnota 9B v datech nemůže být obsažena, pak čti data po bajtech do bufferu tak dlouho, dokud nenarazíš na 9B...

#7 Lenny
Nechceš se podívat ještě jednou, jestli ty infobity nedávají v součtu počet dělitelný osmi? Tím by se to dost zjednodušilo...

#3 Lenny
Udělej mi jasno v tom, jak je to organizováno. Z toho cos napsal jsem zmaten. Rámec je jak píšeš rozdělen na bity ale pak najednou říkáš něco o počátečním bajtu rámce a že jeho hodnota znamená  5 bitů???

Takže jak to teda je?

1 celý rámec zabírá kolik bajtů/bitů? Je tato velikost konstantní?

Pak se můžem pohnout...

#1 Ales123
Tak si najdi na internetu rovnici kružnice a souřadnice pozice slunce počítej jako souřadnice bodů na horní části kružnice...

#3 JoDiK

.-//.---/.//-/---/
 

#1 Peter
 

    for i:=1 to length(text) do
     if text[i]<>' '
	then write(m[text[i]],'/')
	else write('/');

A je to...

#2 danny04
Zjistil sis co ta chyba znamená? Tak tím směrem zaměř svoje hledání...

Dobrým začátkem bude zapnout si kontrolu přetečení a rozsahu v překladači a pro zadání, při kterém ti to píše tu chybu si program odkrokovat a vypisovat hodnoty - tipuju, že ti někde utekl mimo rozsah index do těch polí...

#1 Kashttan
Co kdyby sis prosímtě nejdřív přečetl, jak je příkaz IMG definován a co jeho parametry znamenají/umožňují?

Pak bys nehledal chybu kde není...

#3 Guru12
Jak ho dát dohromady? Snadno...

1. Navrhneš algoritmus (třeba si ho nakreslíš jako vývojový diagram)
2. Napíšeš zdrojové texty
3. Přeložíš je do pseudokódu
4. Spojíš je do výsledného balíčku pro cílový operační systém

A je to :-)

#7 Mildas

Tak mobilní aplikace by asi byli fajn, ale pořád netuším, co a jak to funguje.

Vzhledem k tomu, že o tom nevíš nic, tak nejdůležitější je pro tebe jen jedna věc: jestli to opravdu chceš. Pokud je odpověď ano, tak ti nic nebrání - prostě začni a na to jak to funguje přijdeš v běhu...

Svět mobilních aplikací má opravdu budoucnost, takže tudy určitě vede cesta.

Počítej s tím, že pokud tě to opravdu chytne, věnuješ tomu každou volnou chvilku a může to trvat hodně dlouho, než do toho pronikneš...

Vzpomínám si, když jsem dělal na diplomce, tak jsem ráno rozlepil oči a už se natahoval po vypínači na PC, protože mi v hlavě šrotovaly nápady a musely ven... Teprve až hlad kolem poledne mě donutil konečně snídat...

Důležitý je taky kvalitní zdroj informací, který já jsem neměl, takže některé věci jsem dělal zbytečně složitě - s tím taky počítej, že se může stát, že něco "doděláš" a pak zjistíš, že bude lepší to udělat celé znovu a lépe...

Dnes už máš informací na internetu dost, tak se prostě rozhodni a začni...

Když se někde zasekneš, ptej se... je tu spousta lidí, co poradí...

http://skola.isd.cz/java/14a_vstupy_a_vystupy.pdf

viz stringtokenizer

Vidím, že se spíš morduješ s programováním jako takovým, dělat na každou operaci samostatnou funkci je jaksi proti principům strukturovaného programování.

Buď se to dělá tak, že se napíše program bez podprogramů a zkoumáním opakujících se částí se tyto oddělí jako procedury a funkce. Nebo (pokud si člověk nejdřív důkladně algoritmus promyslí) se rovnou píší jednotlivé univerzální podprogramy, a ty se pak v hlavním programu, případně navzájem využívají.

V tvém případě: chceš načítat údaje: rozměry matice - tak si uvědom co se při načítání dělá stejně a čím se bude načítání jednotlivých údajů lišit. Zjistíš, že se liší pouze text vypisovaný před načítaným údajem, vlastní načítání je stejné. Takže si vyrobíš podprogram na načítání (tady je asi jedno, jestli to bude funkce nebo procedura - což mi připomíná - nastuduj si jak fungují, abys pak funkci nepoužíval jako proceduru navíc se špatným typem parametru).

#1 Tango
Programátorské editory většinou vkládají místo tabulátoru tolik mezer, kolik je potřeba na posun na začátek dalšího slova/bloku podle předcházejícího řádku...

#1 Tango

Niekedy keď stlačím tabulátor spraví to medzeru o 8 znakoch, niekedy 4 a niekedy zas 6.

To přece záleží na programu (editoru), jak tabulátor vyhodnotí...

Vyšší textové editory navíc tabulátor nenahrazují, ale nechají ho tak...

Takže si nejdřív ujasni, co vlastně chceš dělat a pak řeš co čím nahrazovat...

#1 Matěj Andrle
No, podle tohodle: http://www.jakpsatweb.cz/…ulare-4.html bys v tom INPUTu místo NAME měl použít ID. Když jsem to zkusil, tak to už validátoru nevadí...

<label for="captcha">Páté písmeno abecedy?</label>
<input type="text" maxlength="1" style="width: 8px" id="captcha" />

#11 nevedko01
Ty k té tiskárně nemáš žádný manuál? To se pak dělá dost špatně... Ale jak jsi sám napsal, když už přesně víš co chceš, řešení se najde...

#5 nevedko01
Obávám se, že v MS-DOSe by tě to příliš neuspokojilo, sice jsem uměl vyrobit dokonce i firemní logo z jednotlivých znaků, které jsem nacpal do paměti jehličkové tiskárny tak, aby ho uměla vytiskout, ale kvalita 60 dpi a jehličky jsou dnes už passé... Moderní tiskárny pracují trochu jinak a skloubit to s windowsama to už snad ani vůbec nejde...

#3 nevedko01
tak v MS-DOS je to bez problémů, to jsem dělal mockrát, protože tam je aktuální vždy jen jeden obrazovkový font, který si můžeš libovolně měnit (zapsat do paměti videokarty). S tím bych ti uměl poradit,  ale ve windows bohužel, tam je vše jinak, každá aplikace si používá co chce, navíc v době UTF 8 a 16 už si nikdo není jist ničím... Typický příklad jsou česká písmenka s diakritikou v prezentacích PPT, která jsou vždy jinak, než zbývající znaky v "nenormálním" fontu písma... Třeba se v tom někdo jiný orientuje a poradí...

Teoreticky, pokud změníš znak v tom systémovém písmu, které používá notepad a podaří se ti ho OS windows podstrčit tak, aby si ho opravdu převzal a načetl (asi po restartu), tak by to snad mělo jít...

#3 nevedko01
Chjo, máš to napsaný v manuálu tiskárny ...

#1 nevedko01
Nejdřív si ujasni čeho chceš dosáhnout, podej více informací (v jakém operačním systému, jaký font - obrazovkový/vektorový) a pak se možná dočkáš i rady...

#1 nevedko01
Poslat to tam v tom kódování, do jakého je tiskárna zrovna přepnutá, nebo nejdříve přepnout znakovou sadu v tiskárně do správného kódu a pak to tam posílat...

#23 Rodney
"mi to hodí chybu" a jakou chybu ti to hodí??? Nenapíše to náhodou nějaké číslo té chyby? Není v nápovědě seznam těchto čísel chyb i s podrobným vysvětlením příčin?

v programu máš napsáno:

nazev:=Vysledek;
Assignfile(vystup, nazev);

a co obsahuje proměnná Vysledek??? Asi náhodnou hodnotu že? Nemělo tam být třeba 'Vysledky.pas' ???

#1 marek
Obecně - musíš u obrázku zapnout průhlednost a nastavit která barva má být průhledná.

#3 Zajda
Málo informací...

Jaký vlastně máš problém? Neznáš strukturu RAW souboru? A my ji snad máme znát, když jsi neřekl o co jde, jestli je to RAW z nějakého digitálního fotoaparátu, nebo snad z nějakého průmyslového snímače? To bys ale snad měl vědět, takže máš k tomu souboru určitě i popis jeho struktury. Pak zas nechápu co ti nejde...

Takže s čím teda chceš poradit?

#1 Zajda
Radu? Když jsi vlastně nepodal žádné relevantní informace?

Tak tady máš radu - proč probůh děláš něco takového, co už je dávno hotové, použij přece program, který je na to určen a umí to...

#3 Myschoo
Chceš říct, že tě ve školce nenaučili stříhat z papíru proužky, na základní škole tě nenaučili kreslit čáry podle pravítka a psát čisílka a chápat jejich význam?

Pak teda nevím, jak ses s takovou bednou dostal až na tu OSU školu, nebo kam to vlastně chodíš - asi proto, že je tam teplo a kamarádi...

Promiň, nebudu za tebe dělat tvou práci, ani za peníze...

#4 Veronika
Prosímtě a jak jsi na to přišla? Ty příklady jsou psány v základním Pascalu a troufnu si tvrdit, že je lze zkompilovat a spustit na jakékoliv verzi od Turbopascalu 3.0 výše včetně všech alternativních freepascalů a lazarusů.

Funguje to i na online verzi překladače: http://www.compileonline.com/…l_online.php

Zkus tam ten desátý příklad zkopírovat, přepni se do záložky input.txt, napiš tam nějakou větu, do okýnka vpravo dole STDIN Input: napiš input.txt a spusť - vypíše ti to výsledek ne do výstupního souboru (to by na online web aplikaci asi nešlo), ale do výstupního okna...

Jestli se programování chceš úplně vyhnout a chtělas, aby to za tebe někdo udělal, tak jsi to měla napsat rovnou...

Tady máš těch příkladů víc: http://home.pf.jcu.cz/…s1/pas1.html

A výukový materiál je hned vedle: http://home.pf.jcu.cz/…program.html

#1 Veronika
Typické...

"se soubory jsme nepracovali"

Opravdu po tobě učitel chce něco, co jste ve škole nedělali? To je ale nespravedlnost...

Hledání na internetu jste asi taky nedělali že?

Například tady máš velmi podobný příklad, na tu svoji variantu to určitě zvládneš upravit...

http://home.pf.jcu.cz/~edpo/pas1/p10.html

#19 KIIV
Jen doplním, že normální IDE aspoň v době kdy jsem naplno programoval já, poskytovaly pro ladění nenahraditelné prostředky krokování, výpisy obsahů proměnných, procházení strukturou objektů atd.

Takže nějaké pomocné výpisy jsou jen trapná a pracná náhražka...

#11 kejta
Tohle nevím jak myslíš:

opravdu nevim jak nacist to pole do ty funkce..

To snad ani nepotřebuješ nijak "načítat", máš přece globální proměnnou pole, která je v té funkci dostupná...

Spíš si lépe promysli, co bys v té funkci chtěl dělat. Já bych to viděl třeba takhle - předáš do ní pozici zkoumaného čísla a ta funkce zjistí, jestli na všech předchozích pozících v poli to zkoumané číslo už není...

function Opakovani (pozice : integer): boolean;
var zkoumame: integer;
begin
  opakovani :=true;
  for zkoumame:=1 to pozice-1 do
    if posloupnost[pozice]= posloupnost[zkoumame] then opakovani:=false;
end;

#11 kejta
tady se pokoušíš do jednoduché proměnné typu integer narvat celé pole 10000 celých čísel:

predchozi_hodnoty := posloupnost;
 

Vždyť ten překladač ti říká, na kterém to je řádku, jen je asi tak zmaten z toho, o co se pokoušíš, že ani neví, jak by ti tu chybu popsal...

#4 Příležitostný návštěvník
Když se koukneš do toho odkazu přede mnou, tak tam najdeš tuto sekci:

    // Get a message's content.
    public static String getMessageContent(Message message)
    throws Exception {
        Object content = message.getContent();
        if (content instanceof Multipart) {
            StringBuffer messageContent = new StringBuffer();
            Multipart multipart = (Multipart) content;
            for (int i = 0; i < multipart.getCount(); i++) {
                Part part = (Part) multipart.getBodyPart(i);
                if (part.isMimeType("text/plain")) {
                    messageContent.append(part.getContent().toString());
                }
            }
            return messageContent.toString();
        } else {
            return content.toString();
        }
    }

nebo-li multiparty se postupně čtou v cyklu, některé části v prostém textu lze číst rovnou, HTML obsah budeš muset asi dekódovat...

#1 Ondra
Dnešní mejly už dávno nejsou prosté texty, skládají se z mnoha částí (MultiPart), které se zřejmě musí z toho mejlu číst zvlášť (když si takovej mejl otevřu v horde - linuxovém webové rozhraní k mejlu - tak to taky musím načítat ještě extra - přímo v mejlu není nic...

Budeš si to muset lépe nastudovat...

#1 Milan7
Alternativní? Vytvoř v té samé složce kde máš file.pdf nový textový soubor file.bat a do něj zkopíruj tenhle text:

@echo off
for %%a in (de, es, fr, gb, hu, it, nl, pl, ro, ru, sk, sv) do copy file.pdf file_%%a.pdf

Pak stačí spustit file.bat

Nojo HP=Hlavní Strana, že mě to hned nenapadlo...

Co je to "HP"

#19 FeXxy
Právě jsem ti to tam zkusil přidat a funguje to bez chyby.

Takže to vypadá, že neumíš pracovat s podprogramy...

Tak to vrať do předchozího stavu

a místo:

SHM:= (hrubamzda*1.34);

tam dej:

SHM:=round(hrubamzda*1.34/100+0.049)*100;

 

#17 FeXxy
Jakou?

#17 JoDiK
Takže procházej všechny záznamy jedním while cyklem ve kterém v samostatném větvení zkoumej, jestli je aktuální záznam hledaný. Takový vypiš.

Až to budeš mít, promysli jak vyřešit, když se nenajde nic...

Zkus si ti nejdřív namalovat na papír a pak teprve piš do programu - evidentně se v tom matláš...

Jak to vidím já:

akt:=prvy;
while   ((akt<>nil) and (x=akt^.hod.odbor)) do begin
        akt:= akt^.dalsi;
end; { co je vysledkem tohoto cyklu? Já to čtu takto: dokud aktuální záznam je ten, který hledám, jdi na další záznam; Takže po skončení cyklu je v proměnné akt ukazatel na první záznam, který jsem nehledal!}

repeat
  writeln(akt^.hod.odbor,akt^.hod.meno:15,akt^.hod.priez:13,akt^.hod.rok:16);
  akt:=akt^.dalsi;
until   akt=nil;

{tento cyklus pak vypíše všechny zbývající záznamy, takže pokud první záznam není hledaný, vypíše úplně všechny, pokud první záznam je hledaný, tak vypíše všechny počínaje druhým}
 

#14 JoDiK
ten repeat until co jsi přidal dělá jen to, že vypíše všechny zbývající záznamy počínaje tím prvním nalezeným...

#13 peto1254
Opakuji co už jsem jednou psal (a pořád to platí):

v proceduře vyhledání najdeš první záznam splňující podmínky hledání, tím končíš hledání a ten jeden nalezený záznam vypíšeš.

Takže si odděl procházení seznamu a podmínku pro hledání záznamu...

Navíc jsi tam přidal nesmyslnou chybu:

if hladaj<>nil  then begin

proměnná hladaj není vůbec nastavená, takže má náhodnou hodnotu..

#11 peto1254
Aha, takže neopravil...

#9 peto1254
Promiň, slovensky umím, ale z tvé odpovědi jsem nevyčetl jestli už je to vyhledávání v pořádku nebo ne...

#7 peto1254
Tak pokud ti to pořád vypisuje "aj  tých ktorých nechcem aby vypísalo ktorých som nedal vyhľadať" a nemůžeš přijít na to proč, tak sem dej opravený kód...

#5 peto1254
Na to jsem se neptal...

Už jsi opravil to vyhledávání, aby neskončilo u prvního nalezeného?

Pokud chceš přesnou shodu u porovnávání, nepoužívej POS ale rovnou porovnávej takže místo:

Pos(x,akt^.hod.odbor)=0)  dej  x=akt^.hod.odbor

if (x = 'a b c') or (x ='a c b') or (x ='b a c') or (x ='b c a') or (x ='c b a') or (x ='c a b') then libovolna_z_podminek_plati

Když odhlédnu od toho, že nově přidávaný záznam umisťuješ nestandardně na začátek seznamu (takže posledně přidaný je v seznamu první) tak ti snad dojde, že v proceduře vyhledání najdeš první záznam splňující podmínky hledání, tím končíš hledání a ten jeden nalezený záznam vypíšeš.

Takže si odděl procházení seznamu a podmínku pro hledání záznamu...

#7 Proksa
Ten tvůj program je velmi "zvláštní", navíc mám pocit, že jsi nepochopil zadání.

Cituji: "V souboru budou zapsány naměřené hodnoty... a ze všech 5 pokusů poté vytvoří graf."

Tomu já rozumím tak, že v jednom souboru bude všech pět dvojic naměřených hodnot a ne že budou po dvou v pěti souborech...

#1 Kéfas
"táto kombinácia Ctrl + A vôbec nereaguje"

To je divný, máš klávesnici PS/2 nebo USB?

#49 gaucan
To je ideální stav, když si to doděláš sám...

Chybu tam nemám, jen jsme nesjednotili to, co má dělat podprogram napln.

Jak jsem si to včera neuložil, tak jsem si to přesně nepamatoval a navedl tě trochu mimo.

Ale zdá se, že princip jsi pochopil...

Až to doděláš po svojemu, můžeš to porovnat s mým řešením:

Dim cisla
Dim pocet
Dim vystup

Sub naplnJednicku(zacatek, kam)
Dim i
For i = zacatek To pocet
    cisla(i) = 0
Next i
cisla(kam) = 1
End Sub

Function Seznam()
Dim i
Dim s
For i = 1 To pocet
  s = s & cisla(i)
Next i
Seznam = s
End Function

Sub trojicky()
Dim vypis
Dim i, j, k
cisla = Array(0, 0, 0, 0, 0, 0, 0, 0)
pocet = UBound(cisla)
vypis = Seznam
For i = 1 To pocet - 2
    Call naplnJednicku(1, i)
    For j = i + 1 To pocet - 1
        Call naplnJednicku(i + 1, j)
        For k = j + 1 To pocet
            Call naplnJednicku(j + 1, k)
            vypis = vypis & vbNewLine & Seznam
        Next k
    Next j
Next i
MsgBox vypis
End Sub

Spustitelné v jakémkoliv office, počet bitů se určuje počtem nul (-1) v deklaraci

cisla = Array(0, 0, 0, 0, 0, 0, 0, 0)

#1 zdravim
Taky zdravím, já bych se chtěl svízt vrtulníkem, ale záleží přitom na počasí, zatím jsem letěl jen jednou a to pršelo - nebylo to ono.

Takže to další řešení bude optimalizační - není třeba plnit všechny jedničky (stejně se v tom dalším vnořeném cyklu přepíšou) bude stačit dávat jen jednu.

Ale to už je na tobě, jestli pochopíš to předchozí řešení a dokážeš ho sám zoptimalizovat...

Tak jsem si to musel udělat znovu (jak jsem to včera neuložil).

Samozřejmě mě hned napadlo několik dalších možných řešení, včetně rekurzivního, ale dokončíme to, co jsme začali...

Nakonec ten třetí parametr tam bude muset být...

Takže budeme mít podprogram napln(zacatek, od, kolik)

zacatek - pozice odkud se budou plnit nuly

od - pozice, odkud se budou plnit jedničky

kolik - kolik bude těch jedniček

v hlavním programu bude tento první cyklus:

pro i=1 to pocetBitu

napln(1,od,3)

vypis(pole)

dalsi i

tohle odladit ať funguje...

pak se zařadí další vnořený cyklus, který bude pokračovat o jednu pozici dál a bude dávat o jednu jedničku méně.

pro i=1 to pocetBitu
   napln(1, od, 3)

   pro j=i+1 To pocetBitu-1
        napln(i+1, j, 2)

	vypis(pole)
   dalsi j

dalsi i

No a na závěr už ten třetí cyklus zase o jednu pozici dál a o jedničku méně.

To už určitě zvládneš sám...

Já se jdu kouknout na ta další řešení...

#37 JoDiK
Jdu pod sprchu, takže pak už chybí jen udělat z toho co máš podprogram s těmito parametry:

zacatek, pocetJednicek

No a pak ho zavoláš postupně ve třech cyklech

Začneš cyklem pro tři jedničky

Do něj vnoříš cyklus pro dvě jedničky se začátkem o jednu dál než je pozice první jednička

a třetí pro jednu jedničku se začátkem o dvě dál oproti první jedničce

Kdybys to nedal, tak zítra se snad kouknu...

#36 JoDiK
Jejda, já si ten program neuložil, a teď už mi to pomaleji myslí, takže není potřeba další proměnná, jen ty nuly by měly začínat od pozice zacatek. Vše ostatní platí, takže:

pocetBitu=7, zacatek=4, pocetJednicek=2

Příprava:

2222222

Program:

2221100

2220110

2220011

#34 gaucan
Jo, máš pravdu s tím druhým příkladem, ty to máš správně.

Takže zbývá poslední zobecnění.

Všechno to, co jsme doteď dělali, musí jít i od zadané pozice. Nebo-li přibyde ještě jedna proměnná, od kolikáté pozice se to má začít plnit nulami, přičemž všechny předchozí pozice musí zůstat beze změny.

Doporučuji naplnit pole pro kontrolu třeba dvojkama a přidat proměnnou třeba pocatek

pocatek=3, pocetBitu=7, zacatek=4, pocetJednicek=2

Příprava:

2222222

Program:

2201100

2200110

2200011

#32 JoDiK
Až to budeš mít, zkontroluj že to bez problémů funguje na příkladech, třeba:

pocetBitu=3, zacatek=1, pocetJednicek=1

100

010

001

pocetBitu=5, zacatek=2, pocetJednicek=3

11100

01110

00111

Musíš si správně ohlídat meze...

#31 gaucan
Nestačí, není to obecné. Musíš tam  použít další cyklus...

#26 gaucan

Jsem se vrátil zvenku, chvilku tu ještě budu, nevím jestli ty...

Tohle
pole[i]=1; // posunie jednicku

je potřeba udělat pro dvě jedničky (obecně pro tolik, kolik se jich bude zpracovávat)

takže místo jednoho přiřazení tam bude další cyklus a měl by dělat tohle:

příklad pocetBitu=6, zacatek=2, pocetJednicek=2

011000

001100

000110

000011

Udělej to...

#23 gaucan
výborně, ale teď už začni zobecňovat - počet číslic nebude 5 ale nějaké obecné n

počáteční pozice nebude 3 ale třeba z

Ověř funkčnost na několika kombinacích n a z

3,1

6,4

7,7

1,1

a podobně...

#1 Valibuk
A nebude to tím, že ta wifi pracuje jako router?

#21 JoDiK
Až to budeš mít, zobecni i počet míst v čísle na nějaké n. pozice začátku bude třeba z.

Další krok bude pracovat s více jedničkami - obecně s  počtem třeba s

Příklad pro n=5 a s=2 a z=2

01100

00110

00011

#20 gaucan
Takže druhý level:

Uprav to tak, že to to bude tu jedničku umisťovat jen od určité zadané pozice

Například od pozice 3:

00100

00010

00001

#16 gaucan
Já na nic nečekám, makám na svým domácím úkolu, to tvoje zadání jsem si zmáknul jen tak na odfrknutí a občas sem kouknu co je novýho...

#12 Flowy
Heleď, jestli s tím chceš pomoct, tak makej, za chvíli jdu jíst a pak du ven...

Udělej to, co jsem ti psal v javě a dej to sem, ať se pohnem...

#11 gaucan
Tak to nevzdávej tak brzo a nesnaž se hned řešit celý "velký problém" (možností bude 84)

Takovéto úlohy se právě  řeší postupně od jednoduššího ke složitějšímu...

Další krok bude zobecnění toho příkladu - naplnění nulami a posouvání jedniček jen v určeném rozmezí od - do

Dalším krokem bude zvýšení počtu jedniček.

No a to už se zobecňovat nemusí, přidá se druhá a třetí jednička a už to valí...

111000000 110100000 110010000 110001000 110000100 110000010 110000001 101100000 101010000 101001000 101000100 101000010 101000001 100110000 100101000 100100100 100100010 100100001 100011000 100010100 100010010 100010001 100001100 100001010 100001001 100000110 100000101 100000011
011100000 011010000 011001000 011000100 011000010 011000001 010110000 010101000 010100100 010100010 010100001 010011000 010010100 010010010 010010001 010001100 010001010 010001001 010000110 010000101 010000011
001110000 001101000 001100100 001100010 001100001 001011000 001010100 001010010 001010001 001001100 001001010 001001001 001000110 001000101 001000011
000111000 000110100 000110010 000110001 000101100 000101010 000101001 000100110 000100101 000100011
000011100 000011010 000011001 000010110 000010101 000010011
000001110 000001101 000001011
000000111

#9 JoDiK
Jsem to nakonec nedoupravil, snad jsi to pochopil, jen pro jistotu

"na pětimístném číslet pozic"

čti jako "na pětimístném čísle"

#8 JoDiK
Zkus to udělat v té javě...

#7 gaucan
No to se pak blbě radí - taky je divný, že po tobě chtějí něco na způsob, kterej jste ve škole nedělali...

No ale zkusím to...

Takže obecně: dejme tomu mám na pětimístném číslet pozic umístit třeba na pozici 4 jedničku ( a na zbytek nuly)

Takže začnu tím, že všude dám nuly a pak na určené místo jedničku.

pro p=1 to 5 
  pole(p)=0
další p

pole(4)=1

vypiš pole (bude tam 00010)

Ale protože tu jedničku chci mít postupně na všech pozicích, tak použiju další cyklus:

Takže:

pro kam=1 to 5

    pro p=1 to 5 
       pole(p)=0
    další p

    pole(kam)=1

    vypiš pole (postupně se vypíše 10000, 01000, 00100 ...

další kam

#5 gaucan
Aha, takže úplný začátečník? Proč teda jdeš do tak těžké úlohy?

Koukni se na cyklus for

#3 gaucan
Tak začni tím, že tam budeš mít jen jednu jedničku.

100

010

001

To bys mohl zavládnout ne?

#1 gaucan
Tak si to udělej sám ne?

Napiš si na papír pro jednoduchost třeba jen 5-ti bitový tvar a zkus si procházet možnosti s posouváním jedniček doprava počínaje poslední

11100

11010

11001

Další sada

10110

10101

Další

10011

No od začátku

01110

01101

Další

01011

Znovu od začátku zbývá jen

00111

To jsou myslím všechny ne?

No a teď to naprogramuj pokud možno obecně a místo pěti pracuj s devíti a je to...

#22 JoDiK
Režim otevření pouze pro čtení se nastavuje přes proměnnou filemode...

#21 dyžon
Nevím jak moc se to u Delphi změnilo, já to dělal v klasickém Pascalu pod DOSem, takže je možný, že už tam jsou jiiný příkazy, ale principy snad zůstaly.

Takhle jsem zjišťoval tu cestu:

  P:=paramstr(0);
  Fsplit(P,D,N,E);
  HomePath:=D;
  if homepath<>'' then 
    if homepath[length(homepath)]<>'\' then homepath:=homepath+'\';

Tak jsem se do toho koukl a jeden drobný problém tam byl a to právě s tím atributem - takže jsem si musel sehnat proceduru, která nastavila novellovský atribut na sdíleném disku po přepsání (znovuuložení) souboru.

Jinak cestu ke spuštěnýmu programu si zjišťuju z paramstr(0) - oddělil jsem jméno programu a přidal jméno databáze.

Pokud by ti havarovalo čtení u druhého spuštěného programu u sdílené databáze, budeš asi muset udělat dvě varianty, u těch co mají tu databázi jen číst, otvírej soubor v režimu jen pro čtení.

#2 jp
A zkusili jste vy jelimani kouknou tady do poradny, když už neumíte hledat na Googlu? Nejste první co to řešijou...

#8 Martin
Místo toho tam dej přímo max oddělený čárkou atd.

writeln('Maximum z pola cisel je : ',max,' Nachadza sa : ',pocMax,' krat');
 

Defaultní (implicitní) hodnoty mohou být zadány jen
u posledních parametrů. Takže přehoď pořadí parametrů tak, aby
penez:integer=0;
byl poslední.
http://docwiki.embarcadero.com/RADStudio/en/Parameters_%28Delphi%29

#11 davous267
A co ještě varianta, kde se budou kružnice do sebe skládat? Za určitých poměrů to vyjde lépe - takže vyhodnotit a použít tu lepší variantu!

#55 Petr Jureček
Tak použj integer, jako nepravda do něj ulož 0 a jako pravda 1

Strýček Google našel:

For i = 1 To 4
    Controls("TextBox" & i).Value = "Text " & i
Next i

#1 Tomas
Podle syntaxe jazyka HTML uvnitř příkazu A nesmí být žádný jiný příkaz s výjimkou IMG.

#11 Michal
http://msdn.microsoft.com/en-us/library/system.io.driveinfo.getdrives.aspx#Y0

#8 JoDiK
Jestli chceš se#9 Michal
Pořád nerozumím, ty chceš u disku C: zjistit, že se jmenuje C:?

Nebo chceš zjistit seznam C: D: E: atd všech funkčních disků?

Nebo máš nějaký neznámý odkaz na disk (třeba číselný) a chceš zjistit, jaký je to disk?

#7 Michal
Tak teď nerozumím, co vlastně chceš zobrazit?

#5 Michal
Label3.Text = fVolume1("C:\")

nic?

#3 Michal
VBA visual basic for aplications = zjednodušený visual basic - když to funguje v něm tak i v tom složitějším ne? Zkusils to?

#1 Michal
Z internetových zdrojů (ověřeno VBA Excel)

Function fVolume1(strDriveLetter As String) As String
'   Function to return the volume label for a drive
'   Accepts:
'       strDriveLetter - a valid drive letter for the PC, in the format "C:\"
'   Returns:
'       The volume label if it exists, or else "No label"
    Dim strVolume As String
    strVolume = Dir(strDriveLetter, vbVolume)
    If strVolume = "" Then strVolume = "No label"
    fVolume1 = strVolume
End Function

#1 cluber
Tak sem nějakou takovou fotku pošli, ať se na ten "zázrak" kouknem.

Obecně, ve formátu JPG je uložen náhled a dost často editační programy tento náhled nechají v původním stavu. Teď si nejsem jistý, ale myslím, že tam možná je uložena i další větší verze náhledu aby se co nejrychleji zobrazil větší obrázek v horší kvalitě a až se v paměti připraví plná kvalita, tak se touto nahradí. V této verzi taky může být původní obrázek. To by odpovídalo tvému popisu zobrazování...

#3 Keny
No nevím nic bližšího o tvém projektu, ale je možné, že "na to jdeš špatně". Já když si vzpomenu na svůj první větší projekt s objekty, kdy jsem ještě neznal problemetiku a možnosti objektů, taky jsem tam nadělal spoustu nesmyslných obezliček abych dosáhl něčeho, co se dá udělat naprosto jednoduše a elegantně. Konkrétně si vybavuju, že jsem ještě neznal a neuměl využít virtuální metody a do objektu jsem si pracně navíc ukládal jako vlastnost jeho "typ" a podle něj vybíral přepínačem odpovídající činnost.

Takže zkus se ještě jednou podívat na to co a jak děláš a přečíst si něco o metodách OOP, jestli to náhodou taky neděláš zbytečně složitě. Podle naznačeného ukládání něčeho, co se týká objektů do samostatného pole se mi to tak jeví...

#1 Keny
A nebylo by jednodušší si tu informaci "objekt již byl jednou zpracován nebo ne" uložit raději přímo do toho objektu?

#1 Katka
A ten PHP kód máš proto, žes ho odněkud zkopírovala, nebo proto, že sis ho tak sama napsala?

Tabulka má řádky a v nich jednotlivé buňky. Když za každou buňkou s údajem z databáze ukončíš řádek a začneš nový, logicky budou pod sebou, takže stačí ukončovat řádky až za těmi třemi buňkami s údaji z databáze.

Pokud nevíš o čem píšu, pak si to nastuduj, o příkazech které tvoří tabulku byly sepsány spousty materiálů, třeba zde:

http://www.jakpsatweb.cz/…tabulky.html

#1 Draffix
Já bych to upravil tak, že bych udělal jednu univerzální funkci na načtení jednoho libovolného údaje, předával by se jí text, který to má vypsat jako výzva a tu zavolal třikrát (nebo kolikrát bude potřeba)...

Nějak takto:

a=nactiUdaj("Zadejte prvni cislo:")

b=nactiUdaj("Zadejte druhe cislo:")

c=nactiUdaj("Zadejte treti cislo:")

To peXtr :
Jestlis na to fakt koukal celý odpoledne, tak budeš potřebovat nový brýle...
Zkus to if a else taky odsadit na stejnou úroveň zleva jako je zbytek těla cyklu for...

To Seth1113 :
No jestlis na to ještě nepřišel, tak nakoukni sem - snad to z toho už pochopíš...
http://www.spsemoh.cz/vyuka/pascal/jtd.htm#vycet