[Pascal] pierwiastki liczb naturalnych

Question

[Pascal] pierwiastki liczb naturalnych

norbi1325 10 Lis 2010 23:36 2193 1

Odpowiedz Nowy temat

#1 10 Lis 2010 23:36

norbi1325 norbi1325

Poziom 8
#1 10 Lis 2010 23:36

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 <=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 arnoldziq

Moderator Programowanie

Pomocny post #2 10 Lis 2010 23:51

Odpowiedz Nowy temat

score 0 · Accepted Answer

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.