hg S’enregistrer Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie

Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie  forum informatique Tunisie Index du Forum

hg Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Rechercher Rechercher Membres Membres Groupes Groupes Profil Profil Se connecter pour vérifier ses messages privés Messages Privés Connexion Connexion


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum, vous devez
 
inscrire sur notre forum a partir d'ici
 
  NB :
Les membres ''zéro messages'' seront supprimés automatiquement après un nombre de jours donné !!!!
             
   
 
  
forum d'aide informatique : internet, réseau, programmation informatique ...
Somme de blocs de nombres d'un tableau
 
 
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯)
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
KARIMOS
Administrateur

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 710
Masculin
Point(s): 5 479
Moyenne de points: 0

Posté le: Dim 3 Oct - 08:30 (2010)    Sujet du message: Somme de blocs de nombres d'un tableau Répondre en citant

PublicitéSupprimer les publicités ?
ENONCE

Ecrire un programme qui, à partir d'un tableau T formé de N entiers strictement postifs, distincts deux à deux un nouveau tableau TS, de la manière suivante:

TS[1] = T[1]+...+T[K]
TS[2] = T[2]+...+T[K+1]
.
.
.

tel que K est un entiers positif vérifiant 1 < K < N.

EXEMPLE

N=6; K=4
T = [2,3,1,2,4,7]
TS = [(2+3+1+2), (3+1+2+4), (1+2+4+7)]
Soit TS = [8, 9, 14]



SOLUTION
program som_bloc;

uses wincrt;

type
  TAB = array[1..100] of integer;


procedure SAISIE(var N,K: integer);
begin
  repeat
    write('N = ');
    readln(N);
  until (N in [4..99]);

  repeat
    write('K = ');
    readln(K);
  until (K<N) and (K>1);
end;


function Existe(x:integer; T:TAB; n: integer):boolean;
var
  i: integer;
begin

  i := 1;

  While ((i<=n) and (T[i]<>X)) do
      i := i + 1;

  if ((n=0) or (T[i]<>X)) then
      Existe := false
  else
      Existe := True;

end;


procedure REMPLIR(var T:TAB; N:integer);
var
  i,X: integer;
begin

  for i:=1 to N do
  begin
    repeat
      write('T[',i,']=');
      readln(X);
    until (Existe(X,T,i-1) = false);
    T[i] := X;
  end;

end;


procedure AFFICHER(T:TAB;N:integer);
var
  i:integer;
begin

  for i:=1 to N do
      writeln('T[',i,']=',T[i]);

end;

Procedure Construire(var TS:TAB; T:TAB; N,K: integer);
begin

  for i:=1 to N-K+1 do

      .....

end;


{Programme principal}

VAR

  T,TS: TAB;

  N,K: integer;

BEGIN


  SAISIE(N,K);

  REMPLIR(T,N);

  CONSTRUIRE(TS,T,N,K);

  AFFICHER(TS,(N-K+1));

END.


 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 19:33 (2016)    Sujet du message: Somme de blocs de nombres d'un tableau

 
Revenir en haut
Montrer les messages depuis:   
bg bd
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯) Toutes les heures sont au format GMT + 1 Heure
 
Page 1 sur 1

 
Sauter vers:  
Index | créer forum gratuit | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation