program bac blanc2016 .pdf


Nom original: program_bac_blanc2016.pdfAuteur: SWEET

Ce document au format PDF 1.4 a été généré par Writer / LibreOffice 4.4, et a été envoyé sur fichier-pdf.fr le 11/05/2016 à 00:05, depuis l'adresse IP 41.224.x.x. La présente page de téléchargement du fichier a été vue 606 fois.
Taille du document: 25 Ko (4 pages).
Confidentialité: fichier public

Aperçu du document


program bac2016;
uses wincrt;
type tab= array[1..10] of string;
var
R:tab;
n:integer;
P:string;
{**************************************************}
procedure saisir( var n:integer; var R :Tab);
var
i:integer;
begin
repeat
write('donnez n:');
readln(n);
until n >5;

write('Donnez R[',1,']');
Readln(R[1]);
For i:=2 to n do
repeat
write('Donnez R[',i,']=');
Readln(R[i]);
until R[i]>R[i-1];
end;

{**********************************************}

function car_communs(Ch1,ch2:string):integer;
var
chc:string; p1,p2,i:integer;
begin
chc:='';
for i:=1 to length(ch1) do
begin
p1:=pos(ch1[i], ch2);
p2:=pos(ch1[i], chc);
if (p1<>0) and (p2=0) then chc:=chc+ch1[i];
end;
car_communs:=length(chc);
end;

{*************************************************}

function rech_seq(p:string;n:integer; R:Tab):boolean;
var
i:integer; B:boolean;
begin
i:=1;
repeat
B:=(R[i]=p);
if not(B)
then
i:=i+1;

until ( B) or (i>n);

rech_seq:=B;

end;

{****************************************************}

function max_cc(P:string; n:integer; R:tab):integer;
var
max,i,cc:integer;
begin
max:=0;
for i:=1 to n do
begin
cc:=car_communs(p,R[i]);
if cc>max then max:=cc;
max_cc:=max;
end;

end;
{*********************************************************}

procedure resultats_recherche(var p:string; n:integer; R:Tab);
var
nb,i:integer;ch:string;
begin

write('Prenom à chercher :'); readln(p);
if rech_seq(p,n,R) then writeln('Existe :',p)
else begin
nb:=0;
for i:=1 to n do
begin
Ch:=R[i];
if ( Ch[1]=P[1])and(car_communs(p,R[i])=max_cc(P,n,R))
then write( R[i],', ')
else nb:=nb+1;
end;

if (nb=n) then writeln('introuvable');
end;
end;

{******************************************************************}

{programme principal}
begin
saisir(n,R);
resultats_recherche(P,n,R);
end.


program_bac_blanc2016.pdf - page 1/4


program_bac_blanc2016.pdf - page 2/4


program_bac_blanc2016.pdf - page 3/4

program_bac_blanc2016.pdf - page 4/4


Télécharger le fichier (PDF)

program_bac_blanc2016.pdf (PDF, 25 Ko)

Télécharger
Formats alternatifs: ZIP



Documents similaires


program bac blanc2016
program bac blanc2016 1
sousprogrammes utiles
sousprogrammes utiles
fiche4 ex sous programme
bac2016  enonce motpasse

Sur le même sujet..