Difference between revisions of "Ro/Rodin/Alte exemple"

From HaskellWiki
Jump to: navigation, search
m (Ather example in test)
 
m (Ather example in test)
Line 1: Line 1:
 
Program incercat in timpul testarii RodinV082b.
 
Program incercat in timpul testarii RodinV082b.
 
Se observa cateva probleme.
 
Se observa cateva probleme.
 
  +
<haskell>
 
{ text "Dati lungimea vectorului";
 
{ text "Dati lungimea vectorului";
   
Line 41: Line 41:
   
 
};
 
};
 
  +
</haskell>
 
Beta tester: Cristina (88). Multumesc mult pentru exemplu.
 
Beta tester: Cristina (88). Multumesc mult pentru exemplu.

Revision as of 05:32, 25 November 2008

Program incercat in timpul testarii RodinV082b. Se observa cateva probleme.

{	text "Dati lungimea vectorului";

	citeste n;

	pentru (fie x=0; x<n; fie x=x+1)

		fie v[x]=0;

	pentru (fie x=0; x<n; fie x=x+1)

		'''{citeste y;fie v[x]=y;};'''

	fie xmin=0;

	fie xmax=0;

	pentru (fie x=0; x<n; fie x=x+1)

		{daca (xmin>v[x]) atunci fie xmin=v[x];

							altfel '''fie xmin=xmin;'''};

	'''pentru ('''fie x=0; x<n; fie x=x+1)

		{daca (xmax<v[x]) atunci fie xmax=v[x];

							altfel '''xmax=xmax;'''};

	text "Minimul din sir este";

	scrie xmin;

	text "Maximul din sir este";

	scrie xmax;

	citeste j;

	};

Beta tester: Cristina (88). Multumesc mult pentru exemplu.