Difference between revisions of "Ro/Rodin/Alte exemple"
< Ro/Rodin
Jump to navigation
Jump to 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;}; |
|
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 |
+ | altfel fie xmin=xmin;}; |
− | + | 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 |
+ | 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.