fiche5 ex sous programme .pdf


Nom original: fiche5-ex-sous-programme.pdfAuteur: dhifallah

Ce document au format PDF 1.4 a été généré par Writer / LibreOffice 4.0, et a été envoyé sur fichier-pdf.fr le 26/02/2020 à 17:19, depuis l'adresse IP 196.235.x.x. La présente page de téléchargement du fichier a été vue 58 fois.
Taille du document: 184 Ko (1 page).
Confidentialité: fichier public

Aperçu du document


Sous programmes – Fiche 5
Exercice 1:
Exercice 2:
Écrire un programme qui permet remplir un tableau T par Écrire un programme qui permet d'afficher en ordre inverse
des entiers positifs puis d'extraire les entiers pairs dans un un tableau comportant au minimum 2 chaînes et au
tableau T1 et les entiers impairs dans un tableau T2 enfin maximum 5 chaînes puis de calculer et d'afficher le nombre
afficher T1 et T2.
des noms qui commencent par s.
program parite;
uses wincrt;
type
tab=array[1..10]of integer;
var
t,t1,t2:tab;
n,n1,n2:integer;
procedure saisir(var t:tab;var n:integer);

var i:integer;
begin
writeln('donner la taille du tableau');
readln(n);
for i:=1 to n do
repeat
writeln('Donner l''élément n°',i);
readln(t[i]);
until t[i]>0;

Devoirs et examens sur : www.Kiteb.net

end;
procedure extraire(t:tab;n:integer;
var t1:tab;var j:integer;var t2:tab;var
k:integer);
var i:integer;
begin
j:=0; k:=0;
for i:=1 to n do
if t[i] mod 2=0 then begin
j:=j+1;
t1[j]:=t[i];
end
else
begin
k:=k+1;
t2[k]:=t[i];
end;
end;
procedure afficher(a:tab;b:integer);
var i:integer;
begin
for i:=1 to b do
writeln('l''élément n°',i,'est :', a[i]);
end;
begin
saisir(t,n);
extraire(t,n,t1,n1,t2,n2);
writeln('Le tableau des pairs: ');
afficher(t1,n1);
writeln('le tableau des impairs: ');
afficher(t2,n2);
end.

program nbnom;
uses wincrt;
type
tab=array [1..5] of string;
var t:tab;
ch:string;
n,nb:integer;
procedure saisie(var n:integer);
begin
repeat
writeln('donner le nombre des noms à
saisir(entre 2 et 5):');
readln(n);
until n in [2..5];
end;
procedure remplit(var t:tab;n:integer);
var i:integer;
begin
for i:=1 to n do
begin
write('donner le nom n°',i);
readln(t[i]);
end;
end;
procedure affiche(t:tab;n:integer);
var i:integer;
begin
for i:=n downto 1 do
writeln('le nom n° ',i,' est ',t[i]);
end;
function calculnb(t:tab;n:integer):integer;
var i:integer;nbr:integer;
begin
nbr:=0;
for i:=1 to n do
begin
ch:=t[i];
if (ch[1]='s') or (ch[1]='S') then
nbr:=nbr+1;
end;
calculnb:=nbr;
end;
procedure affichenb(nb:integer);
begin
writeln('le nombre des noms qui
commencent par S est ',nb);
end;
begin
saisie(n);
remplit(t,n);
affiche(t,n);
nb:=calculnb(t,n);
affichenb(nb);
end.


Aperçu du document fiche5-ex-sous-programme.pdf - page 1/1



Télécharger le fichier (PDF)

fiche5-ex-sous-programme.pdf (PDF, 184 Ko)

Télécharger
Formats alternatifs: ZIP



Documents similaires


fiche5 ex sous programme
fiche6 ex sous programme
fiche1 ex sous programme
bac2014seance14h
fiche3 ex sous programme
fiche4 ex sous programme

Sur le même sujet..