Programmēšana

  • davids11
    0

    davids11 15.11.2012. 20:21 teica:

    Jus man nevariet palidzet ar paskal? es esmu iesacējs neko īpašu nemāku karo4 man ir jāizpilda 2 udevumi
    1.Uzraksti programmu, kas aprēķina izteiksmes A=b^2+√25
    2.Uzraksti programmu, kas aprēķina Tava dzimšanas dienas gada ciparu summu (1994)

    • Dawgora
      +1

      Dawgora 15.11.2012. 20:24 #

      Abi ir vienkārši, viens ir ar sqr un sqrt otrs ir string objekts kuram nosaki vnk length. Tūlīt parādīšu.

      • Dawgora
        +1

        Dawgora 15.11.2012. 20:26 #

        Ā, es ne tā sapratu tad. bet to ar var ātri izpildīt. tāpat ar string crazy.gif

    • davids11
      0

      davids11 15.11.2012. 20:31 #

      Bet es no shitajam lietam neko nesaprotu

    • davids11
      0

      davids11 15.11.2012. 20:35 #

      Un kā ir tas 2. uzdevums?

      • Dawgora
        +1

        Dawgora 15.11.2012. 20:35 #

        Program testss;
        var a,i: integer;
        b: string;

        begin
        write('Ievadiet dzimsanas datumu- ');
        readln(b);
        a:=0;
        for i:= 1 to length(b) do
        begin
        a:=a+ord(b[i])-48;
        end;
        writeln(a);
        readln;
        end.

        • Dawgora
          +1

          Dawgora 15.11.2012. 20:37 #

          Tikai nav uzlikts debug, ka nevar ievadīt burtus connie_mini_huh.gif

          Bet to var ātri mainīt ar str funkciju. 

          • davids11
            0

            davids11 15.11.2012. 20:38 #

            A kā to var izdarīt?

            • Dawgora
              +1

              Dawgora 15.11.2012. 20:38 #

              Tūlīt uztaisīšu wink_mini.gif

               

               

              program testss;
              var a,i: integer;
              b: string;

              begin
              write('Ievadiet dzimsanas datumu- ');
              readln(a);
              str(a,b);
              a:=0;
              for i:= 1 to length(b) do
              begin
              a:=a+ord(b[i])-48;
              end;
              writeln(a);
              readln;
              end.

               

               

              Eku ir crazy.gif  

               

            • davids11
              0

              davids11 15.11.2012. 20:48 #

              Milzīgs tev paldies

        • davids11
          0

          davids11 15.11.2012. 20:37 #

          Liels tev paldies smile_mini.gif , ja man bus vel kāds jautājums es varēšu griezties pie tevis?

          • Dawgora
            0

            Dawgora 15.11.2012. 20:38 #

            Mierīgi. Pascal nemaz nav tik grūts. Ja kādreiz tiksi pie javas, vot tad būs Jautri Tev biggrin_mini2.gif

    • davids11
      0

      davids11 15.11.2012. 20:35 #

      Jūs vismaz normāli varat man palīdzēt