Programme turbo pascal
Fermé
squall1611
Messages postés
13
Date d'inscription
jeudi 7 mai 2009
Statut
Membre
Dernière intervention
25 octobre 2015
-
7 mai 2009 à 23:58
joura. Messages postés 214 Date d'inscription samedi 23 janvier 2010 Statut Membre Dernière intervention 15 mai 2013 - 4 mai 2010 à 20:40
joura. Messages postés 214 Date d'inscription samedi 23 janvier 2010 Statut Membre Dernière intervention 15 mai 2013 - 4 mai 2010 à 20:40
A voir également:
- Programme turbo pascal
- Turbo pascal download - Télécharger - Édition & Programmation
- Programme demarrage windows 10 - Guide
- My pascal - Télécharger - Édition & Programmation
- Lg non programmé ✓ - Forum TV & Vidéo
- Turbo sim - Forum iPhone
4 réponses
kamelbouzgou
Messages postés
33
Date d'inscription
vendredi 8 mai 2009
Statut
Membre
Dernière intervention
21 mai 2009
7
8 mai 2009 à 14:56
8 mai 2009 à 14:56
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
squall1611
Messages postés
13
Date d'inscription
jeudi 7 mai 2009
Statut
Membre
Dernière intervention
25 octobre 2015
2
8 mai 2009 à 15:09
8 mai 2009 à 15:09
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.
squall1611
Messages postés
13
Date d'inscription
jeudi 7 mai 2009
Statut
Membre
Dernière intervention
25 octobre 2015
2
8 mai 2009 à 15:51
8 mai 2009 à 15:51
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
joura.
Messages postés
214
Date d'inscription
samedi 23 janvier 2010
Statut
Membre
Dernière intervention
15 mai 2013
11
4 mai 2010 à 20:40
4 mai 2010 à 20:40
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.
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.
