Ričards miniblogs

  • Ričards
    0

    Ričards 15.05.2013. 01:03

    [Pascal]
    Kur šeit ir kāda kļūda..? Kāpēc 1000*50=-15536, bet 1000*20=20000 -_-?

    Uses CRT;
    var c,l,s:integer;
    label 1;
    Begin
    ClrScr;

    1:
    writeln('Cash=');
    readln(c);

    l:=c*1000;
    writeln('Laws=',l);

    readln;
    goto 1;
    end.

    • Ričards
      0

      Ričards 15.05.2013. 01:07 #

      Ūn, kad izmainu l:= formulu, tad pat run nevar.

    • S J
      0

      S J 15.05.2013. 01:12 #

      Tapēc, ka standarta intam paskālā maksimālā vērtība ir 65535 sākot no 0, bet tavā gadijumā tas ir signed. Nomaini uz int64 (neesmu drošs, es paskālu nemāku).
      Un kādēļ dosbox?

      • S J
        0

        S J 15.05.2013. 01:14 #

        65536* (no mob. versijas nevar labot)

      • Ričards
        0

        Ričards 15.05.2013. 01:18 #

        Dosbox tāpēc, ka man nesanāk uz 64 bitu w7 palaist pascal :l
        Un paldies, pamēģināšu!

        • S J
          0

          S J 15.05.2013. 01:21 #

          http://freepascal.org
          neizskatās, ka tā ir programma priekš skolas, kādēļ neraksti kādā sakarīgākā valodā? crazy.gif

        • Ričards
          0

          Ričards 15.05.2013. 01:24 #

          Es no garlaicības gribēju kko sataisīt uz pascal, kamēr stāvu rsā @varrock bank un pārdodu law runes. Gribēju kalkulatoru ar pascal aizvietot.

        • Ričards
          0

          Ričards 15.05.2013. 01:27 #

          Freepascal.org neviens dl links nestrādā hihi.gif

    • Ričards
      0

      Ričards 15.05.2013. 03:04 #

      Pr0hax0rz. Paldies @S J, sanāca.

      Rādīt spoileri