Anonymní profil AliOm – Programujte.com

Dobrý den, začínám se učit Javascript a jsem opravdový začátečník. Jako úlohu mám vypočet rozdíl dnů mezi dvěma datumy. 
Data jsou zadány pomocí textových polí ve formuláři.

Tohle je něco co se mi podařilo sesmolit (možná je to i pěkná blbost) , ale nefunguje to. Byl bych vděčný za každou radu, děkuji. 

 <script type="text/javascript">
  
  rok = (1*document.forms[0].rok.value);
  mesic = (1*document.forms[0].mesic.value);
  den = (1*document.forms[0].den.value);
  krok = (1*document.forms[0].krok.value);
  kmesic = (1*document.forms[0].kmesic.value);
  kden = (1*document.forms[0].kden.value);
  
      function DalsiDen(){
    if ( (mesic == 12) && (den==31) ){
        den = 1;
    mesic =1;
    rok= rok + 1;
    } else {
    if ( ( (mesic==1) || (mesic==3) || (mesic==5) || (mesic==7) || (mesic==8) || (mesic==10) ) && (den==31) ){
        den = den 1;
    mesic = mesic +1;
    } else{
        if ( ( (mesic==4) || (mesic==6) || (mesic==9) || (mesic==11)) && (den==30) ) {
    den = 1;
        mesic = mesic + 1;
        } else{ 
    if ((mesic==2)  && (den==28)){
        den = 1;
    mesic = mesic + 1;
    } else{
    if (den < 31) {           
    den= den + 1; 
     }
    } 
                }
          }
        } 
      } 
  
  function formVypocet(){
        var pocet=0
        while (den == kden) && (mesic == kmesic) && (rok == krok){
        DalsiDen();
        pocet+=1; 
        document.forms[0].vysledek.value = pocet;
        }
        ;
          
            return false;
        };
    
  </script>

*jenom poznamenávám že, nemůžu používat funkce javascriptu, které se týkají datumů

Dobře, tak se pokus mi to vysvětlit. Zatím tu píšeš, jen jakej jsem blbec, ale žádná konstruktivní rada. Promiň, že se programovat teprve učím.

Ale jak prave definovat pomoci nejakyho prikazu co je slovo, abych to mohl cist jak ty rikas po slovech.

Myslim si ze zadani chapu dobre, akorat nevim jakym vhodnym postupem ho zpracovat do zdrojaku. Proto se obracim na vas, ze mi pomuzete. 

while not eof(vstup) do
begin
readln(vstup,radek);
P:=Pos('  ',radek);
while P > 0 do
begin
Delete(radek,P,1);
P:=Pos('  ',radek);
end;
mezery:=radek;
end;

begin
read(vstup,znak);
inc(pocitadlo);
if (pocitadlo <= N) then write(vystup,znak)
else begin writeln(vystup,znak);pocitadlo:=0; end;

end;   

potrebuji ale najit zpusob, jak to ulozit opet do toho vstupniho a nebo vystupniho.. 

Function mezery(s:String):string;
    var P:byte;
    begin
      P:=Pos('  ',s);
      while P > 0 do
    	begin
    	  Delete(s,P,1);
    	  P:=Pos('  ',s);
    	end;
      mezery:=s;
    end;   

Takhle bych je odstranil pomoci toho ze je budu nacitat ze Stringu. Ale nevim jestli tohle udelat, po a nebo uz predtim nez srovnam tu sirku.

Dobře, díky. To odstranění těch mezer bych měl provádět asi ještě před těmito příkazy, že? 

Ale vubec nevim ,pomoci jakych prikazu toho docilit.. Mam nacist ty radky, jako string?

while not eof(vstup) do
begin
read(vstup,znak);
inc(pocitadlo);
if (pocitadlo <= N) then write(vystup,znak)
else writeln;

end;    

..a jak do toho zakomponovat to vynulovani pocitadla?

else if (pocitadlo >= N) then begin writeln; pocitadlo:=0; end;

Jo, uz chapu. A s tim zbytkem bys mi dokazal nejak poradit?

btw. vytvoril jsem novy soubor a zdrojak jenom zkopiroval a najednou to funguje, tak nevim co bylo predtim za problem. 

K programu, kdyz to udelam tak jak je napsano ve zdrojaku, tak se mi to provede pouze do skonceni toho pocitadla, dal uz to nepokracuje, mam pouzit nejaky jiny cyklus? 

Jenže když to zadám právě bez tohoto  

writeln('Zadej maximalni pocet znaku na radku: ');
readln(N);

a místo toho zadám do zdrojáku to N natvrdo

N:=10;

Tak se program normálně provede. Takze otevreni asi uspesne je, nebo ne?

Takto se mi ale zkopiruje pouze prvnich N(kdyz N zadam natvrdo jako konstantu, protoze stale nevim jak vyresit to ze ji ma uzivatel zadat na vstupu) znaku a dal program nepokracuje.

Dobrý den zadáním je: Ve vstupním textovém souboru je uložen text s řádky dlouhými až 100 znaků. Mezi každými dvěma slovy na řádku je jedna nebo více mezer, na začátku i na konci řádku být mezery mohou, ale nemusí. V souboru mohou být i prázdné řádky nebo řádky obsahující pouze mezery. Napište program, který vytvoří kopii tohoto souboru tak, aby řádky výstupního souboru byly dlouhé nejvýše N znaků (N je údaj zadaný na vstupu, menší než 100). Slova přitom nerozdělujte – pokud se na výsledný N-znakový řádek nevejde celé slovo, nechte řádek kratší a další slovo již přesuňte na začátek následujícího řádku. Na každý řádek výstupního souboru umístěte co nejvíce slov, kolik se do stanoveného limitu N znaků vejde, odstraňte při tom nadbytečné mezery na začátku řádku i mezi slovy (mezi každými dvěma slovy nechte vždy jenom jednu mezeru). Upravený text zapište do výstupního textového souboru.

Opět takový můj marný pokus něco vytvořit:  

program kopie;

var vstup,vystup:text;
    N,pocitadlo:integer;
    znak:char;


begin

assign (vstup,'vstup.txt');
reset (vstup);
assign (vystup,'vystup.txt');
rewrite (vystup);

writeln('Zadej maximalni pocet znaku na radku: ');
readln(N);

pocitadlo:=0;

while not eof(vstup) do
begin

read(vstup,znak);
inc(pocitadlo);
if pocitadlo <= N then write(vystup,znak)
else write(vystup,#13);

end;

close(vstup);
close(vystup);


end.
  

Při takovém to zápisu, mi to vyvolává RunTimeError(103) na příkazu  

writeln('Zadej maximalni pocet znaku na radku: ');

A dál si myslim že tam bude spousta dalších blbostí.. Děkuji za rady.

No vidíš, o tom ani nevim. Diky:)

..a děkuji za pomoc celkově:)

Jakou nápovědu myslíš? 

Uz to vidim. A jde nejaky zpusobem mazat do indexu a nikoliv od indexu?

Zkusil jsem tedy nějak takhle  

while Pos(slovo,radek) <> 0 do
begin
inc(pocitadlo);
x:=Pos(slovo,radek);
delete (radek,x+1,length(radek)-x);

end;  

Je lepší ten předchozí řetězec smazat, nebo vykopírovat ten následující, nejspíš je to asi jedno ne? 

v řetězci slovo jsem také provedl zvětšení písmen

writeln('Zadej hledane slovo: ');
readln(slovo);

for i:=1 to length(slovo) do
slovo[i]:= UpCase (slovo[i]);
                                   

Ale program mi stále na výstupu oznamuje v počítadle špatné hodnoty..

ztroskotal jsem na necem takovem

for i:=1 to length(radek)-1 do
begin
if Pos(slovo,radek) then inc(pocitadlo);
x:= Pos(slovo,radek);
radek:= copy (radek,x+1,length(radek)-x);

end;  

Vim ze takhle napsane je to nefunkcni, ale vubec s tim prikazem POS neumim zachazet.

Tudiz potrebuji to, aby kdyz mnou zadane SLOVO se naslo v retezci RADEK, pomoci ktereho projizdim cely textovy soubor aby se zvysilo pocitadlo.

x:= Pos(slovo,radek);
radek:= copy (radek,x+1,length(radek)-x);

Tohle by melo podle meho slouzit k tomu, aby se ve vyhledavani projizdelo od posledniho vyskytu tohoto slova. Prokopiruje se ten retezec, od konce toho slovo(x+1) a vlozi se retezce RADEK. 

Teď koukám že pro jakýkoliv zadaný vstup to vypisuje 5, ikdyž tam není ani jednou:X

jojo, to UpCase bylo timhle. Diky moc:) 

..jinak program mi vraci na vystup v pocitadle cislovku pet, pritom vyskyt slova je 10. Nekdo nejaky rady prosimvas? :)

