Cod lizibil comprimat + comentarii?

#include<stdio.h>
#include<stdlib.h>
int* creer_tab_dyn(int taille)
/*
:entree taille : entier
:pre-cond : taille > 0
:post-cond : renvoie l'adresse d'un emplacement mémoire alloué dans le tas pouvant contenir taille int
*/
{
int *tab=calloc(taille,sizeof(int));
return tab;
}

void remplir(int* tab, int taille)
/*
:entrée tab : pointeur vers le premier élément d'un tableau d'int
:entrée taille : int
:pré-condition : le tableau repéré par tab contient taille éléments
:postcondition : remplit le tableau repéré par tab avec des valeurs générées aléatoirement comprises entre 0 et 90
*/
{
int i;
for(i=0;i<taille;i++) *(tab+i)=rand()%100;
printf("\n");
}

void afficher(int* tab, int taille)
/*
:entrée tab : pointeur vers le premier élément d'un tableau d'int
:entrée taille : int
:pré-condition : le tableau repéré par tab contient taille éléments
:postcondition : affiche les éléments du tableau repéré par tab
*/
{
int i;
for(i=0;i<taille;i++) printf("%d ",*(tab+i));
printf("\n");
}

void trier(int *tab, int taille)
/*
:entrée tab : pointeur vers le premier élément d'un tableau d'int
:entrée taille : int
:pré-condition : le tableau repéré par tab contient taille éléments
:postcondition : trie les éléments du tableau repéré par tab
*/
{
	 int i,j,min,var;
	 for(i=0;i<taille-1;i++)
	 {
		 min=i;
		 for(j=i+1;j<taille;j++)
		 {
			 if(tab[j]<tab[min]) min=j;
		 }
		 var=tab[i];
		 tab[i]=tab[min];
		 tab[min]=var;
	 }
}

int * inserer(int *tab, int *a_taille, int x)
/*
:entrée tab : pointeur vers le premier élément d'un tableau d'int
:entrée taille : int
:entrée x : int
:pré-condition : le tableau repéré par tab contient taille éléments et est trié
:postcondition : agrandit le tableau repéré par tab et insère la valeur x en s'assurant que le tableau demeure trié et retourne l'adresse du nouveau tableau
*/
{
	 int i,*tab2;
	 tab2=realloc(tab,(*a_taille+1)*sizeof(int));
	 if(tab2==NULL) printf("Erreur allocation\n");
	 else
	 {
	 tab=tab2;
	 i=*a_taille-1;
	 while(i>=0 && tab[i]> x)
		 {
		 tab[i+1]=tab[i];
		 i--;
		 }
	 tab[i+1]=x;
	 *a_taille=*a_taille+1;
	 }
return tab;
}

int * supprimer(int *tab, int* taille, int x)
/*
:entrée tab : pointeur vers le premier élément d'un tableau d'int
:entrée taille : int
:entrée x : int
:pré-condition : le tableau repéré par tab contient taille éléments
:postcondition : supprime toutes les occurrences de x dans le tableau repéré par tab, modifie sa taille en conséquence et retourne l'adresse du nouveau tableau
*/
{
	 int n_t=*taille, i=0,*tab2,j;
	 while(i<n_t)
	 {
	 if(tab[i]==x)
		 {
		 for(j=i;j<n_t-1;j++) tab[j]=tab[j+1];
		 n_t--;
		 }
	 else i++;
	 }
	 *taille=n_t;
	 tab2=realloc(tab,(n_t)*sizeof(int));
	 if(tab2==NULL) printf("Erreur allocation\n");
	 else tab=tab2;

return tab;
}

int derniere_occ(int *tab, int taille, int x)
/*
:entrée tab : pointeur vers le premier élément d'un tableau d'int
:entrée taille : int
:entrée x : int
:pré-condition : le tableau repéré par tab contient taille éléments
:postcondition : retourne l'indice de la dernière occurrence de x dans le tableau repéré par tab
*/
{
	 int i;
	 for(i=taille-1;i>=0;i--)
	 {
	 if(tab[i]==x) return i;
	 }
return -1; //si x ne se trouve pas dans le tableau
}

int main()
{
int *tablo, taille=1, choix=1;
printf("Donner la taille du tableau : ");
scanf("%d",&taille);
tablo=creer_tab_dyn(taille);
if(tablo==NULL) printf("Erreur allocation\n");
else
{
while(choix!=0)
{
printf(" 1. Remplir tableau\n 2. Afficher tableau\n 3. Trier tableau\n 4. Insertion dans le tableau\n 5. Supprimer du tableau\n 6. Chercher derniere occurrence\n 0. Sortir\n Choix : ");
scanf("%d",&choix);
switch(choix)
{
	 case 1 : remplir(tablo,taille); break;
	 case 2 : afficher(tablo,taille); break;
	 case 3 : trier(tablo, taille); break;
	 case 4 : {
				 int x;
				 printf("Donner la valeur a inserer dans le tableau : ");
				 scanf("%d",&x);
				 tablo=inserer(tablo,&taille,x);
				 break;
			 }
	 case 5 : {
				 int x;
				 printf("Donner la valeur a supprimer du tableau : ");
				 scanf("%d",&x);
				 tablo=supprimer(tablo,&taille,x);
				 break;
			 }
	 case 6 : {
				 int x;
				 printf("Donner la valeur a trouver dans le tableau : ");
				 scanf("%d",&x);
				 printf("indice derniere occurrence : %d\n",derniere_occ(tablo,taille,x));
				 break;
			 }
	 case 0 : printf("fin\n");
}
}
free(tablo);
}

return 0;
}

package editeur;
import java.awt.*;
import java.awt.event.*;
import javax.swing.*;
import java.io.*;
// FileOutputStream serializ
//FileInputStream deserealiz
//ObjectImputStream

public class Editor extends JFrame implements ActionListener, MouseListener{
private JTextArea tA; // comme JTexteField

private JMenuItem MI_NEW, MI_OPEN, MI_SAVE, MI_SAVEAS, MI_EXIT;

private JMenu M_EDIT;

private JMenuItem MI_CUT, MI_COPY, MI_PASTE, MI_ERASE, MI_SLCTALL;

private JMenuItem MI_CMT, MI_CR, MI_ABOUT;a

private File fichierCourant = null; // un fisier
public Editor() {
	 super("Éditeur");
	
	 tA = new JTextArea();	
	 JMenuBar barre = new JMenuBar();
	
	 // Menu 1: Fichier
	 JMenu M_FILE = new JMenu("Fichier");
	 MI_NEW = new JMenuItem("Nouveau");
	 MI_NEW.addActionListener(this);
	 //pe bucati se poate testa listenerul
	
	 M_FILE.add(MI_NEW);
	 MI_OPEN = new JMenuItem("Ouvrir...");
	 MI_OPEN.addActionListener( this);
	
	
	 M_FILE.add(MI_OPEN);
	 MI_SAVE = new JMenuItem("Enregistrer");
	 MI_SAVE.addActionListener(this);
	
	
	 M_FILE.add(MI_SAVE);
	 MI_SAVEAS = new JMenuItem("Enregistrer sous...");
	 MI_SAVEAS.addActionListener(this);
	
	 M_FILE.add(MI_SAVEAS);
	 M_FILE.addSeparator();
	
	 MI_EXIT = new JMenuItem("Quitter");
	 MI_EXIT.addActionListener(this);
	 M_FILE.add(MI_EXIT);
	 barre.add(M_FILE);
	
	
	 /* M_EDIT.addMouseListener(
	 new MouseAdapter() {//classe anonyme
		 public void mousePressed(MouseEvent e) {
			 updateMenuOptions();
		 }
		 }
	 );*/
	 // Menu 2: Edition
	 M_EDIT = new JMenu("Édition");
	 M_EDIT.addMouseListener(this);
	
	 MI_CUT = new JMenuItem("Couper");
	 MI_CUT.addActionListener(this);
	 M_EDIT.add(MI_CUT);
	
	 MI_COPY = new JMenuItem("Copier");
	 MI_COPY.addActionListener(this);
	 M_EDIT.add(MI_COPY);
	 MI_PASTE = new JMenuItem("Coller");
	 MI_PASTE.addActionListener(this);
	 M_EDIT.add(MI_PASTE);
	 MI_ERASE = new JMenuItem("Effacer");
	 MI_ERASE.addActionListener(this);
	 M_EDIT.add(MI_ERASE);
	 M_EDIT.addSeparator();
	 MI_SLCTALL = new JMenuItem("Selectionner tout");
	 MI_SLCTALL.addActionListener(this);
	 M_EDIT.add(MI_SLCTALL);
	
	 barre.add(M_EDIT); // la sfarsit pune totul sus
	 // Menu 3 : À Propos
	 JMenu M_INFO = new JMenu("À Propos");
	 MI_CMT = new JMenuItem("Commentaires");
	 MI_CMT.addActionListener(this);
	 M_INFO.add(MI_CMT);
	 MI_CR = new JMenuItem("Droit d'auteur");
	 MI_CR.addActionListener(this);
	 M_INFO.add(MI_CR);
	 MI_ABOUT = new JMenuItem("Version");
	 this.setJMenuBar(barre);
	 M_INFO.add(MI_ABOUT);
	
	 barre.add(M_INFO);
	 this.setJMenuBar(barre);
	 JScrollPane jsp = new JScrollPane(tA);
	 Container c = getContentPane();
	 c.setLayout( new BorderLayout() );
	 c.add(jsp, BorderLayout.CENTER);
	 setSize(600, 500);
	 setLocation(200, 100);
	 setVisible(true);
	 setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
}


private void updateMenuOptions() {
	 if (tA.getSelectedText() == null) {
		 MI_CUT.setEnabled(false);
		 MI_COPY.setEnabled(false);
		 MI_ERASE.setEnabled(false);
	 }
	 else {
		 MI_CUT.setEnabled(true);
		 MI_COPY.setEnabled(true);
		 MI_ERASE.setEnabled(true);
	 }
}
private void nouveauFichier() {
	 fichierCourant = null;
	 tA.setText("");
}
private void ouvrirFichier() {
	 JFileChooser jfc = new JFileChooser();
	 int resultat = jfc.showOpenDialog(this);
	 if (resultat == JFileChooser.APPROVE_OPTION) {
		 fichierCourant = jfc.getSelectedFile();
		 lireFichier(fichierCourant);
	 }
	 else {
		 fichierCourant = null;
	 }
}
private void enregistrerFichier() {
	 if (fichierCourant == null) {
		 afficheMessage("Aucun emplacement n'a été spécifié, un fichier nommé \"Nouveau Document Text.txt\" \nsera créé dans le répertoire du projet.", "Information");
		 ecrireFichier( new File("Nouveau Document Texte.txt") );
	 }
	 else
		 ecrireFichier(fichierCourant);
}
private void enregistrerFichierSous() { // il salveaza
	 JFileChooser jfc = new JFileChooser();
	 jfc.setDialogTitle("Enregistrer sous...");
	 jfc.setApproveButtonText("Enregistrer");

	 int resultat = jfc.showOpenDialog(this);
	 if (resultat == JFileChooser.APPROVE_OPTION)
		 ecrireFichier(jfc.getSelectedFile());
}
private void lireFichier(File fichier) {
	 String ligne;
	 StringBuffer buf = new StringBuffer();
	 try {
		 tA.setText("");
		 BufferedReader in = new BufferedReader(
			 new FileReader(fichier) );
		 while ((ligne = in.readLine()) != null)
		 buf.append(ligne + (char) '\n');
		 tA.setText(buf.toString());
	 }
	
	 catch(FileNotFoundException e) {}
	 catch(IOException e) {}
}
private void ecrireFichier(File fichier) {
	 try {
		 BufferedWriter out = new BufferedWriter(
			 new FileWriter(fichier) );
		 out.write(tA.getText());
		 out.close();
	 }
	 catch(FileNotFoundException e) {}
	 catch(IOException e) {}
}



private void afficheMessage(String message, String titre) {
	 JOptionPane.showMessageDialog(null, message,titre, JOptionPane.INFORMATION_MESSAGE);
										 // in prima mesaj,a doua titlul
}
public String getComments() {
	 return "Éditeur de texte java rudimentaire";
}

public String getCR() {
	 return "auteur: FB \ndate : 05/11/2017";
}

public String getAbout() {
	 return "Version 1.0";
}
	 public void actionPerformed(ActionEvent e) {
		 if (MI_NEW == e.getSource())
		 nouveauFichier();
		
		 if (MI_OPEN == e.getSource())
		 ouvrirFichier();
		
		 if (MI_SAVE == e.getSource())
		 enregistrerFichier();
		
		 if (MI_SAVEAS == e.getSource())
		 enregistrerFichierSous();
		
		 if (MI_EXIT == e.getSource())
		 //System.exit(0);
			 dispose();
		
		 if (M_EDIT == e.getSource())
		 updateMenuOptions();
		
		 if ( "Couper" == e.getActionCommand() )
		 tA.cut();
		
		 if ( "Copier" == e.getActionCommand() )
		 tA.copy();
		
		 if ( "Coller" == e.getActionCommand() )
		 tA.paste();
		
		 if ( "Effacer" == e.getActionCommand() )
		 tA.replaceSelection("");
		
		 if ( "Selectionner tout" == e.getActionCommand() )
			 tA.selectAll();
							
		 if (MI_CMT == e.getSource())
		 afficheMessage(getComments(), "Commentaires");
		 // cu 2 intrari
		
		 if (MI_CR == e.getSource())
		 afficheMessage(getCR(), "Droit d'auteur");
		
		 if (MI_ABOUT == e.getSource())
		 afficheMessage(getAbout(), "À Propos");
	 }
	 public void mousePressed(MouseEvent e) {
			 updateMenuOptions();
		 }
	 //inconvénient implémentation d'une interface (toutes les méthodes doivent être redéfinies) ==>classe anonyme
	 public void mouseReleased(MouseEvent ev) {}
	 public void mouseEntered(MouseEvent ev) {}
	 public void mouseExited(MouseEvent ev) {}
	 public void mouseClicked(MouseEvent ev){}
}

unit A_Tiers;
interface
uses DLQuery, DlQueryRead,
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
M_Arbre, Db, StdCtrls, Buttons, ExtCtrls, ComCtrls, Menus,
gfgltree, ImgList;
type
TArbrT = class(TMArbre)
Panel5: TPanel;
CB_TS: TCheckBox;
procedure FormShow(Sender: TObject);
protected
procedure InitRequete; override;
public
TypeAff: string;
end;
var
ArbrT: TArbreTiers;
ArbreClient: TArbrT;
ArbreFournisseur: TArbrT;
implementation
{$R *.DFM}
uses GenDef, ConnxD, U_DataBase, Miscel, U_Customize;
// Requête SQL (virtual)
procedure TArbreTiers.InitRequete;
begin
with Qry, Qry.SQL do begin
SQLConnection := CurrentConnexion.SQLConnection;
Clear;
Add('select R1, R1LIB, R2, R2LIB, R3, R3LIB, R4, R4LIB, RECKEY');
if TypeAff='CLIENTS' then begin
	 Add('from V_T_ARB_CLIENTI t with(nolock)');
	 Caption:= 'Alege un client';
end else if TypeAff='FOURNIZORI' then begin
	 Add('from V_T_ARBORE_FOURNIZOR t with(nolock)');
	 Caption:= 'Alege un furnizor un fournisseur';
end else Add('from V_T_ARBORE t with(nolock)');
if ModeNomade then begin
	 Add('inner join DLS_UTI_REPL_TIERS ut with(nolock)');
	 Add('	 on ut.CDGRP=t.CDGRP and ut.CITRS=t.CITRS and ut.ORIGINE is null and ut.CDUTIL='''+CU+'''');
end;
if not CB_TSoc.Checked then
	 Add('LEFT OUTER JOIN TIERS_SOC s on s.CDGRP=t.CDGRP and s.CITRS=t.CITRS');
Add('where t.CDGRP = ''' + GrpFic + '''');
Add('and t.TACTIF=-1');
if TypeAff='CLIENTS' then Add('and t.TYPTRS=''C''')
else if TypeAff='FOURN' then Add('and t.TYPTRS=''F''');
if not CB_TSoc.Checked then
	 Add('and (s.CDSOC is null or s.CDSOC='''+Soc+''')');
Add('order by R1LIB, R2LIB, R3LIB, R4, R4LIB');
end;
FillTreeMode:=ftmColumns;
end;
procedure TArbrT.FormShow(Sender: TObject);
begin
SetC(C_ToSoc,CurrentConnexion.GetParam('XXXXXX','XXXXXX'));
inherited;
end;
end.