Anonymní profil Zbyšek – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

Anonymní profil Zbyšek – Programujte.comAnonymní profil Zbyšek – Programujte.com

 

Příspěvky odeslané z IP adresy 78.156.128.–

Katka
Pascal › Serazeni sloupcu v matici
11. 12. 2014   #197208

#9 Katka
DIKY MOC

Katka
Pascal › Serazeni sloupcu v matici
11. 12. 2014   #197207

#8 Katka
ale musim si to vykrokovat abych to pochopila 

Katka
Pascal › Serazeni sloupcu v matici
11. 12. 2014   #197206

#7 Katka
uyz to jde

Katka
Pascal › Serazeni sloupcu v matici
11. 12. 2014   #197205

#6 Mircosoft
 

procedure setrid(var Matice: tMatice; M, N: tIndex);
var i,j,k, pom:integer;
begin
 for j:=2 to n do 
 begin
  for k:=n downto j do begin
   if Matice[2,k] > Matice[2,k-1] then
    for i:=1 to m do
     begin
      pom:=Matice[2,k];
       Matice[2,k]:=Matice[2,k-1];
       Matice[2,k-1]:=pom
end
end;
end;
end;


Nefunguje to ...

Katka
Pascal › Serazeni sloupcu v matici
11. 12. 2014   #197202

#4 Mircosoft

pom : integer
...
...
if Matice[i,k] > Matice[i,k-1] then
 begin
  pom:=Matice[i,k];
  Matice[i,k]:=Matice[i,k-1];
  Matice[i,k-1]:=pom
 end
end;
end;
end;


Mam to co mam udelat dal ?

Katka
Pascal › Serazeni sloupcu v matici
11. 12. 2014   #197199

   

procedure setrid(var Matice: tMatice; M, N: tIndex);
var i, j, k: integer;
pom: tSloupec;

begin
i:=2;
for j:=2 to n do
 bbegin 
  for k:=n downto j do begin
  if Matice[i,k] > Matice[i, k-1] then
   begin
    pom:=Matice[k];
    Matice[i,k]:=Matice[i,k-1];
    Matice[k-1]:=pom
end
end;
end;
end;


Tohle jsem udelala ale nefungovalo to (princip bubble sort vim) jen me to plete protoze musim resit radek 2 i=2

Katka
Pascal › Serazeni sloupcu v matici
11. 12. 2014   #197196

Jak prosim seradim sloupce v matici podle prvku druheho radku vzestupne? Prosim poradit jen slovne. Radkove to je v pohode. To si udelam pomocnou promenou tRadek = array .... .Pro sloupec mi to nefunguje.

zanetka
JavaScript, AJAX, jQuery › validace formu plugin
15. 5. 2014   #190209

#1 zanetka
data-validation-error-msg=''-' zapomnela jsem dokopirovat error message pro druhou podminku ale ta prave nefunguje...

zanetka
JavaScript, AJAX, jQuery › validace formu plugin
15. 5. 2014   #190208

Ahoj pouzivam jquery validator form a mam problem s error messagema dve rules uz jsem zprovoznila ze jsem to vsechno napsala do data-validation='length custom' ale error se pousti furt + ikdyz to nesplnuje druhou rules nevíte co s tím ? moc prosím...

                <p><input type="text" name="titul" size="40"  data-validation='length custom'  data-validation-length='3-6' data-validation-error-msg='+' data-validation-regexp='^([0-9]+)$' /></p>    

Danielle
› $ rails generate rspec:insta…
26. 3. 2014   #188648

Po zadání 
$ rails generate rspec:install

mi to hodí man-page .. nevíte někdo co s tím ? ruby verze 1.9.3 a rails mam 4.0.4 ale v Gemfiluu 3.2.3 

rails 4.0.4 mi nejde odinstalovat (odinstaluju a dam rails -v stale je tam 4.0.4)

Usage:
  rails new APP_PATH [options]

Options:
  -r, [--ruby=PATH]                                      # Path to the Ruby binary of your choice
                                                         # Default: /Users/macbook/.rvm/rubies/ruby-1.9.3-p545/bin/ruby
  -b, [--builder=BUILDER]                                # Path to a application builder (can be a filesystem path or URL)
  -m, [--template=TEMPLATE]                              # Path to an application template (can be a filesystem path or URL)
      [--skip-gemfile], [--no-skip-gemfile]              # Don't create a Gemfile
      [--skip-bundle], [--no-skip-bundle]                # Don't run bundle install
  -G, [--skip-git], [--no-skip-git]                      # Skip Git ignores and keeps
  -O, [--skip-active-record], [--no-skip-active-record]  # Skip Active Record files
  -S, [--skip-sprockets], [--no-skip-sprockets]          # Skip Sprockets files
  -d, [--database=DATABASE]                              # Preconfigure for selected database (options: mysql/oracle/postgresql/sqlite3/frontbase/ibm_db/sqlserver/jdbcmysql/jdbcsqlite3/jdbcpostgresql/jdbc)
                                                         # Default: sqlite3
  -j, [--javascript=JAVASCRIPT]                          # Preconfigure for selected JavaScript library
                                                         # Default: jquery
  -J, [--skip-javascript], [--no-skip-javascript]        # Skip JavaScript files
      [--dev], [--no-dev]                                # Setup the application with Gemfile pointing to your Rails checkout
      [--edge], [--no-edge]                              # Setup the application with Gemfile pointing to Rails repository
  -T, [--skip-test-unit], [--no-skip-test-unit]          # Skip Test::Unit files
      [--old-style-hash], [--no-old-style-hash]          # Force using old style hash (:foo => 'bar') on Ruby >= 1.9

