SkullBox Forum  |  Development  |  Programe facute de userii forumului  |  Topic: S=pow(a,k)+pow(b,k)+pow(c,k)+pow(d,k)

Buna tuturor.as dori sa va adresez o problema...Elaborati un program care calculeaza suma
S=a+b+c+d la puterea k (fiecare la puterea k).Utilizati un subprogram iterativ si al doilea recursiv

asa 

@Flama, ce vrea ea e cu subprograme (functii, mai exact), una care sa foloseasca o bucla, si alta care sa se autoapeleze.

@Cristinika : aici nu se rezolva temele de casa. Arata-ne ce ai facut si daca nu merge, te vom corecta.

Versiunea cu bucla in subprogram(cred ca la asta te refereai).Programul e scris in DevC++

Bine am inteles dar ce facem cu a b c ...il pun la pow
 

Nu folosesti functia pow nici la iterativ, nici la recursiv. Iterativ este cum ti-a aratat HGhitza mai sus, iar la cel recursiv stabilesti valoarea sumei pentru cel mai mic k, iar apoi autoapelezi functia, pornind de la un k, dat de la tastatura. Functia o sa apeleze valoarea k-1, care la randul ei apeleaza pe k-2 si tot asa, pana ajunge la k minim (care este 0 sau 1, dupa cum iti cere problema), Valoarea functiei in k minim este folosita pentru a determina valoarea functiei in urmatorul k si tot asa, pana la k-ul dat de la tastatura. O sa revin mai tarziu si cu programul.

si nu stie nimeni cum se face asa program in pascal?
Program suma;
var
Function sumaputere(a,b,c,d,k: integer)longint;
var apr,bpr,cpr,dpr,i,s:integer;
begin
i:=1;
apr:=a;
bpr:=b;
cpr:=c;
 

 
 
 

uses crt;
function Step(x,y:integer):longint;{функция для нахождения целой степени числа}
var p,i:longint;
begin
p:=1;
for i:=1 to y do
p:=p*x;{умножаем к раз число на сабя}
Step:=p;
end;
var a,b,c,d,k,sum:longint;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
write('d=');readln(d);
write('k=');readln(k);
sum:=Step(a,k)+Step(b,k)+Step(c,k)+Step(d,k);
write('sum=',sum);
readln
end.
Va merge?

uses crt;
type vector=array[1..20] of integer;
var a:vector;
    n,i,sum:integer;
Procedure Proba(m:integer;x:vector; var s:integer);
var j:integer;
begin;
s:=0;
for j:=1 to m do
if x[j]>0 then s:=s+x[j];
end;
begin
clrscr;
randomize;
write('n=');readln(n);
for i:=1 to n do
  begin
    a:=random(10)-3;
    write(a,' ');
  end;
writeln;
Proba(n,a,sum); {}
write('Summa=',sum);
readln
end.

va merge acest program?

am vazut ca ai postat si la conturi de mail skullbox .. te rog CITESTE cu atentie regulile acestui forum .. daca nu te conformezi, vei lua ban.. asa ca ai grija 

de ce sa ia ban?

tu in pascal voiai? de ce nu ai spus de la inceput? eu voiam sa-l fac in C++

Macar stii cum arata ? (a1+a2+...+an) la putrea k dpdv matematic ? Cum o sa stii sa faci asta matematic, transpunerea recursiva / iterativa va fi mult mai osoara.

@Teal: nu a cerut S^k.