program vyskyt;

var T:text;
    soubor,radek:string;
    slovo:string[50];
    pocitadlo,i,x:integer;



begin
writeln('Zadej jmenosouboru: ');
readln(soubor);
assign(T,soubor);
reset(T);

writeln('Zadej slovo: ');
readln(slovo);


pocitadlo:=0;
while not eof(T) do
begin
readln(T,radek);
radek:=radek+ ' ';

for i:=1 to length(radek) do
radek[i]:= UpCase radek[i];

for i:=1 to length(radek)-1 do
x:= Pos(slovo,radek);
radek:= copy (radek,x+1,length(radek)-x);
inc(pocitadlo);


end;



writeln('Pocet vyskytu tohoto slova je: ',pocitadlo);
close(T);

readln;
end.
          

Dobry den, potreboval bych poradit. V prikazu UpCase mi to hazi chybu ,,vyskyt.pas(37,12) Error: Wrong number of parameters specified for call to "upCase" " .. vubec v tom nevidim co je spatne, diky za radu.

A s tim hledanim slovo pomoci POS si taky nejsem moc jistej. Diky za jakykoliv postreh.

jo, to asi jo:) kazdopadne uz jsem na celou ulohu prisel jinym postupem. Zjistil jsem ze jakysi prikaz upcase zmeni vsechna pismena na velka;)

Dobrý den, mám problém s tímto 

program HEX;

type Hex = string [100];
var A,B : Hex;
var ADEC,BDEC : LONGINT;
var I:integer;


begin
writeln ('Zadej prvni cislo  v HEXADECIMALNI soustave:');
readln(A);
ADEC:=0;
for I:= 1 to length(A) do
begin
if (A[I]>='0') and(A[I]<='9') then
ADEC:=ADEC*16 + ord(A[I])-ord('0')
else
ADEC:=ADEC*16 + ord(A[I])- (ord('A') or ord('a')) + 10;
end;
     

Když zadám dvě úplně stejná čísla v Hexadecimální soustavě, akorát jedno např. obsahuje všechny velká písmena a druhé obsahuje např. kombinaci malých a velkých písmen. Při převodu mi to vyhodí úplně jiná čísla. Nějaká rada?

Druhá věc, mám porovnat dvě čísla v HEX(které z nich je větší, případně si jsou rovny), jenže nevím do jakého typu uložit to převedené číslo z HEX do DEC. LONGINT je malý a když jsem to zkoušel uložit do dalšího Stringu vyhodilo to na mně spustu chyb.

btw. a ta funkce funguje i podle toho meho predchoziho navrhu:)

Díky za postřehy, přesně takto jsem to vyřešil. :)

Ale každopádně díky za snahu. Na řešení už jsem přišel, měl jsem napsaný nesmysly v tom for cyklu.

Taky jsem se o těchto funkcích dočetl, ale vůbec jsem se je zatím neučili, tudíž je nejspíš nemáme používat. 

#2 miHan
ta funkce je jen ta prvni cast, ta druha je cast je uz ta problematicka cast toho programu kam pomoci te funkce chci neco vyhodnotit..

....

function Prestupny (Rok: integer): boolean;
begin
Prestupny:= ((Rok mod 4 =0) and (Rok mod 100<>0)) or (Rok mod 400=0);
end;

begin
Writeln ('Zadej prvni datum:');
read (Den1,Mesic1,Rok1);
Writeln ('Zadej druhe datum:');
read (Den2,Mesic2,Rok2);

PocetDni:=0;
for i:= Rok1 to Rok2 do
if Prestupny(i) then PocetDni:=(Rok2-Rok1)*366
else PocetDni:=(Rok2-Rok1)*365;

....         

Mohu se zeptat, kde mam chybu v teto funkci? a proc se pocita spatne?

#13 JoDiK
Diky za pomoc, sice jsem na konecne reseni uplne neprisel ale treba dostanu aspon nejake body

program posl;

const MaxN= 10000;
var posloupnost: array [1..MaxN] of Integer;
var i,n: integer;

function Opakovani (X: integer): boolean;
var cislo, predchozi_hodnoty: integer;
begin
cislo := X;
predchozi_hodnoty := posloupnost;
opakovani :=true;

if cislo=predchozi_hodnoty then opakovani:=false;

end;


begin

writeln ('Zadej pocet cisel, ktere bude posloupnost obsahovat:');
readln (n);
writeln ('Zadej cisla posloupnosti:');
for i:= 1 to n  do
read (posloupnost[i]);
for i:= 1 to n do
if opakovani(posloupnost[i]) then write (posloupnost[i],' ');

end.
         

opravdu nevim jak nacist to pole do ty funkce..

...a ještě bych potřeboval rozluštit tuto chybu - Error: Incompatible types: got "Array[1..10000] Of LongInt" expected "LongInt"

spíš mě napadlo, že si udělám ještě jedno pole a do toho budu ukládet pouze ty hodnoty co chci vypsat, ale nevím jakým způsobem se dají porovnat dvě pole, jestli obsahuji nejakou hodnotu nebo ne.. 

#6 sleepy
vubec nevim jak neco podobnyho napsat v Pascali

#4 sleepy
O takové metodě jsem ještě neslyšel, takže vůbec nevím jak funguje. Ale zřejmě se nějak zakomponuje do té funkce, ano?

#2 miHan 

program posl;

const MaxN= 10000;
var posloupnost: array [1..MaxN] of integer;
var i,n: integer;

function Opakovani (X: integer): boolean;
var cislo, predchozi: integer;
begin
cislo := X;
predchozi :=0;
opakovani :=true;

if cislo=predchozi then opakovani:=false;
cislo := predchozi;

end;


begin

writeln ('Zadej pocet cisel, ktere bude posloupnost obsahovat:');
readln (n);
writeln ('Zadej cisla posloupnosti:');
for i:= 1 to n  do
read (posloupnost[i]);
for i:= 1 to n do
if opakovani(posloupnost[i]) then write (posloupnost[i],' ');

end.

Tady je to co sem zatim stvoril, ale potrebuju vychytat aby si ta funkce pamatovala hodnoty z toho pole.

Jdou do funkce nejak dosadit ty hodnoty z pole? Opet se s poli setkavam uplne poprve.

Je dán počet hodnot posloupnosti, poté posloupnost čísel a1,...an. Čísla posloupnosti na vstupu nejsou nijak uspořádána, hodnoty se mohou opakovat, na výstupu májí být vypsána čísla této posloupnosti ale žádné z nich v output nesmí být dvakrát. Na pořádí nezáleží.

Např. pro vstup

            4

     8  7  7 4

bude správným výsledkem  posloupnost hodnot

     8 7 4

Potřebuji pomoc, jestli s k takovému to úkolu hodí použití funkce čí procedury. A jestli používat pole. Díky za rady:)

Akorát ještě dořešit možná to, když člověk zadá to první číslo větší než to druhý. To by potom neudělalo vůbec nic.

Myslim, ze to je dokonce i konecne reseni. 

program delitelnostcisla;
var  A, B, i: integer;

function Spravne (N: integer): boolean;
var cislo, cifra: integer;
begin
cislo := N;
spravne :=true;
while cislo > 0 do
      begin cifra := cislo mod 10;
            cislo := cislo div 10;

if cifra=0 then spravne:=false
else if N mod cifra <>0  then spravne:=false;

end;
end;

begin
 writeln ('Zadej dve cisla v jehoz rozmezi se dozvis spravna cisla:');
 readln (a);
 readln (b);
 for I:= a to b do
                if spravne(i) then
                write(i);


end.

Ted jsem na tom nejak takhle..

#9 KIIV
takže před cyklus while nastavit

spravne:= true?

Nebo ted nejak nechapu..

#7 KIIV
jooo, už chápu ten příkaz modulo, nejdřív jsem ho nějak nepochopil. 

#5 KIIV
Takže smazat proměnnou dělit a pak

if cislo mod cifra = (nevim co dat sem) then ...

                                                            else...

#3 KIIV 

function Spravne (N: integer): boolean;
var cislo, cifra,delit: integer;
begin
cislo := N;
while cislo > 0 do
      begin cifra := cislo mod 10;
            cislo := cislo div 10;
            delit := cislo mod cifra;
            end;
if delit*cifra=cislo then spravne:=true
                     else spravne:=false;
end;

Takze nejak takhle? a jak pokracovat dal?

Už teď vidím že vlastně jakékoliv číslo by bylo správné protože by se to vždycky rovnalo. Úplně jsem se do toho zamotal a nic mě nenapadá.

Dobrý den, mám za úkol napsat funkci která má zjistit jestli dané číslo N je dělitelné všemi jeho ciframi.

Paté za pomoci této funkce zjistit která čísla v intervalu od čísla A do čísla B(čísla jsou zadaná na vstupu) jsou právě takové, že jdou vydělit všemi svými ciframi.

program delitelnostcisla;
var  A, B: integer;

function Spravne (N: integer): boolean;
var cislo, cifra,delit: integer;
begin
cislo := N;
while cislo > 0 do
      begin cifra := cislo mod 10;
            cislo := cislo div 10;
            delit := cislo div cifra;
if delit*cifra=cislo then spravne:=true
                     else spravne:=false;
end;

begin



end.

S funkcemi jsem setkal poprvé, takže tady je něco co jsem zkusil ale nevím zda to bude fungovat přesně tak jak má. Potřeboval bych poradit, jak dále pokračovat. 

Jo a ještě mi furt kompilátor cpe že na konci programu mám mít za end středník a nikoliv tečku, to dělá proč? :D

Děkuji za jakýkoliv nápad a pomoc.

#19 KIIV
takže else d :=1;  ..jo, uz to funguje!

Diky moc za obetovany cas a dobre rady! :)

begin
writeln('Zadejte cisla');
read(n);
d :=1;
max :=1;

repeat
      read(x);
           if x<>0 then
      begin
           if x=n then
                  d :=d+1
                  else d :=d


      end;

           if d>max then max :=d;

           n :=x;

       until x=0;

writeln ('Maximalni usek stejnych cisel v posloupnosti je:', max);

end.

Takze ted jsem na tom takhle :D ..ale furt to vyhazuje nejaky blbosti a uplne nesmyslny cisla. 

#15 kejta
Prohodit to?

max :=d;  takhle?

#14 KIIV
Chapu ze to menim tim d :=m; , ale nevim cim to nahradit:) proste nechat tam to porovnani a pak co?

To s tim ,,c" si mi prece pred par prispevky poradil;)

A jakym zpusobem to mam tedy porovnat abych si neprepsal ,,d" ?

Takze nejak takhle? 

begin
writeln('Zadejte cisla');
read(n);
d :=1;
m :=1;

repeat
      read(x);
      if x<>0 then
      begin
      if x=n then
      d :=d+1

else if x<>n then
             d :=d+0


      end;

      if d>m then d :=m
      else m :=m;

      c :=n;
      until x=0 ;

writeln ('Maximalni usek je:', m);

ale furt to nefunguje spravne.. :D

To maximum si mam take definovat pred cyklem? jako m := d? 

Ale stale nechapu jakym zpusobem porovnat pak to d s maximem aby se mi do te delky nepricetlo vzdy kdyz jsou dve a vice cisel za sebou stejna.

Diky moc, uz to jakztakz mam. Jeste mi to ale furt vyhazuje vzdy o jedno cislo mensi vysledek, nez je ten maximalni usek.

Mam do ,,d" načíst základní hodnotu 1? Nebo na to jdu špatně?

Takze pod tohle  

if x<>0 then

read (n);

begin

if x=n ... ?

To mi prave taky moc nefunguje.

#2 JoDiK
jo, to ja vim že tohle bude problém.. ale nevim jak právě definovat tu předchozí hodnotu, jsem opravdový začátečník a teprve se učím:)

program maximalniusek;
var  d, x: integer;

begin
d :=0;
writeln('Zadejte cisla posloupnosti (tuto posloupnost ukoncite cislem NULA):');
repeat
      read(x);
      if x<>0 then
      begin
      if x=x then
      d :=d+1

else d :=d+0


      end;
      until x=0 ;

writeln (d);

end.

Potřebuji z čísel zadaných v posloupnosti (zakončené nulou), zjistit délku maximálního souvislého úseku stejných čísel .

Vím, že to bude asi easy. Potřeboval bych trochu popostrčit.

Děkuji, už jsem na to přišel. díky za pomoc:)

Dobry den, mam problem. V dane posloupnosti N mam urcit maximum a pocet jeho vyskytu.

Nalezt maximum jsem jakztakz zvladl, ale jak do toho zakombinovat nalezeni poctu, kolikrat se tam maximum nachazi uz nikoliv, mohl by mi nekdo poradit?

program posloupnost;
var  n, x, M, i: integer;

begin
writeln ('Zadej pocet cisel, ktere bude posloupnost obsahovat:');
readln (n);
writeln ('Zadej cisla posloupnosti:');
M := -MaxInt;
  for i:=1 to n do
  begin
  read (x);
  if x>m then m:=x;
  end;
writeln ('Maximum posloupnosti je cislo:', M);
end.

Dekuji, za jakoukoliv pomoc.