Je dois ecrire un programme est l'énoncé est :
'Ecrire un programme qui permet à l'utilisateur de donner 20 fois de suite un nombre x et qui détermine la valeur du nombre le plus grand et la valeur du nombre le plus petit.'
 
J'ai fait plein d'essais mais j'y arrive pas, voici le dernier :
 
program exino3;
var x, nbp, nbg, i : integer;
begin
for i:=1 to 20 do
begin
writeln ('donne un chiffre de ton choix');
readln (x);
if x>x then nbg :=x;
if x<x then nbp :=x;
end;
writeln ('le nombre le plus grand est :' ,nbg);
write ('et le nombre le plus petit est :' ,nbp);
end.
 
Merci de m'aider, j'ai un contrôle continu à 8H

L'algo est super simple (c un vrai classique de la programmation niveau débutant)
 
Je fais plus de pascal depuis la seconde, donc je te donne l'algo à la bonne franquette (pas loin du java), tu gères après :  
 

 
PS : la soluce est facile, et ct trouvable par toi même...et secundo, c pas trop toléré ici de filer les soluces...ca va que c la nuit

argh
 
je comprends rien
j'ai commencé la programmation à deux heures du mat
 
Là j'essaie de programmer un suite arithmétique

t'a rien compris à mon exemple ?????????
 
dans tt les cas, l'idée c d'utiliser une ou des variables tampon, qui stockent temporairement l'état actuel du calcul...

argh
 
Je vais essayer de comprendre, mais là y a trop de termes inconnus pour moi.
 
En tout cas c'est de la balle la programmation, je découvre ça là et je kiffe bien. Je viens de programmer un programme qui permet de calculer les différents termes d'une suite arithmétique allant de 1 à 10 en demandant à l'utilisateur la raison et le premier terme de la suite. Je suis tellement content que je poste mon programme :
program exino4;
var a, k, i, U : integer;
begin
writeln ('donne le premier terme de la suite Ui');
readln (a);
writeln ('donne la raison de la suite Ui');
readln (k);
U:=a;
for i:=1 to 10 do
begin
U:=k+U;
writeln ('U',i, '=' ,U)
end;
end.
 
Par contre le prochain a l'air balaise :
'Ecrire un programme en Pascal qui permet de donner 5 fois de suite une note et son coefficient afin de définir un relevé de notes et de calculer la moyenne pondérée de ces résultats.'
 
Argh, je sais même pas ce que ça veut dire moyenne pondérée

argh
 
J'arrive pas à calculer une moyenne
Pour le dernier ennoncé j'ai fait :
program exino5;
var note, note2, note3, note4, note5,
coeff, coeff2, coeff3, coeff4, coeff5, m : integer;
begin
writeln ('donne ta note');
readln (note);
writeln ('donne le coefficient de cette note');
readln (coeff);
writeln ('donne ta note');
readln (note2);
writeln ('donne le coefficient de cette note');
readln (coeff2);
writeln ('donne ta note');
readln (note3);
writeln ('donne le coefficient de cette note');
readln (coeff3);
writeln ('donne ta note');
readln (note4);
writeln ('donne le coefficient de cette note');
readln (coeff4);
writeln ('donne ta note');
readln (note5);
writeln ('donne le coefficient de cette note');
readln (coeff5);
writeln ('Note 1 =' ,note);
writeln ('Note 2 =' ,note2);
writeln ('Note 3 =' ,note3);
writeln ('Note 4 =' ,note4);
writeln ('Note 5 =' ,note5);
m:=(note*coeff)+(note2*coeff2)+(note3*coeff3)+(note4*coeff4)+(note5*coeff5)div
(coeff+coeff2+coeff3+coeff4+coeff5);
writeln ('ta moyenne vaut' ,m)
end.
 
Pkoi ça marche pas ?

Bon Bon j'ai test ta méthode mais j'arrive pas
 
j'arrive pas
 
Les valeurs max que j'ai mises sont les max qu'accepte integer :
 
 
program exino3;
var x, nbp, nbg, i : integer;
begin
nbg:=-32767;
nbp:=32768;
for i:=1 to 20 do
begin
writeln ('donne un chiffre de ton choix');
readln (x);
if x>nbg then nbg:=x;
if x<nbp then nbp:=x;
end;
writeln ('le nombre le plus grand est :' ,nbg);
write ('et le nombre le plus petit est :' ,nbp);
end.
 

 
EDIT : en fait m'a gourré ça marche

ne vaut-il pas mieux assigner min=max="1ere valeur entrée par l'utilisateur" ?  
comme ça s'il rentre plus grand ou plus petit, ça mets à jour, sinon c'est que la première valeur entrée était effectivement le min ou le max.

oui bien sur, mais j'ai fait simple...

Moi ce qui me surprend, c'est qu'avec un titre pareil, il y ait des réponses...

 
 
Eh ouais ça te surprend que des gens puissent être cools

boulay

program exino3;
var x, Max, Min, i : integer;
begin
for i:=1 to 20 do
begin
  writeln ('donne un chiffre de ton choix');
  readln (x);
  if i=1 then
  begin
    Max:= x;
    Min:= x;
  end
  else
  begin
    if x>Max then  
      Max :=x;
    if x<Min then  
      Min :=x;
  end;
