6. ASTEA | etxerako lana

 6. astea (2024/03/28) etxean egitekoa

• 6. astea | zenbaki edo letra sorta baten maximoa blog-artikuluko programak laborategian azaldu dira, haiek berreskuratu eta moldatu ondoko hauek lortze aldera:

• ZenbakiSortaBatenMinimoa_1.pas minimoa kalkulatzeko iZenbat irakurri, emaitza izango den iMinimoa hasieratu eta FOR batean iZenbat iterazio egin balio minimoa lortzeko
• ZenbakiSortaBatenMinimoa_2.pas minimoa kalkulatzeko iZenbat irakurri, FOR-etik kanpo emaitza izango den iMinimoa kalkulatu eta FOR batean iZenbat-1 iterazio egin balio minimoa lortzeko
• LetraSortaBatenMaximoa.pas maximoa kalkulatzeko iZenbat irakurri, emaitza izango den iMaximoa hasieratu eta FOR batean iZenbat iterazio egin balio maximoa lortzeko

• 6. astea | ReadKey funtzioa blog-artikulua birpasatu

---

Autoebaluazioa:

Autoebaluazioa: hainbat aukerako menu bat. Azken asteetako hiru ariketa hauek ondo menperatu ondoren, hirurak programa bakar batean bildu:

• 6. astea | letrarik hurbilena ariketa programatu
• 6. astea | Fibonacci zenbakiak ariketa hau egiteko zenbaki osoak erabili
• 5. astea | Newton-en hurbilketa-metodoa ariketa garrantzitsua da beste ariketa batzuen oinarria delako: ax²+bx+c parabolaren erroak kalkulatu Newton-Raphsonen metodoari esker artikulu horren bukaeran ematen da soluzio hau NewtonEdozeinParabola.pas (programa horretan, Fibonacciren bezala, iterazio baten emaitza hurrengo iterazioareko datua da). Begiratu ere x³=n ekuazioaren soluzioa 5. astea | Newton-en metodoa, erro karratua eta erro kuboa artikulua aztertuz
  

Hauxe da eskatzen den programaren irteera bat:

Hementxe adibide bat:

program AukerakMenuBatezHautatzen;
uses
  crt;
var
  cAukera, cItxoin: char;
  rEragigai1, rEragigai2: real;
begin
  repeat
    clrscr;
    write('Zenbaki errealekin lan eginez, lehenengo eragigaiaren balioa eman: ':74);
    readln(rEragigai1);
    write('Zenbaki errealekin lan eginez, bigarren eragigaiaren balioa eman:  ':74);
    readln(rEragigai2);

    writeln('============Menua============':40);
    writeln('             +   Batura lortzeko');
    writeln('             -   Kendura lortzeko');
    writeln('             *   Biderkadura lortzeko');
    writeln('             /   Zatiketa burutzeko');
    writeln;
    writeln('             i   Programatik irten');
    writeln('=============================':40);
    write('                 Zure aukera: ');
    cAukera := readkey;
    writeln(cAukera);
    writeln;

    case cAukera of
       '+' : writeln(rEragigai1:21:2, ' + ', rEragigai2:0:2, ' = ', rEragigai1+rEragigai2:0:2);
       '-' : writeln(rEragigai1:21:2, ' - ', rEragigai2:0:2, ' = ', rEragigai1-rEragigai2:0:2);
       '*','x','X' : writeln(rEragigai1:21:2, ' * ', rEragigai2:0:2, ' = ', rEragigai1*rEragigai2:0:2);
       '/' : writeln(rEragigai1:21:2, ' / ', rEragigai2:0:2, ' = ', rEragigai1/rEragigai2:0:2);
       'i', 'I' : writeln('Agur, ondo ibili!!!':30);
       else
          writeln('Eragiketa gaizki aukeratuta!':40);
    end;

    cItxoin := readkey;
    writeln(cItxoin);

  until (cAukera = 'i') or (cAukera = 'I');
end.