Mini projet

Aller en bas

Mini projet

Message par Imen ESSASSI le Mer 21 Fév - 23:41

program suite;
uses wincrt;

procedure menu;
begin
writeln('*************************************');
writeln('* 1- Affichage de n premiers termes *');
writeln('* 2- Calcul du nè terme *');
writeln('* 3- Recherche d''un terme *');
writeln('*************************************');
end;

procedure saisie_n(var n:integer);
begin
write('n=');
readln(n);
end;

procedure saisie_x(var x:real);
begin
write('x=');
readln(x);
end;
procedure saisie(var c:integer);
begin
repeat
write('Donner votre choix:');
readln(c);
until(c in [1..3]);
end;

procedure affiche (n:integer);
var
u:real;
i:integer;
begin
u:=5;
write(u:0:2,' ');
for i:=2 to n do
begin
u:=(2*u)+1.5;
write(u:0:2,' ');
end;
end;

function terme_n(n:integer):real;
var
i:integer; u:real;
begin
u:=5;
for i:=1 to n-1 do
u:=(2*u)+1.5;
terme_n:=u;

end;

function rech(x:real):boolean;
var
u:real;
begin
u:=5;
if(u=x) then rech:=true
else
repeat
u:=(2*u)+1.5;
until(u>=x);
if(u=x) then rech:=true
else rech:=false;
end;

procedure traitement(c:integer);
var
n:integer; x:real;
begin
case c of
1:begin
saisie_n(n);
affiche(n);
writeln;
end;
2:begin
saisie_n(n);
writeln(terme_n(n):0:2);
writeln;
end;
3:begin
saisie_x(x);
writeln(rech(x));
writeln;
end;
end;
end;

procedure trait;
var
rep:char;
c:integer;
begin
repeat
menu;
saisie(c);
traitement(c);
repeat
writeln('Voulez vous refaire le travai? O/N/o/n');
readln(rep);
until(upcase (rep) in ['O','N']);
until(upcase(rep)='N');
end;
BEGIN
trait;
END.

Imen ESSASSI

Messages : 9
Date d'inscription : 21/02/2018

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Mini projet

Message par Dalykh le Jeu 22 Fév - 16:49

Mercii ☺️

Dalykh
Admin

Messages : 4
Date d'inscription : 31/01/2018
Age : 18

Voir le profil de l'utilisateur http://forum123.kanak.fr

Revenir en haut Aller en bas

Re: Mini projet

Message par Imen ESSASSI le Jeu 22 Fév - 21:47

A ton service Smile

Imen ESSASSI

Messages : 9
Date d'inscription : 21/02/2018

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Mini projet

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum