Programme pascal qui d'affiche un triangle

Fermé

Mamoun Miladi - 1 nov. 2010 à 21:10
rikooo - 9 févr. 2014 à 22:50

Bonjour,

salut a tous j'ai un problème dans un exercice dans mon livre
il me demande de faire un programme et d'enduire un analyse dans programme pascal qui permet d'affiché un triangle isocèle formé d'étoiles de n ligne (n = donné par le clavier )
un exemple pour comprendre
n=8

*
***
*****
*******
*********
***********
*************
***************

s'il vous plaie j'ai besoin de votre aide et merci
votre nouveau ami mam :(

A voir également:

Ecrire un algorithme qui permet d'afficher le triangle
Ecrire un algorithme qui permet de resoudre ax²+bx+c=0 - Forum Algorithmes / Méthodes
Ce programme est écrit en python. il construit un mot secret dans une variable mais il ne l'affiche pas. modifiez-le pour qu'il affiche le mot secret. exécutez-le. quel est ce mot secret ? ✓ - Forum Python
Ecrire en gras sur whatsapp - Guide
Ecrire en miroir - Guide
Comment ecrire @ sur un ordinateur hp ✓ - Forum Clavier

4 réponses

Réponse 1 / 4

chrislains
24 déc. 2010 à 03:13

bjr jesper k ceci va taider c le programme

ligne:integer;
a, b: integer;
begin
writeln('nbre ligne'); read(ligne);
for a:=1 to ligne do
begin
for b:=1 to a do
write('*');
writeln;
end
end.

jespere k c pas trop trop tard

en revange je recherche comment faire la figure ci dessous
*
* *
** **
* *
*

KX Messages postés 16734 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 24 avril 2024 3 015
24 déc. 2010 à 07:32

Un seul exemple de figure, qui plus est sans explication, ne permet pas de savoir comment la figure est construite pour les itérations suivantes...

Néanmoins pour n=2, ceci marchera :

program chrislains;

procedure g(n:integer);
var i:integer;
begin
     for i:=1 to n do
         write('*');
end;

procedure f(n:integer);
var i:integer;
begin
    if n=0 then writeln('*')
           else begin
                f(n-1);
                g(n);
                write(' ');    
                g(n);
                writeln;
                f(n-1);
                end;
end;

BEGIN
   f(2);
END.

mounir sghaier
30 mai 2011 à 16:32

mr6 c just

ko
13 nov. 2013 à 22:11

program sym ;
uses wincrt ;
var ch: string ;
procedure affichage (ch1,ch2: string ) ;
begin
if ch1 <> '' then
begin

writeln (ch1,ch2) ;
affichage (copy ( ch1,1,length (ch1) -1 ) , copy (ch2,2,length (ch2) -1)) ;
writeln (ch1,ch2) ;
end ;
end ;
begin
writeln ('saisir ch : '); readln (ch ) ;
writeln ;
affichage (ch,ch) ;
end .

Réponse 3 / 4

KX Messages postés 16734 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 24 avril 2024 3 015
24 déc. 2010 à 12:35

Voici pour les "losanges" même si ça n'en est pas vraiment...

program losange;

procedure f(n:integer);
var i:integer;
begin
     for i:=1 to n do
         write(' ');
     write('*');
end;

procedure g(n,nmax:integer);
begin
     f(nmax-n);
     f(2*n);
     writeln;
end;

procedure h(n,nmax:integer);
begin
     if (n<nmax)
     then begin
          g(n,nmax);
          h(n+1,nmax);
          g(n,nmax);
          end
     else g(n,nmax);
end;

var n:integer;
BEGIN
     for n:=0 to 5 do
     begin
          writeln('n=',n);
          h(0,n);
          writeln;
     end;
END.

ko
13 nov. 2013 à 22:12

es que on peut faire un losonge avec la recursivité ?

Réponse 4 / 4

laguchori Messages postés 62 Date d'inscription mardi 26 octobre 2010 Statut Membre Dernière intervention 13 janvier 2012
24 déc. 2010 à 05:53

bonsoir voila ce que tu veux
ligne:integer;
a, b: integer;
begin
writeln('nbre ligne un nombre impaire'); read(ligne);
for a:=1 to (ligne div 2 )+1 do
begin
for b:=1 to a do
write('*');
writeln;
end;
for k:=ligne div2 +2 to ligne do
begin
for i:=ligne div 2 downto 1 do
write('*');
writeln;

end ;
end.

KX Messages postés 16734 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 24 avril 2024 3 015
24 déc. 2010 à 07:33

Ton programme a plusieurs erreurs et ne donne pas le résultat attendu mais celui-ci :

a=2 :

*
**
***
**
**

chrislains
Modifié par chrislains le 24/12/2010 à 11:54

en fait je cherche a faire un programme en turbo pascal qui affiche un losange

rikooo
9 févr. 2014 à 22:50

uses wincrt;
var
d,i,j,c,h:integer;
begin
readln(d);
for i:=1 to d div 2 do
begin
for j:=1 to i do
write('*');
writeln('');
end;
for h:= d div 2 downto 1 do
begin
for c:= h-1 downto 1 do
write('*');
writeln('');
end

end.

Discussions similaires

cours de langage pascal + tp+exercies corrigé

cod PASCAL pour une equation du second degrés

Ecrire un programme en pascal

Affichage d'une matrice en pascal

Des exercices de pascal pour débutants

visionneuse photo ne peut ouvrir cette image

Discussions similaires

Newsletters