end;
writeln ('le nombre le plus grand est :' ,Max);
write ('et le nombre le plus petit est :' ,Min);
end.
         Bonne chance...

program exino5;
type Coef = 1..15;
var note, note2, note3, note4, note5, m: real;
    coeff, coeff2, coeff3, coeff4, coeff5: Coef;
 
begin
writeln ('donne ta note');
readln (note);
writeln ('donne le coefficient de cette note');
readln (coeff);
writeln ('donne ta note');
readln (note2);
writeln ('donne le coefficient de cette note');
readln (coeff2);
writeln ('donne ta note');
readln (note3);
writeln ('donne le coefficient de cette note');
readln (coeff3);
writeln ('donne ta note');
readln (note4);
writeln ('donne le coefficient de cette note');
readln (coeff4);
writeln ('donne ta note');
readln (note5);
writeln ('donne le coefficient de cette note');
readln (coeff5);
writeln ('Note 1 =' ,note);
writeln ('Note 2 =' ,note2);
writeln ('Note 3 =' ,note3);
writeln ('Note 4 =' ,note4);
writeln ('Note 5 =' ,note5);
 m:= ( (note*coeff)+(note2*coeff2)+(note3*coeff3)+(note4*coeff4)+ (note5*coeff5) ) /  
(coeff+coeff2+coeff3+coeff4+coeff5);
 
  writeln ('ta moyenne vaut' ,m)
end.
 
Astuse:  Le (/, div) et préoritaire que (*, +, -)
  Bonne chance...

voici un programme simple que je peus te proposer en turbo pascal.
program valeur;
uses crt;
var i,j,nb,pg,pp:integer;
function max(x:integer;var m:integer:integer;
  begin
    if x>m then
       m:=x
    else
       m:=m;
  end;
function min(x:integer;var m:integer):integer;
  begin
    if x<m then
       m:=x
    else
       m:=m;
  end;
begin
  clrscr;
  for k:=1 to 20 do
    begin
      pg:=1;
      pp:=0;
      write("nb=" );
      readln(nb);
      i:max(nb,pg);
      i:=pg;
      j:=min(nb,pp);
      j:=pp;
    end;
  writeln("le plus petit est ",pp);
  writeln("le plus grand est ",pg);
  readln
end.  
   
 
 

dans le programme que je viens d'envoyer j'ai oublie de declarer k dans var en dessous de uses

t'es pas mort toi ?

Superbe déterrage de topic "résolution d'exo"

voici un programme simple que je peus te proposer en turbo pascal.
program valeur;
uses crt;
var k,i,j,nb,pg,pp:integer;
function max(x:integer;var m:integer:integer;
  begin
    if x>m then
       m:=x
    else
       m:=m;
  end;
function min(x:integer;var m:integer):integer;
  begin
    if x<m then
       m:=x
    else
       m:=m;
  end;
begin
  clrscr;
  for k:=1 to 20 do
    begin
      pg:=1;
      pp:=0;
      write("nb=" );
      readln(nb);
      i:max(nb,pg);
      i:=pg;
      j:=min(nb,pp);
      j:=pp;
    end;
  writeln("le plus petit est ",pp);
  writeln("le plus grand est ",pg);
  readln
end.  
   
 
 

voici un programme simple que je peus te proposer en turbo pascal
program valeur;
uses crt;
var k,i,j,nb,pg,pp:integer;
function max(x:integer;var m:integer:integer;
  begin
    if x>m then
       m:=x
    else
       m:=m;
  end;
function min(x:integer;var m:integer):integer;
  begin
    if x<m then
       m:=x
    else
       m:=m;
  end;
begin
  clrscr;
  for k:=1 to 20 do
    begin
      pg:=1;
      pp:=0;
      write("nb=" );
      readln(nb);
      i:max(nb,pg);
      i:=pg;
      j:=min(nb,pp);
      j:=pp;
    end;
  writeln("le plus petit est ",pp);
  writeln("le plus grand est ",pg);
  readln
end.

Sinon, j'ai un programme simple que je peus te proposer en turbo pascal.
program valeur;
uses crt;
var k,i,j,nb,pg,pp:integer;
function max(x:integer;var m:integer:integer;
  begin
    if x>m then
       m:=x
    else
       m:=m;
  end;
function min(x:integer;var m:integer):integer;
  begin
    if x<m then
       m:=x
    else
       m:=m;
  end;
begin
  clrscr;
  for k:=1 to 20 do
    begin
      pg:=1;
      pp:=0;
      write("nb=" );
      readln(nb);
      i:max(nb,pg);
      i:=pg;
      j:=min(nb,pp);
      j:=pp;
    end;
  writeln("le plus petit est ",pp);
  writeln("le plus grand est ",pg);
  readln
end.

ah ouais je suis un peu barjot j'ai pas eu le temps de voir que cet exo est du troisieme age

Spa grave, ça donne l'occasion de dire des conneries avant que les modos le ferment

on peut mettre un petit goatse ?

un fecaljapan ? une brosse à dents ?

brosse à dents à la limite

hum, tu es sûr ?

ouais

c'est à dire que la photo de la brosse à dents est hébergé sur un serveur qui dont le domaine commence par anal.asiatx ...
 
autant la brosse à dents est tout à fait classique, autant le piedestal est coup à se faire banir par un modo aigri.