ALGO *** ALIMI ***

Ne laisser que les premières occurrences des éléments d'un tableau d'entiers

Solution :

procedure traiter(var t:tab; n:integer);
var x:string;
i,j:integer;
begin
ch := ''; {chaîne vide }
{cette boucle transforme les entiers du tableau en un tableau}
for i:=1 to n do
begin
str(t[i],x);
ch := ch + x;
end;
{suppression des répétitions}
for i:=1 to length(ch) - 1 do
…[/i]

[ Lecture complète ]

…

nom et prénom	CTRL 3	synthese 3
ILHEM CHIRCHIR	16,00	15,00
AYMEN KRAYEM	20,00	19,00
BASSEM JEDDA	20,00	19,00
HOUCEM CHAOUECH	15,00	14,00
HOSNI CHARFI	14,00	11,00
HSIN DIMASSI	19,00	16,00
KHOULOUD LIMAYEM	16,00	13,50
RABIAA CHEMLI	16,00	13,00
RIHAB BOUZOUITA	15,00	11,00
RIM ZAGUIA	15,00	14,50

[ Lecture complète ]

program exam2008;
uses wincrt;
type cand1 = record
nom,prn:string[30];
moy:real;
end;

cand2 = record
num,rang:integer;
nom,prn:string[30];
mat1,mat2,mat3:string[20];
note1,note2,note3,moy:real;
end;

FC = file of cand1;
FR = file of cand2;
tab = array[1..100] of cand2;
var f1:fc;
f2:fr;
c1,c2:cand1;
n:integer;


procedure remplirfc(var f1:fc;var n:integer);
var …[/1..100][/20][/30][/30]

[ Lecture complète ]

Pour celui qui n'a pas de contrainte, je veux posséder tous vos numéros personnels pour que je puisse appeler chacun de vous.
Mon numéro est : 20075753
Merci à tous et toutes(ou a toutes et à tous).
Votre enseignant :ALIMI

[img][/img]

program seance4;
uses wincrt;
type tab = array[1..100] of char;
var t:tab;
n,d:integer;

procedure saisie(var n,d:integer);
begin
repeat
writeln('n =');readln(n);
until (n in [6..100]);
repeat
writeln('d =');readln(d);
until (n mod d =0);
end;

procedure remplir(var t:tab);
var i:integer;
begin
for i:=1 to n do
begin
repeat
writeln('elem n: ',i);readln(t[i]);
…[/i][/6..100][/1..100]

[ Lecture complète ]

program seance2;
uses wincrt;
type tab=array [1..30] of string[6];
var ch:string;
n:integer;
t:tab;


procedure saisie(var n:integer);
begin
repeat
write('taper n');
readln(n);
until (n>=2) and (n<=30);
end;

procedure remplir(var t:tab);
var i:integer;
begin
for i:=1 to n do
repeat
write('t[',i,']');
readln(t[i]);
until (t[i]<>'');
end;

procedure traiter(t:tab);
var …[/i][/i][/',i,'][/6][/1..30]

[ Lecture complète ]

program seance3;
uses wincrt;
var ch,res:string;
procedure saisie(var ch:string);
var test:boolean;
i:integer;
begin
repeat
repeat
writeln('une chaîne=');
readln(ch);
until(length(ch) in [1..50]);
test:=true;
for i:=1 to length(ch) do
begin
if not(upcase(ch[i]) in ['A'..'Z']) then
begin
…[/'A'..'Z'][/i][/1..50]

[ Lecture complète ]