urgent!!!!!!

tn4eva

عضو
إنضم
28 مارس 2011
المشاركات
57
مستوى التفاعل
179
السلام عليكم

غدوة نعدّي info ، بالله واحد يصلّحلي الخدمة هذي (حاشتي ببروڨرام يحسب عدد O و A في tableau)

هذي خدمتي


program trin;
uses wincrt;
type
tab=array[1..100]of integer;
var
t:tab;
n,s:integer;
i,j,f:integer;
procedure lecture(var n:integer);
begin
repeat
writeln('entrer valeur de n');
readln(n);
until (n>3);
end;
procedure remplir(var t:tab;n:integer);
begin
for i:=1to n do
begin
writeln('n');
readln(n);
end;
end;
procedure affiche (l:integer);
begin
writeln(l);
end;
function maj (t:tab;n:integer):integer;
var
w:integer;
begin
w:=0;
for i:=1to n do
begin
for j:=1 to length t do
begin
if upcase (t[j]) in ['A','O'] then
w:=w+1;
maj:=w;
end;
end;
end;
begin
lecture (n);
remplir(t,n):
maj(t,n);
f:=majus;
affiche(f);
end.
 

BOUFICHA

عضو نشيط
إنضم
29 أوت 2008
المشاركات
288
مستوى التفاعل
127
:besmellah2:


كود:
program trin;
uses wincrt;
type
tab=array[1..100]of string;
var
t:tab;
n,s:integer;
i,j,f:integer;
procedure lecture(var n:integer);
begin
repeat
writeln('entrer valeur de n');
readln(n);
until (n>3);
end;
procedure remplir(var t:tab;n:integer);
begin
for i:=1to n do
begin
  writeln('T[',i,']:');
  readln(T[i]);
end;
end;
procedure affiche (l:integer);
begin
writeln(l);
end;
function maj (t:tab;n:integer):integer;
var
w:integer;ch:string;
begin
w:=0;
for i:=1to n do
begin
ch:=t[i];
for j:=1 to length(ch) do
begin
if (upcase (ch[i]) in ['A','O']) then w:=w+1;
maj:=w;
end;
end;
end;
begin
lecture (n);
remplir(t,n):
maj(t,n);
f:=majus;
affiche(f);
end.

Bonne chance frère demain
 
أعلى