Runtime options:
  -f, [--force]                    # Overwrite files that already exist
  -p, [--pretend], [--no-pretend]  # Run but do not make any changes
  -q, [--quiet], [--no-quiet]      # Suppress status output
  -s, [--skip], [--no-skip]        # Skip files that already exist

Rails options:
  -h, [--help], [--no-help]        # Show this help message and quit
  -v, [--version], [--no-version]  # Show Rails version number and quit

Description:
    The 'rails new' command creates a new Rails application with a default
    directory structure and configuration at the path you specify.

    You can specify extra command-line arguments to be used every time
    'rails new' runs in the .railsrc configuration file in your home directory.

    Note that the arguments specified in the .railsrc file don't affect the
    defaults values shown above in this help message.

Example:
    rails new ~/Code/Ruby/weblog

    This generates a skeletal Rails installation in ~/Code/Ruby/weblog.
    See the README in the newly created application to get going.

Danielle
› yield ?
12. 3. 2014   #188117

Dekuji ti moc za informace. Potesilo to!

Danielle
› yield ?
9. 3. 2014   #188049

#2 jistr
Diky moc

Vidim ze delas v Red Hat . Kolik toho clovek musi umet aby ho vzali na nejaky ten internship? Tedka jsem na netu videla ze shani na Ruby and Rails.

Danielle
› yield ?
3. 3. 2014   #187832

Dokazete mi nekdo vysvetlit jak ten YIELD funguje ? 

def fib_up_to(max) 
i1, i2 = 1, 1 
while i1 <= max
	yield i1
    	i1, i2 = i2, i1+i2
	end 
end
fib_up_to(1000) {|f| print f, " " }
Danielle
Regulární výrazy › Perl web framework
6. 2. 2014   #187144

Zdravim je tu nekdo z Vas, kdo nekdy pouzil nejaky webovy framework pro Perl (catalyst, dancer ... ) ? Pokud ano prosim nejake reference.

Danielle
Pascal › Tvorba souboru bez udani typu
1. 2. 2014   #186931

 dukaz toho ze vim ktera bije ... ale nevim jak bych udelala to celkovy skore

type zaznam = record
                minuta: byte;
                strelec: string;
              end;

var f: file;
    kodzeme: string[3];
    skore : array[1..2] of byte;
    branka: zaznam;
    domaci: byte;
    hoste: byte;
    i: byte;

begin
Assign(f, 'zapasy');
Reset(f, 1);
while not eof(f) do begin
BlockRead(f, kodzeme, sizeof(kodzeme));
write(kodzeme);
BlockRead(f, kodzeme, sizeof(kodzeme));
write(kodzeme);
Blockread(f, skore[1], sizeof(skore[1]));
domaci:=skore[1];
write(skore[1]);
Blockread(f,skore[2], sizeof(skore[2]));
hoste:=skore[2];
write(skore[2]);
for i:=1 to domaci do begin
  Blockread(f, branka.minuta, sizeof(branka.minuta));
  write(branka.minuta);
  Blockread(f, branka.strelec[0], 1);
  Blockread(f, branka.strelec[1], length(branka.strelec));
  write(branka.strelec);
end;
for i:=1 to hoste do begin
  Blockread(f, branka.minuta, sizeof(branka.minuta));
  write(branka.minuta);
  Blockread(f,branka.strelec[0],1);
  Blockread(f,branka.strelec[1], length(branka.strelec));
  write(branka.strelec);
end;
writeln;
end;
end.
Danielle
Pascal › Tvorba souboru bez udani typu
1. 2. 2014   #186925

Prectete tento soubor a vypiste tabulku zucastnenych zemi s celkovym skore - poctem vstrelenych a obdrzenych branek. ????

S celkovym skore

Danielle
Pascal › Tvorba souboru bez udani typu
1. 2. 2014   #186923

a pripad USA jednou domaci potom hostujici

USACZE21casstrelec.......

GERUSA21casstrelec.....

Danielle
Pascal › Tvorba souboru bez udani typu
31. 1. 2014   #186921

Ja chapu zadani jen nevim jak mam provest to zobrazeni

USA 81

CZE 18

Danielle
Pascal › Tvorba souboru bez udani typu
31. 1. 2014   #186917

to ano ale jak mam udelat neco ve stylu. Vim ze ctu do doby dokdy je co 

USA 8:1

CZE 1:4

GER 0:4

Danielle
Pascal › Tvorba souboru bez udani typu
31. 1. 2014   #186911

Cteni chapu

Jak by si ukladal ty zeme a jejich skore  kdyz predem nevim kolik jich bude ? Prosim o radu

Danielle
Pascal › Cteni ze souboru bez udani t…
31. 1. 2014   #186894

Diky moc toto bylo v pohode jeste jsem si udelala razeni bubble a bin. stromem.

Danielle
Pascal › Cteni ze souboru bez udani t…
30. 1. 2014   #186861

Prosim jak bych vypsala prvni datum hodnoty real na na vystup ? 

Blockread(f, data1.datum, sizeof(data1.datum));

write(data1.datum); 

Nefunguje

Danielle
Pascal › Cteni ze souboru bez udani t…
30. 1. 2014   #186857

Mne jde prave o ty ostatni real a byte string s nulou vim 

Danielle
Pascal › Cteni ze souboru bez udani t…
30. 1. 2014   #186855

 Je dan soubor bez udani typu, v nemz jsou ulozeny zaznamy o cerpani paliva nakladniho vozidla (datum 8bytove cislo, mnozstvi realne cislo, retezec zakonceny bytem s hodnotou nula udavajici adresu cerpaci stanice). Vlozte tyto udaje do pole zaznamu a pole vypiste.

Prosim jak prectu pomoci Blockread ten soubor ? Kdyby to obsahovalo pouze retezce vim dela se to po znacich. Jak to mam udelat zde prosim o radu. Soubor mam vytvoreny.

type
  zaznam = record
    datum: array[1..8] of byte;
    mnozstvi: real;
    adresa: string;
  end;

var
  // a seradim to podle mnozstvi // pomoci bin. strom // bubble //
  f: file;
  data1, data2, data3 : zaznam;
  poledat : array[1..3] of zaznam;
  i: byte;

begin
Assign(f, 'cerpani');
Rewrite(f, 1);

data1.datum[1]:=1;data1.datum[2]:=1;data1.datum[3]:=1;data1.datum[4]:=0;
data1.datum[5]:=2;data1.datum[6]:=0;data1.datum[7]:=1;data1.datum[8]:=4;
data1.mnozstvi:=5.4;
data1.adresa:='Brno';   
Blockwrite(f,data1.datum, sizeof(data1.datum));
Blockwrite(f,data1.mnozstvi, sizeof(data1.mnozstvi));
Blockwrite(f, data1.adresa[1], length(data1.adresa));
i:=0;
Blockwrite(f, i, 1);

data2.datum[1]:=1;data2.datum[2]:=5;data2.datum[3]:=1;data2.datum[4]:=0;
data2.datum[5]:=2;data2.datum[6]:=0;data2.datum[7]:=1;data2.datum[8]:=4;
data2.mnozstvi:=3.1;
data2.adresa:='Ostrava';   
Blockwrite(f, data2.datum, sizeof(data2.datum));
Blockwrite(f, data2.mnozstvi, sizeof(data2.mnozstvi));
Blockwrite(f, data2.adresa[1], length(data2.adresa));
i:=0;
Blockwrite(f, i, 1);

data3.datum[1]:=1;data3.datum[2]:=4;data3.datum[3]:=1; data3.datum[4]:=0;
data3.datum[5]:=2;data3.datum[6]:=0;data3.datum[7]:=1;data3.datum[8]:=4;
data3.mnozstvi:=7.8;
data3.adresa:='Praha';      
Blockwrite(f, data3.datum, sizeof(data3.datum));
Blockwrite(f, data3.mnozstvi, sizeof(data3.mnozstvi));
Blockwrite(f, data3.adresa[1], length(data3.adresa));
i:=0;
Blockwrite(f,i,1);
Close(f);

Assign(f, 'cerpani');
Reset(f, 1);
                   


Close(f);
end.
Danielle
Pascal › Tvorba souboru bez udani typu
30. 1. 2014   #186848

A jeste aby to cteni nebylo zavisle na skore 2:1 

Danielle
Pascal › Tvorba souboru bez udani typu
30. 1. 2014   #186846

Jodik jak bys slovne provedl ten vypis vsech ucastnenych zemi s jejich bilancnim skore ? Asi se to musi cist po bytu ale jak ty hodnoty projdu a zobrazim vysledek?

var f: file;
               

begin
Assign(f, 'zapasy');
Reset(f, 1);
while not eof(f) do begin
BlockRead(f, byte hodnota, ???); 
            

end;
end.
Danielle
Pascal › Tvorba souboru bez udani typu
30. 1. 2014   #186842

pouze testovaci sada nechtela jsem to komplikovat jsem myslela na prvnim indexy bytovy cislo na druhym indexu bytovy cislo ne ? 

Danielle
Pascal › Tvorba souboru bez udani typu
30. 1. 2014   #186828

   

type
  zaznam = record
      minuta: byte;
      prijmeni: string;
    end;
var
  f: file;
  branky: zaznam;
  kodzeme1, kodzeme2: string[3];
  skore : array[1..2] of byte;
  i: byte;
begin
Assign(f, 'zapasy');
Rewrite(f,1);
for i:=1 to 5 do begin
writeln('Zadat kod 1. zeme: ');
Readln(kodzeme1);
Blockwrite(f, kodzeme1, sizeof(kodzeme1));
writeln('Zadat kod 2. zeme: ');
Readln(kodzeme2);
Blockwrite(f, kodzeme2, sizeof(kodzeme2));
writeln('Pocet golu (domaci) 1. tym: ');
Readln(skore[1]);
writeln('Pocet golu (hoste) 2. tym: ');
Readln(skore[2]);
Blockwrite(f, skore, sizeof(skore));
writeln('Zadej minutu: ');
Readln(branky.minuta);
Blockwrite(f, branky.minuta, sizeof(branky.minuta));
writeln('Zadej prijmeni domaci: ');
Readln(branky.prijmeni);
Blockwrite(f, branky.prijmeni, length(branky.prijmeni)+1);
writeln('Zadej minut: ');
Readln(branky.minuta);
Blockwrite(f, branky.minuta, sizeof(branky.minuta));
writeln('Zadej prijmeni domaci: ');
Readln(branky.prijmeni);
Blockwrite(f, branky.prijmeni, length(branky.prijmeni)+1);
writeln('Zadej minutu: ');
readln(branky.minuta);
Blockwrite(f, branky.minuta, sizeof(branky.minuta));
writeln('Zadej prijmeni hoste: ');
readln(branky.prijmeni);
Blockwrite(f, branky.prijmeni, length(branky.prijmeni)+1);
end;
Close(f);
end.

Muze ten zapis do souboru vypadat takto ? 

Danielle
Pascal › Tvorba souboru bez udani typu
29. 1. 2014   #186808

U toho blockwrite nemusi byt 4 parametr ne ?

Danielle
Pascal › Tvorba souboru bez udani typu
29. 1. 2014   #186803

Ja vim jak se zapisuje a cte vim co dela reset a rewrite ale nevim jak zapisu takhle rozsahle informace soubor jsem si chtela vytvorit protoze si to pak muzu na necem otestovat nejsem schopna napsat okamzite priklad ktery data pouze precte... 

Danielle
Pascal › Tvorba souboru bez udani typu
29. 1. 2014   #186785

Prosim radu jak vytvorit soubor bez udani k nasledujicimu prikladu. Diky

Předpokládejte, že existuje soubor bez udani typu se zaznamy o fotbalovych utkanich. Zaznam o utkani zacina dvema trojznakovymi retezci představující kod zeme, pak dve jednobytova cela cisla predstavujici skore, za nimi pak pokracuji zaznamy o vstrelenych brankach: napred domaci, pak hoste. Zaznam o brance obsahuje minutu zapasu, kdy byla branka vstrelena, za ni pak prijmeni strelce ulozene na minimalnim prostoru. Prectete tento soubor a vypiste tabulku zucastnenych zemi s celkovym skore - poctem vstrelenych a obdrzenych branek.

Pascal › Prosim poradit se zadanim
22. 1. 2014   #186581

Diky moc to mi rozsirilo obzory :)

Pascal › Prosim poradit se zadanim
20. 1. 2014   #186495

tak cislo: 64 + 16 + 4 + 1 nebo ASCII, ale jak na to dojit ? Chapu princip tech shl a shr ale nedokazu si predstavit kam miris a hodnoty bitu si zjistuji pomoci Bitovych masek.

Pascal › Prosim poradit se zadanim
20. 1. 2014   #186492

1000 0001 shl 1 = 0000 0010 ale nevim kam tim miris

Pascal › Prosim poradit se zadanim
20. 1. 2014   #186487

Tem dvoum odstavcum + ziskani hodnoty 0. bitu rozumim dal se ztracim. Jak je mam poskladat do jednoho bajtu ? 

const BIT_0 = $01;
type pole = array[0..7] of byte;
var p: pole;
    i: byte;

begin
  for i:=0 to 7 do begin
                    p[i]:=i;
                   end;

  for i:=0 to 7 do begin
                    p[i]:=(p[i] and BIT_0);
                   end;

  for i:=0 to 7 do begin
                    write(p[i]);
                   end;

end.
Pascal › Prosim poradit se zadanim
20. 1. 2014   #186481

Nevim jak zacit ...

Pascal › Prosim poradit se zadanim
19. 1. 2014   #186461

A data by si ziskaval s textoveho souboru ? 

Pascal › Prosim poradit se zadanim
19. 1. 2014   #186459

Ja prave nevim v jakem souboru (textovem, netextovem) maji byt ty data a v jakem formatu. A kdyz tech hodnot tam bude treba 11 ne 8 jak se to bude skladat...

Pascal › Prosim poradit se zadanim
19. 1. 2014   #186456

Predpokladejte ze v souboru je ulozena rastrova graficka informace v odstinech sedi (1 byte na pixel) pricemz nejmene vyznamny bit kazdeho pixelu predstavuje jeden bit tajne zpravy. 

Prectete tento soubor, poskladejte bity tajne zpravy do bytu a vypiste tuto zpravu na standardni vystup.

Algoritmizaci a bitove operace ovladam potreboval bych mensi predstavu co se po mne chce. 

Za pripadne rady dekuji

Pascal › UTF-8 Pocet znaku
19. 1. 2014   #186455

diky bylo potreba pred EOF dat NOT a u odradkovani chybelo logicke jmeno souboru

Pascal › UTF-8 Pocet znaku
19. 1. 2014   #186450

Poradil by mi nekdo jak toto vyresit ? Dekuji za kazdou informaci

Na vstupu je text v kodovani UTF-8. Predpokladejte, ze jeden znak muze byt ulozen na jednom az ctyrech bytech. Jednobytove znaky maji v nejvyssim bitu nulu, vicebytove znaky maji v prvinm bytu na nejvyssich radech tolik jednicek, kolikabytovy znak to je (napriklad tribytovy znak ma tento tvar: 1110xxxx 10xxxxxx 10xxxxxx). Prectete tento vstup a zjistete, kolik obsahuje znaku (nikoliv bytu). 

const

    jmeno_souboru = 'text49.txt';

    Byte1_maska = $80; {1000 0000}

    Byte2_maska = $C0; {1100 0000}

    Byte3_maska = $E0; {1110 0000}

    Byte4_maska = $F0; {1111 0000}

var F: text;

    Znak: char;

    PocetZnak: integer;

function jednoBajtovyZnak(Znak: char; bitmaska: byte): boolean;

begin

    if (byte(Znak) and bitmaska) = 0 then jednoBajtovyZnak:=true

    else jednoBajtovyZnak:=false

end;

function dvojBajtovyZnak(Znak: char; bitmaska: byte): boolean;

begin

    if (byte(Znak) and bitmaska) = 192 then dvojBajtovyZnak:=true

    else dvojBajtovyZnak:=false

end;

function triBajtovyZnak(Znak: char; bitmaska: byte): boolean;

begin

    if (byte(Znak) and bitmaska) = 224 then triBajtovyZnak:=true

    else triBajtovyZnak:=false

end;

function ctyrBajtovyZnak(Znak: char; bitmaska: byte): boolean;

begin

    if (byte(Znak) and bitmaska) = 240 then ctyrBajtovyZnak:=true

    else ctyrBajtovyZnak:=false

end;

begin

PocetZnak:=0;

Assign(F, jmeno_souboru);

Reset(F);

while eof(F) do begin

    while not eoln(F) do begin

        read(F, Znak);

        if (jednoBajtovyZnak(Znak, Byte1_maska)) then

                                                 begin

                                                 inc(PocetZnak)

                                                 end

        else if (dvojBajtovyZnak(Znak, Byte2_maska)) then

                                                     begin

                                                     read(F,Znak);

                                                     inc(PocetZnak)

                                                     end

        else if (triBajtovyZnak(Znak, Byte3_maska)) then

                                                    begin

                                                    read(F,Znak);

                                                    read(F,Znak);

                                                    inc(PocetZnak)

                                                    end

        else if (ctyrBajtovyZnak(Znak, Byte4_maska)) then

                                                  begin

                                                  read(F,Znak);

                                                  read(F,Znak);

                                                  read(F,Znak);

                                                  inc(PocetZnak)

                                                  end;

    end;

readln;

end;

Close(F);

Writeln('Pocet znaku v souboru: ', PocetZnak);

end.

Zacal jsem resit tuto ulohu, ale vysledek ukazuje porad 0. Nevite kde je mozna chyba ? 

Pascal › Prosím o radu
14. 1. 2014   #186354

Nevite prosim jak si takovy beztypovy soubor muzu zobrazit (kvuli testovani)

Pascal › Problem php
11. 12. 2013   #185155

echo '<a class="btn btn-info" rel="nofollow" href="'<?=site_url("ucitel/vypisRodice/.$radek['id_uzivatel']")?>'" >Info</a>'; 

jak maji byt spravne ty uvozovky ? 

Sparky29
PHP › Codeigniter view ?
5. 12. 2013   #184813

Prosim nekoho kdo dela v Codeigniteru, jak si organizuje VIEWS kdyz ma aplikace vice uzivatelskych urovni.

Diky

Pascal › Problem lin. seznam
2. 11. 2013   #183155

Diky za tip spravil jsem to a neslo to ale nejak na to prijdu

Pascal › Domácí ukol, pascal, pomoc !…
2. 11. 2013   #183154

sorry to bylo k jinemu prispevku

Pascal › Domácí ukol, pascal, pomoc !…
2. 11. 2013   #183153

Diky za tip spravil jsem to a neslo to ale nejak na to prijdu

Pascal › Problem lin. seznam
2. 11. 2013   #183147

http://pastebin.com/phREtNCM

procedure pridejNaKonec => vklada prvky na konec seznamu

function rozsekejRetezec => nefunkcni ......

function vratPocetPrvku => vraci pocet prvku seznamu

procedura kontrola => vypisuje lin.seznam

procedura uklid => maze vsechny prvky seznamu

Nevite prosim kde muze byt chyba ve funkci rozsekejRetezec

Pascal › Domácí ukol, pascal, pomoc !…
2. 11. 2013   #183135

program blbost;

var pocethodnot: byte;

    hodnota: integer;

    maximum: integer;

    pocetmaxim: byte;

    I: byte;

begin

  maximum:=-maxint;

  pocetmaxim:=0;

  read(pocethodnot);

  for I:=1 to pocethodnot do

                            begin

                              read(hodnota);

                              if hodnota > maximum then

                                                        begin

                                                        maximum:=hodnota;

                                                        pocetmaxim:=1;

                                                        end

                             else if hodnota < maximum then

                                                        begin

                                                        end

                             else

                             begin

                              inc(pocetmaxim);

                             end

                            end;

        writeln(maximum);

        writeln(pocetmaxim);

end.

Erik
Pascal › Pomoc
18. 1. 2013   #170320

Nechť existuje konstanta N s lichou hodnotou a čtvercová matice o N×N prvcích. V této matici je zaplněno pouze 5 řad hodnot – střední řada, dvě řady nad ní a dvě řady pod ní. Navrhněte co nejúspornější strukturu pro uložení takových dat. Napište funkci, která umožňuje při zadání souřadnic X a Y původní matice přistoupit k danému prvku v navržené úsporné struktuře.

Prosím o radu, postup nechci to naprogramovat

elijax
Pascal › Četnost vstupních čísel
5. 9. 2012   #162806

Děkuji všem a především Honzc bylo to těma závorkama.

elijax
Pascal › Četnost vstupních čísel
4. 9. 2012   #162752

Priklad_16.pas(22,40)

Error: Incompatible types: got "Boolean" expected "Int64"

Toto mi to vrátilo aji po těch vašich úpravách co jste mi poradili.

elijax
Pascal › Četnost vstupních čísel
2. 9. 2012   #162618

Z úlohy je myslím jasné co mám udělat, ale nejde to zkompilovat prosím o radu. Díky moc

Program priklad_16;
uses crt;
var cislo, interval_1, interval_2, interval_3, interval_4, interval_5, interval_mimo : byte;

begin
      interval_1:=0;
      interval_2:=0;
      interval_3:=0;
      interval_4:=0;
      interval_5:=0;
      interval_mimo:=0;

      writeln('Zadej radu celych cisel ukonci záporným číslem');
      read(cislo);
      while cislo > -1 do begin
                              if cislo > -1 and cislo < 11 then  begin
                                                                      interval_1=interval_1+1;
                                                                end;
                              if cislo > 10 and cislo < 21 then  begin
                                                                      interval_2=interval_2+1;
                                                                end;
                              if cislo > 20 and cislo < 31 then  begin
                                                                      interval_3=interval_3+1;
                                                                end;                                                                 
                              if cislo > 30 and cislo < 41 then  begin
                                                                      interval_4=interval_4+1;
                                                                end;
                              if cislo > 40 and cislo < 51 then  begin
                                                                      interval_5=interval_5+1;
                                                                end;
                              if cislo > 50 and cislo < 32000 then  begin
                                                                     interval_mimo=interval_mimo+1;
                                                                end;   
                              write('Zadej dalsi cislo');
                              read(cislo);                             
                         end;
                        
      writeln('Interval 0-10 obsahoval prvku ===> ', interval_1);
      writeln('Interval 11-20 obsahoval prvku ===> ', interval_2);
      writeln('Interval 21-30 obsahoval prvku ===> ', interval_3);
      writeln('Interval 31-40 obsahoval prvku ===> ', interval_4);
      writeln('Interval 41-50 obsahoval prvku ===> ', interval_5);
      writeln('Interval nad 50 obsahoval prvku ===> ', interval_mimo);    
      repeat until keypressed;
end.
elijax
Pascal › Poradit s úlohou
1. 9. 2012   #162610

Díky moc ;)

elijax
Pascal › Poradit s úlohou
1. 9. 2012   #162597

Vstup pc je tvořen řadou celých čísel zakončenou číslem 0. Zjistěte největší délku neklesající posloupnosti, obsažené ve vstupní řadě čísel.   Představa že máme délku a porovnáme s maximem a pak zas délku vynuluju, ale nevím jak porovnávat ty dvě čísla, prosím poraďte... V této úloze nesmím použít datový typ POLE.

Program cviceni_9;
uses crt;
var delka, cislo1,cislo2, max : byte;

begin
    max:=0;
    delka:=0;
    write('Zadavej cisla ukoncis 0');
    read(cislo1, cislo2);
        while cislo1 <> 0 do
                            begin
                              if cislo2 > cislo1 then begin
                                                          delka:=delka+1
                                                          write('Zadej dalsi cisla');                      
                                                          read(cislo1, cislo2);
                                                      end
                             
                            end
                              max:=delka;
elijax
Java › Téma bakalářské práce
25. 8. 2012   #162161

#2 Tom
Zajímávé a jak byste si to představoval, protože naše práce musí mít z větší části implementaci.

elijax
Java › Téma bakalářské práce
25. 8. 2012   #162129

Napadá někoho bp téma s využitím Java SE a XML

Děkuji za případné tipy

fmx
Java › BP téma
29. 6. 2012   #159658

Děkuji za návrhy to účetnictví by určitě bylo hodný bakalářské práce, ale ten převodník nebo ty kalkulátory si myslím, že jsou málo a jsou až moc lehce proveditelné. Nemyslíte ?

fmx
Java › BP téma
28. 6. 2012   #159637

Programování

fmx
Java › BP téma
27. 6. 2012   #159594

Prosil bych o radu, vymýšlím téma na bakalářskou práci a mělo by to být naprogramovaný v javě a téma by se mělo týkat ekonomických problémů. Za jakýkoli navrhnutý nápad co by se dal udělat moc děkuji ;)

rekrash
C / C++ › Téma BP
7. 5. 2012   #157491

#5 Wikan
Ještě jednou se omlouvám za vložení příspěvku dvakrát do stejného topicu a teď k Vaší poznámce nesmíte srovnávat BP například s čistě počitačovým zaměřením například ČVUT, FIT, MUNI, ale berte v potaz, že jsou taky obory například VŠE (ekonomika, it). Pro člověka který se v tom pohybuje a nebo studuje takovou školu věřím, že je to pro něj lehké téma, ale pro člověka který nemá čistě technický zaměření to není lehké a nebo třeba není máme za sebou dost předmětů (c++, java, php, oop, perl), ale problém je si to představit trošku do praxe, protože je v tom velký rozdíl praxe a "školní příklady".

rekrash
C / C++ › Téma BP
6. 5. 2012   #157467

#1 rekrash
omlouvám se !

