Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  ex1.pas
Language: PASCAL
Code:
begin exercice1;
uses crt;
type
tab=array [2..20] of string;
var
T:tab;
n:byte;
*************************************
procedure saisie (var n:byte);
begin
repeat 
writeln ('donner la longueur du tableau');
readln(n);
until n in [2..20];
end;
*************************************
procedure remplir (var T:tab,n:byte);
var
i:byte;
begin
for i:=1 to n do 
repeat 
writeln ('T[',i,']=');
readln (T[i]);
until(T[i]<>'')and (length(T[i]in [1..5]));
end;
*************************************
procedure eliminer (var T:tab,n:byte);
var
i:byte;
begin 
for i:=1 to n do 
elim(T[i]);
end;
*************************************
function elim(ch:string):string;
var
i:byte;
begin
for i:=1 to length(ch) do
if ch[i](in (['A'..'Z'] ,['a'..'z']) then 
delete(ch[i]);
writeln (ch[i])
end;
*************************************
procedure convertir (var T:tab,n:byte);
var
i:byte;
begin
for i:=1 to n do
conv(T[i]);
end;  
*************************************
function conv(ch):chaine

for i:=1 to length(T[i]) do

  majus()
*************************************
begin
saisie(n);
remlpir(T,n);
eliminer(T,n);
Convertir(T,n);
afficher(T,n);
end.
          
Comments: