1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90
| program hn;
uses wincrt ;
type
tab=array[1..20]of string;
var
t:tab;
n:integer;
ch:string;
procedure saisie(var t:tab;var n:integer);
var
i:integer;
begin
repeat
writeln('donner n');
readln (n);
until n in [5..20];
for i:=1to n do
begin
repeat
writeln('donner t[i]',i) ;
readln (t[i]);
until length (t[i])<>0;
end;
end;
function fn (t:tab; x:string; n:integer):boolean;
var
i:integer;
begin
fn:=false;
for i:=1to n do
begin
if
length (t[i]) <> 0
then
begin
fn :=true;
end;
end;
end;
procedure tableau(t:tab; n:integer ;var ch:string);
var
i,p,j:integer;
x:string;
begin
for i :=1to n do
begin
ch:=t[i];
j:=1;
if not (upcase (ch[j]) in ['A'..'Z'])
then begin
repeat
p:=j;
delete (ch,p,1);
j:=j+1;
writeln(ch);
until (j=length(ch)) or (i=n);
end;
end;
if fn(t,x,n) =true
then
begin
writeln (ch,i);
end;
end;
begin
saisie(t,n);
tableau(t,n,ch);
end. |
Partager