rekrash
C / C++ › Téma BP
6. 5. 2012   #157460

Dobrý den mám tady jedno z možných zadání na BP. Zajimalo by mě od Vás některých odborníků jak moc je to náročné a co všechno je potřeba nastudovat a umět pro tento projekt v C#. Děkuji za každou radu ;)  Můžete doporučit i jiný jazyk.

Zadání:

Navrhněte software určený k zálohování dat. Aplikace bude sloužit primárně k účelům zálohy dat ze souborového systému v komprimovaném formátu. Zálohovaná data bude možno uložit znovu na souborový systém nebo odeslat na vzdálený server pomocí FTP. Předměty zálohování budou ovlivňovat profily, které bude uživatel definovat dle svých potřeb. Aplikaci bude možné ovládat z příkazového řádku. Součástí řešení budou modely aplikace v UML.

rekrash
C / C++ › Téma BP
6. 5. 2012   #157455

Dobrý den mám tady jedno z možných zadání na BP. Zajimalo by mě od Vás některých odborníků jak moc je to náročné a co všechno je potřeba nastudovat a umět pro tento projekt v C++ za použití QT. Děkuji za každou radu ;)  Můžete doporučit i jiný jazyk.

Zadání:

Navrhněte software určený k zálohování dat. Aplikace bude sloužit primárně k účelům zálohy dat ze souborového systému v komprimovaném formátu. Zálohovaná data bude možno uložit znovu na souborový systém nebo odeslat na vzdálený server pomocí FTP. Předměty zálohování budou ovlivňovat profily, které bude uživatel definovat dle svých potřeb. Aplikaci bude možné ovládat z příkazového řádku. Součástí řešení budou modely aplikace v UML.

rekrash
Java › Téma BP
6. 5. 2012   #157454

Dobrý den mám tady jedno z možných zadání na BP. Zajimalo by mě od Vás některých odborníků jak moc je to náročné a co všechno je potřeba nastudovat a umět pro tento projekt v JAVE. Děkuji za každou radu ;)  Můžete doporučit i jiný jazyk.

Zadání:

Navrhněte software určený k zálohování dat. Aplikace bude sloužit primárně k účelům zálohy dat ze souborového systému v komprimovaném formátu. Zálohovaná data bude možno uložit znovu na souborový systém nebo odeslat na vzdálený server pomocí FTP. Předměty zálohování budou ovlivňovat profily, které bude uživatel definovat dle svých potřeb. Aplikaci bude možné ovládat z příkazového řádku. Součástí řešení budou modely aplikace v UML.

Honzik20
C / C++ › Nabídka
13. 5. 2011   #141916

Nabízím 1000 Kč za to když někdo dokáže naprogramovat textovou hru podle zadaného příběhu. Nic dlouhého. Nutnost v hlavičkových souborech. Nemusí to být ani moc ošetřený. Důležité je použít polymorfismus, dědičnost, kompozici, asociaci, agregaci. Z řídících struktur použít jenom IF, CASE. Nejlépe někdo kdo by to dokázal za den udělat. Kdo by měl zájem napiště kontakt. Příběh lokace, umístění nepřátel zbraní vymyšleno.

Luke
OS - GNU / Linux › Skripty
7. 5. 2011   #141671

Potřeboval bych pomoc s jedním skriptem a jedním findem aspon si myslim.
1. Napište skript, který vypíše posledních pět řádků ze všech textových souborů zadaných parametrem skriptu, které má uživatel právo číst.

2. Napište příkaz pro vyhledávání všech souborů v /etc, které nevlastní uživatel root, a to do úrovně dvou poddadresářů.

Prosím moc o pomoc

Adam
Inzerce › Aplikace v excelu
2. 4. 2011   #140582

Koupím nějakou pěkně udělanou aplikaci v Excelu. Nabídněte

Luke
Inzerce › Hledám spolubydlící
1. 4. 2011   #140529

Hledám spolubydlící na privát na rok 2011 / 2012 v Brně. Nejlépe studenty IT oboru

Zbyšek
Inzerce › PRODAM IT LITERATURU ( mistr…
31. 3. 2011   #140506

To zbysek : Menim cenu na 600 za vše !!!

zbysek
Inzerce › PRODAM IT LITERATURU ( mistr…
27. 3. 2011   #140384

Prodám všechny knihy na tomto obrázku nejlépe všechny dohromady za to lepší cena !

Cena za komplet 1000 ,- + poštovný podle ceníku pošty.

Knihy mají větší hodnotu viz cpress.cz

Kontakt icq: 328 781 698

Luke
Inzerce › Nabídka
26. 3. 2011   #140373

Sháním programátora který by dokázal naprogramovat zjednodušeně, jednu z těchto dvou věcí. Na odpovídající odměně se dohodneme !!!

-evidenci majetku s výpočtem daňových a účetních odpisů

-skladovou evidenci (výběr oceňování skladových zásob)

Případní zájemci ať přiloží kontakt :-)

mark
C / C++ › OOP c++ projekt
25. 3. 2011   #140356

To mark : Prosím o pomoc v implementaci PARTY děkuji :-)

mark
C / C++ › OOP c++ projekt
25. 3. 2011   #140355

