The King Vip
نجم المنتدى
- إنضم
- 23 أفريل 2009
- المشاركات
- 2.190
- مستوى التفاعل
- 5.630
Problème
Saisir un mot m ( lettre seulement )
rendre m en majuscule
saisir une phrase ph
rendre ph en majuscule
afficher la nombre de répétition du mot dans la phrase
exemple :
mot : bon
phrase : bonjour je veut acheter du bonbon , je veut une bonne quantité
le nombre de répétition est : 4
Mon travail
je veut la corriger des fautes et la solution complète
MERCI
Saisir un mot m ( lettre seulement )
rendre m en majuscule
saisir une phrase ph
rendre ph en majuscule
afficher la nombre de répétition du mot dans la phrase
exemple :
mot : bon
phrase : bonjour je veut acheter du bonbon , je veut une bonne quantité
le nombre de répétition est : 4
Mon travail
كود:
program ahmed;
uses wincrt;
var
m,ph:string;
function saisir (m:string):string;
var a:integer;
begin
a:=0;
repeat
a:=a+1;
writeln('saisir une mot');readln(m);
until
upcase(m[a]) in ['A'..'Z'];
end;
procedure majuscule ( var x:string);
var i:integer;
begin
for i:=1 to length(x) do
x[i]:=upcase(x[i]);
end;
function freq(x,y:string):integer;
var
i,l,j,nbr:integer;
d:string;
begin
l:=length(x);
for i:=1 to length(y) do
begin
d:=copy(y,i,l);
for j:=1 to l do
begin
if x[i]=d[i] then
delete(d,i,1);end;
if length(d)=0 then
nbr:=nbr+1;
end;
end;
begin
saisir(m);
majuscule(m);
writeln('saisir une phrase');readln(ph);
majuscule(ph);
writeln('nbr de rep est = ',freq(m,ph));
end.
MERCI