Duší celkem: 899
Přítomných duší: 2
V krčmách: 1

      Mezi 10 světy
      ...aneb vše o počítačích

      Nový příspěvek:
      		Vyhledávání:

      Obnovit <<  54  >>
       
      (uživatel smazán)  Small_killer
      		  19:23:11  1. prosince 2011
      Corwin: ctrl+c a ctrl+v nestačí?

       
        Corwin
      		  19:18:52  1. prosince 2011
      Zdrojak do pastebin.com ti rikam

       
      (uživatel smazán)  Small_killer
      		  19:16:37  1. prosince 2011
      Že by to begin fungovalo?:-D

      Teď to plyve toto:
      26 / 1 pocetz~1.pas
      Fatal: Syntax error, ; expected but UNTIL found

       
        Meaple
      		  19:07:24  1. prosince 2011
      Dyyyyk. More Ďy do kňyhovny. :D

       
      (uživatel smazán)  Small_killer
      		  19:04:02  1. prosince 2011
      Corwin:
      1) úpis:-D
      2) sorry, jj pascal
      3) i tak by to nemnělo vyhazovat chyb které vyhazuje:
      pocetz~1.pas(24,15) Error: Illegal qualifier
      pocetz~1.pas(26,11) Error: Incompatible type for arg no. 1: Got SHORTSTRING, expected FILE
      pocetz~1.pas(31) Fatal: There were 2 errors compiling module, stopping
      4) není problém, ale nic víc z toho nevyčteš.

      trochu jsem to upravil jelikož na to mstále pracuji, avšak stále to vyhazuje stejné chyby

      unit POCETZNAKU;

      interface
      uses crt;

      function pocet(jms: String):word;

      implementation

      function pocet(jms: String):word;
      var pomoc:word;
      radek:String;
      ss:TEXT;
      znak:string;
      i:byte;

      begin
      assign(ss,jms);
      readln(znak);
      pomoc:=0;
      repeat begin
      readln(jms,radek);
      for i:=1 to 65 do
      If znak=radek.i then
      pomoc:=pomoc+1;
      until EOF(jms)=true end;
      pocet:=pomoc;
      close(ss);
      end;
      end.

       
        Corwin
      		  18:53:00  1. prosince 2011
      1) knihovny
      2) na vkladani zdrojaku pouzivej pastebin a uvadej o jakej jazyk se jedna (tohle je predpokladam Pascal )
      3) za repeatem nemas begin
      4) nebylo by od veci sem hodit uplne cely zdrojak.

       
      (uživatel smazán)  Small_killer
      		  18:33:29  1. prosince 2011
      Poradil by někdo, co musím udělat aby mi to fungovalo?´
      Já se v tomto váźně nevyznám. (Toto je obsah mé vlastní knyhovny, texťák ZNAKY k této funkci existuje, ale má to být s tím propojené až v hlavním modulu. Aspoň myslím, vzhledem k tomu, že takovéto generování mi šlo.)


      function pocet(jms: String):word;
      var pomoc:word;
      radek:String;
      ss:TEXT;
      znak:string;
      i:byte;

      begin
      assign(ss,jms);
      writeln('Zadejte hledany znak');
      readln(znak);
      pomoc:=0;
      repeat
      readln(jms,radek);
      for i:=1 to 65 do
      If znak=radek.i then
      pomoc:=pomoc+1;
      until EOF(jms)=true;
      pocet:=pomoc
      end;
      end.

       
        Perun.hromovladce
      		  10:57:54  1. prosince 2011
      No prostě máš kartu v piči tak si kup za dvě stovky novou.

       
         Nathlan
      		  20:14:10  30. listopadu 2011
      Hmm, tak to je divný... a zkus tam změnit při novém formátování FAT32 na NTFS. Nic víc mě nenapadá, musel bych to mít u sebe :)

       
        Paul
      		  18:09:16  30. listopadu 2011
      Vyzkoušel jsem to na starším počítači s XP, a na notebooku. Nepomohlo, takže je nejspíš problém s tím formátem, ale to mi hlásí, že se to nemohlo dokončit.:(

      [1]  [2]  [3]  [4]  [5]  [6]  [7]  [8]  [9]  [10] 
      [11]  [12]  [13]  [14]  [15]  [16]  [17]  [18]  [19]  [20] 
      [21]  [22]  [23]  [24]  [25]  [26]  [27]  [28]  [29]  [30] 
      [31]  [32]  [33]  [34]  [35]  [36]  [37]  [38]  [39]  [40] 
      [41]  [42]  [43]  [44]  [45]  [46]  [47]  [48]  [49]  [50] 
      [51]  [52]  [53]  [54]  [55]  [56]  [57]  [58]  [59]  [60] 
      [61]  [62]  [63]  [64]  [65]  [66]  [67]  [68]  [69]  [70] 
      [71]  [72]  [73]  [74]  [75]  [76]  [77]  [78]  [79]  [80] 
      [81]  [82]  [83]  [84]  [85]  [86]  [87]  [88]  [89]  [90] 
      [91]  [92]  [93]  [94]  [95]  [96]  [97]  [98]  [99]  [100] 
      [101]  [102]  [103]  [104]  [105]  [106]  [107]  [108]  [109]  [110] 
      [111]  [112]  [113]  [114]  [115]  [116]  [117]  [118]  [119]  [120] 
      [121]  [122]  [123]  [124]  [125]  [126]  [127]  [128] 

      DrD je registrovaný produkt firmy Altar. Copyright © 2005-2024 DarkAge Team
      Přepnout na mobilní verzi webu.
      Vytištěno ze serveru DarkAge (www.darkage.cz).