exo sur les tableau pour les debutentsFermé

Question

ce programme c'est pour s'exercer sur les tableaux
ecrit par aom2009
         

program tab_de_2dimension;
uses crt;
                     {itroduction }
const lig=60;col=60;
type tab=array[1..lig,1..col]of integer;
     tot=array[1..lig]of integer;
var t:tab; totlig,totcol:tot;
    l,c,s,pos,i,j,min,max,x,k,v:integer;
    test:boolean;
begin                 {developement}
clrscr;
    write('  donner le nombre de lignes:  ');readln(l);
    write('  donner le nombre de colonne: ');readln(c);writeln;
    s:=0;
    for i:=1 to l do
    begin
      for j:=1 to c do
      begin
          write('donner T[',i,',',j,']= ');readln(t[i,j]);
      end;
    end;clrscr;  writeln('  la matrice est : ');
    for i:=1 to l do
    begin
       for j:=1 to c do
       begin
         write('  ',t[i,j]);
         s:=s+t[i,j];
       end;writeln;
    end;
    writeln(' la somme des elts de t est :',s);
    writeln(' le tableau TOTLIG est: ');
    for i:=1 to l do
    begin
      s:=0;
      for j:=1 to c do
      begin
         s:=s+t[i,j];
      end;    write(' ',s);
    end;    writeln;
      write(' le tableau TOTCOL est: ');
    for i:=1 to c do
    begin
      s:=0;
      for j:=1 to l do
      begin
         s:=s+t[j,i];
      end;           write(' ',s);
    end;writeln;
    write(' donner l"elts a chercher: ');readln(x); writeln;
    k:=0;v:=0;
    for i:=1 to l do
    begin
      for j:=1 to c do
      begin
         if(x=t[i,j])then
         begin
           test:=true; k:=i;v:=j;
         end;
      end;
    end;
    if(test=true)then
    begin
      write(' ',x,' appartient a T et sa position est: (',k,',',v,')');
    end
    else
    begin
        write(' ',x,' n"appartint pas a T ');
    end;writeln;
    min:=t[1,1];
    for i:=1 to l do
    begin
      for j:=1 to c do
      begin
         if(min>t[i,j])then
         begin
           min:=t[i,j]; k:=i; v:=j;
         end;
      end;
    end; write(' l"elt minimum de T est: ',min,' et a la position: (',k,',',v,')');    writeln;
    max:=t[1,1];
    for i:=1 to l do
    begin
      for j:=1 to c do
      begin
        if(max

Caribensila · Answer

Nicolas___ · Answer

MDR

cs_cantador · Answer

excellent cari !!
j'en pleure..

cantador

PCPT · Answer

super..... c'est beau, c'est drôle, et c'est surtout avec ce genre de réponses à répétition que vous allez pourrir delphifr au complet !!

çà ne tombe pas "sur toi" cari, c'est un message général
j'ai supprimé la réponse de nico (concombre) sur un autre topic (ou plutôt j'ai supprimé le topic complet), j'interviens ici parce qu'il y a plus de participants

une bonne équipe, tant mieux
compétants en plus, encore tant mieux
mais (et je vous en ai déjà fait part, en masse ou en MP) çà devient vraiment des participations non plus "pour GAGAs", mais "de GAGAs"

un nouveau arrive, il tombe que sur ce genre de "participation", certain qu'il delete son compte le jour même...
vous étiez les doublures dans premiers baisers et autres seriesZ d'AB-prod ?

eh les gars du nerf !!

un ptit MP à un admin dispo, ou un message en bal admin pour demander la suppression, perdez pas votre (et notre) temps à jouer à çà, vous allez finir à 10 sur le site, vous pourrez vous autocongratuler mais çà ne durera pas bien longtemps 

j'y mets un peu la forme (encore que) parce que de premier abord il n'y a rien de bien grave et que ce n'est pas ici le meilleur (ou pire) exemple, mais prenez un peu de recule..., vous vous coupez l'herbe sous le pied

et en plus, inconsciemment sans doute, çà joue sur le moral de tout lecteur, même occasionnel

vous voulez rire? faites-vous des chatouilles
faut arrêter la mode bébé !!!!

clos (et évitez encore les débats houleux et autres soutiens à prout prout machin truc, jusque là ces discussions "publiques" ne finissent jamais!! bien sûr raisonnablement 
dispo en MP
)



désolé de ne pas finir sur une phrase du
genre "mais y'a pas de problème blabla", attachez vous au fond, pas à
la forme, et par pitié, pour vous surtout, faite un truc !!! arrêtez
cette course avec les téléteubies, ils sont hors concours

Exo sur les tableau pour les debutents

4 réponses

Discussions similaires