Programme turbo pascal
squall1611
Messages postés
14
Statut
Membre
-
joura. Messages postés 212 Date d'inscription Statut Membre Dernière intervention -
joura. Messages postés 212 Date d'inscription Statut Membre Dernière intervention -
Bonsoir,bon voila je débute sur turbo pascal et je dois rendre un devoir ou je dois fair un programme qui me permet de calculer une somme S=-1+2-3+4-5+6-7+... et c'est la que je sèche :s
pour les somme normal il n y a pas de problèmes mais pour celle la je vois vraiment pas comment faire ,
si quelqu'un pouvait me donner ou la solution ou la méthode pour le faire sa m'aidré beaucoup merci ^^
pour les somme normal il n y a pas de problèmes mais pour celle la je vois vraiment pas comment faire ,
si quelqu'un pouvait me donner ou la solution ou la méthode pour le faire sa m'aidré beaucoup merci ^^
Configuration: Windows XP Firefox 2.0.0.2
4 réponses
-
program somme;
t[i]:array of integer;
var s,n:integer;
begin
i:=1; //partie d'initialisation de i//
write('entrer le nombre numero:',i);
readln(n);
t[i]:=n;
s:=s+t[i];
write('la somme des nombres est:',s);
end.
si vous avez d'autre probleme contacte moi directement sur
kamellloo@yahoo.fr -
-
slt,j n c pa si ta encor besoin de la solution du problém s=-1+2-3+4-5....+n
en tts les ca le program est
program somme;
uses wincrt;{si tu utilise le turbo pascal}
var
s,n:real;
i:integer;
begin
writeln('ceci est un progamme qui calcule s=-1+2-3+4-5....+n')
writeln('entez la valeur de n');
readln(n),
s:=0
for i:=1 to n do begin
j:=i div 2;
if j=1 then s:=s-i else s:=s+i;
end;
writeln('la somme est',s:5:3);
end.
-
-
heu bon je sais pas si j'ai mal compris ou quoi mais je crois que le programme la calcule une somme de 1+2+3+4+5+6+....+N
alors que j'ai besoin d'un programme qui calcule -1+2-3+4-5 etc en gros les chifre pair sont au positif et les chiffres impaire au négatif
bon j'ai pensé a métre de somme diférente S et S' une qui calcule -1-3-5 et l'autre qui calcule 2+4+6+... puis faire la somme des 2 sommes O_o
mais d'aprés mon prof y'a une autre méthode plus simple et plus dirécte -
program somme;
var
i,som,n:integer;
begin
writeln('entez la valeur de n');
readln(n),
som:=0
for i:=1 to n do
begin
if i mod 2 = 0 then
som:=som+i
else
spm:=som- i;
end;
writeln('la somme est:'som);
end.
