Programme turbo pascal
squall1611
Messages postés
13
Date d'inscription
Statut
Membre
Dernière intervention
-
joura. Messages postés 214 Date d'inscription Statut Membre Dernière intervention -
joura. Messages postés 214 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 ^^
A voir également:
- Programme turbo pascal
- Turbo pascal - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Dev pascal - Télécharger - Édition & Programmation
- Programme demarrage windows - Guide
- Message programmé iphone - Guide
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
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
Merci beaucoup ^_^ je vais l'ésséyé
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.
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
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