Ve hře se vyskytuje Hrdina, který má vlastnosti jméno, sílu, obratnost a zdraví. Dále máme Příšeru, která má sílu a zdraví. Příšera má metodu bojuj, která řeší boj s hrdinou. Boj proběhne tak, že se vyhodnotí útok obou postav. Útok hrdiny je roven síla x obratnost, u příšery je to jen síla. Když je hrdina zraněn a jeho zdraví klesne pod padesát procent, sníží se mu obratnost a síla na polovinu a teprve po uzdravení se vrátí na počáteční stav. Zranění vypočteme tak, že zjistíme rozdíl sil. Věnujte prosím pozornost zapouzdření a plné automatizaci vnitřních podmínek. Vytvořte instance diskutovaných tříd a proveďte boj.

**Jakmile bude tato část problému fungovat. Pokuste se naimplementovat elegrantní varinatu boje příšery s partou tří hrdinu reprezentovaných třídou s odkazy na jednotlivé hrdiny. Parta bude obsahovat metody na změnu hrdiny a samozřejmě konstruktor vynucující naplnění hrdiny.**

DOSAVADNI KOD:

#include <iostream>
#include <windows.h>

using namespace std;

class Hrdina{
private:
string m_jmeno;
int m_sila;
int m_obratnost;
int m_zdravi;
int m_polZdravi;

public:

Hrdina(string jmeno, int sila, int obratnost, int zdravi){
m_jmeno=jmeno;
m_sila=sila;
m_obratnost=obratnost;
m_zdravi=zdravi;
m_polZdravi=zdravi/2;
}

void vypisStav(){
cout << "Jmeno hrdiny: " << m_jmeno << endl;
cout << "Sila: " << m_sila << endl;
cout << "Obratnost: " << m_obratnost << endl;
cout << "Zdravi: " << m_zdravi << endl;

}

int getSila(){
return m_sila;
}

int getObratnost(){
return m_obratnost;
}

string getJmeno(){
return m_jmeno;
}

int getZdravi(){
return m_zdravi;
}

int getpolZdravi(){
return m_polZdravi;
}

void nastavZdravi(int zdravi){
m_zdravi=zdravi;
};

void snizAtributy(){
m_obratnost=m_obratnost/2;
m_sila=m_sila/2;
}

void obnovAtributy(){
m_obratnost;
m_sila;
}
};



class Prisera{
private:
int m_sila;
int m_zdravi;

public:
Prisera(int sila, int zdravi){
m_sila=sila;
m_zdravi=zdravi;
}

void vypisStav(){
cout << "Sila: " << m_sila << endl;
cout << "Zdravi: " << m_zdravi << endl;
}

int getSila(){
return m_sila;
}

int getZdravi(){
return m_zdravi;
}


void Bojuj(Hrdina* hero){

do{
int utokHrdiny = hero->getSila() * hero->getObratnost();
int utokPrisery = m_sila;
int zraneni = utokHrdiny - utokPrisery;

if (zraneni>=0)

{
m_zdravi=m_zdravi - utokHrdiny;
} else

{
zraneni=zraneni * -1;
hero->nastavZdravi(hero->getZdravi()- zraneni);

}

}

while (hero->getZdravi()>0 && m_zdravi>0);


if (hero->getZdravi() < hero->getpolZdravi()){
(hero->snizAtributy());
}

if (hero->getZdravi() < 0){
hero->nastavZdravi(0);
}

if (m_zdravi<0){
m_zdravi=0;
}
}

};

class Parta{
private:
Hrdina* Hero1;
Hrdina* Hero2;
Hrdina* Hero3;
?????????????????????????????????????????????????????????

public:


void Bojuj(Prisera* Nepritel){

}
??????????????????????????????????????????????????????????,
};




int main()
{
Hrdina* Gandalf = new Hrdina("Gandalf", 600, 2, 1991);
Prisera* Balrog = new Prisera(16, 1990);

cout<< "--------------------------------"<< endl;
cout<< "--------------------------------"<< endl;
cout<< "PRED BOJEM ---------------------" <<endl;
cout<< "--------------------------------"<< endl;
cout<< "--------------------------------"<< endl;

Gandalf->vypisStav();

cout<< "--------------------------------"<< endl;
cout<< "--------------------------------"<< endl;

cout<<"Prisera"<<endl;
Balrog->vypisStav();
cout<< endl;
cout<< endl;

cout<< "--------------------------------"<< endl;
cout<< "--------------------------------"<< endl;
cout<< "VYSLEDNY BOJ -------------------"<< endl;
cout<< "--------------------------------"<< endl;
cout<< "--------------------------------"<< endl;

Balrog->Bojuj(Gandalf);
Gandalf->vypisStav();

cout<< "--------------------------------"<< endl;
cout<< "--------------------------------"<< endl;

cout<< "Prisera"<<endl;
Balrog->vypisStav();

delete Gandalf;
delete Balrog;

cout<< endl;
cout<< endl;
cout<< "--------------------------------"<< endl;
cout<< "--------------------------------"<< endl;
cout<< "--------------------------------"<< endl;
cout<< "BOJ PARTY S NEPRITELEM----------"<< endl;
cout<< "--------------------------------"<< endl;
cout<< "--------------------------------"<< endl;
cout<< "--------------------------------"<< endl;


Parta* skupina = new Parta("f",1,1,1,"d",1,1,1,"d",1,2,2);
Prisera* Sauron = new Prisera(1000,3000);

return 0;

};

 

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032024 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý