Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

[Pascal] pierwiastki liczb naturalnych

norbi1325 10 Lis 2010 23:36 2193 1
  • #1 10 Lis 2010 23:36
    norbi1325
    Poziom 8  

    Dane są liczby naturalne n i k(n<=k) typu Word. Napisz program, który obliczy sumę pierwiastków kwadratowych liczb naturalnych ze zbioru {n, n+1, ..., k}.

    Code:

    void funkcja(unsigned int n, unsigned int k)
    {
     unsigned int wynik, ile,liczba;
     ile = k - n;
     for(unsigned int index; index &lt;=ile; index++)
     {
      liczba = n + index;
      wynike += sqrt(liczba)
     }
    }


    Mam tyle a potrzebuje to samo tylko w Pascalu.

    0 1
  • Pomocny post
    #2 10 Lis 2010 23:51
    arnoldziq
    Moderator Programowanie

    W Pascal-u będzie to bardzo podobne :

    Code:
    program pierwiastki;
    
    var
     n,k,x  : word;
     suma   : double;
    begin
     Write('Podaj wartosc n : ');
     readln(n);
     Write('Podaj wartosc k : ');
     readln(k);
     If n>k then
      begin
       Writeln(' Blad : n>k !');
       exit;
      end;
     suma:=0.0;
     for x:=n to k do
       suma:=suma+sqrt(x);
     writeln;
     Writeln('Suma pierwiastkow liczb od n=',n,' do k=',k,' wynosi : ',suma:15:5);
    end.

    0