Personal tools

Ro/Rodin/Alte exemple

From HaskellWiki

< Ro/Rodin(Difference between revisions)
Jump to: navigation, search
m (Ather example in test)
m (Ather example in test)
Line 12: Line 12:
 
pentru (fie x=0; x<n; fie x=x+1)
 
pentru (fie x=0; x<n; fie x=x+1)
   
'''{citeste y;fie v[x]=y;};'''
+
{citeste y;fie v[x]=y;};
   
 
fie xmin=0;
 
fie xmin=0;
Line 22: Line 22:
 
{daca (xmin>v[x]) atunci fie xmin=v[x];
 
{daca (xmin>v[x]) atunci fie xmin=v[x];
   
altfel '''fie xmin=xmin;'''};
+
altfel fie xmin=xmin;};
   
'''pentru ('''fie x=0; x<n; fie x=x+1)
+
pentru (fie x=0; x<n; fie x=x+1)
   
 
{daca (xmax<v[x]) atunci fie xmax=v[x];
 
{daca (xmax<v[x]) atunci fie xmax=v[x];
   
altfel '''xmax=xmax;'''};
+
altfel xmax=xmax;};
   
 
text "Minimul din sir este";
 
text "Minimul din sir este";
Line 42: Line 42:
 
};
 
};
 
</haskell>
 
</haskell>
Beta tester: Cristina (88). Multumesc mult pentru exemplu.
+
  +
Beta tester: Cristina (88). Multumesc mult pentru exemplu. Un exemplu care NU functioneaza e mai util decat unul care functioneaza fiindca ne spune ce bug-uri mai avem de cautat.

Revision as of 05:33, 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. Un exemplu care NU functioneaza e mai util decat unul care functioneaza fiindca ne spune ce bug-uri mai avem de cautat.