3. ASTEA | etxerako lana

 3. astea (2024/02/05) etxean egitekoa

Proiektua dela eta, ondoko bi programa hauek eginak dituzue (edo eginak izan beharko zenituzke): oraintxe bertan ikasiko dugu:

• Proiektua | 4. Ariketa: zenbaki errealetik kopuru osora (I) (latitudea + eta longitudea +)
• Proiektua | 5. Ariketa: zenbaki errealetik kopuru osora (II) (aurrekoa bezalakoa da, baina IF-THEN egitura egokien bitartez N, S, E eta W zehaztuko dira)

Proiektuaren aurreko bi ariketa horien kodeak programa honen antzekoak dira:

{------------------------------------------------------------------------------
   Angelu positiboa radianetan --> angelu positiboa gradu, minutu, segundotan
 ------------------------------------------------------------------------------}
program RadianPositiboak_GraduMinutuSegundo;
var
  rRadianak: real;
  rGraduak: real;
  rAldeOsoa: real;
  rAldeDezimala: real;
  iGraduak: integer;
  rMinutuak: real;
  iMinutuak: integer;
  rSegundoak: real;
begin
  writeln;
  writeln;
  writeln('------------------------------------------------------------------------------');
  writeln(' Angelu positiboa (radianetan) --> Angelu positiboa (gradu-minutu-segundotan)');
  writeln('------------------------------------------------------------------------------');
  writeln;
  repeat
    write('0.0 eta +40.0 arteko radianak eman: ');
    readln(rRadianak);
  until (rRadianak >= 0.0) and (rRadianak <= 40.0);
  
  rGraduak :=  rRadianak*360/(2*PI);
  writeln(rRadianak:0:5, ' radian = ', rGraduak:0:5, ' gradu');
    
  writeln;
  writeln('rGraduak = ', rGraduak:0:5, ' gradu');
  rAldeOsoa := int(rGraduak);
  rAldeDezimala := frac(rGraduak);
  writeln('GRADUAK--> ', rAldeOsoa:0:5, ' gradu + ', rAldeDezimala:0:5, ' gradu');
    
  writeln;
  writeln('rGraduak/360 = ', rGraduak/360:0:5, ' itzuli');
  writeln('ITZULIAK--> ', int(rGraduak/360):0:5, ' itzuli + ', frac(rGraduak/360):0:5, ' itzuli');
  writeln('GRADUAK---> ', 360*int(rGraduak/360):0:5, ' gradu + ', 360*frac(rGraduak/360):0:5, ' gradu'); 
   
  rGraduak := 360*frac(rGraduak/360);
  writeln('rGraduak =  ', rGraduak:0:5, ' gradu (angelu efektiboa)');
  
  writeln;
  rAldeOsoa := int(rGraduak);
  rAldeDezimala := frac(rGraduak);
  writeln('GRADUAK---> ', rAldeOsoa:0:5, ' gradu + ', rAldeDezimala:0:5, ' gradu');
     
  iGraduak := trunc(rAldeOsoa);
  writeln('iGraduak =  ', iGraduak, ' gradu');
  
  rMinutuak := rAldeDezimala*60;
  writeln('rMinutuak = ', rMinutuak:0:5, ' minutu');
  
  rAldeOsoa := int(rMinutuak);
  rAldeDezimala := frac(rMinutuak);
  
  writeln('MINUTUAK--> ', rAldeOsoa:0:5, ' minutu + ', rAldeDezimala:0:5, ' minutu');
  
  iMinutuak := trunc(rAldeOsoa);
  writeln('iMinutuak = ', iMinutuak, ' minutu');
  rSegundoak := rAldeDezimala*60;
  writeln('rSegundoak = ', rSegundoak:0:5, ' segundo');
    
  writeln;
  writeln(rRadianak:0:5, ' radian = ', iGraduak, ' gradu ', iMinutuak, ' minutu ', rSegundoak:0:4, ' segundo');
  
  writeln;
  writeln ('=======================');
  writeln ('RETURN sakatu amaitzeko');
  write   ('=======================');
  readln;
end. { PROGRAMAREN BUKAERA }

Goiko adibide-programa hori enuntziatu honi dagokio, zure lana da exekutatzea eta bere irteera aztertzea (programak zer egiten duen ondo ulertzeko arreta berezia jarri emaitzen unitateetan). Ondoren, beste programa bat egizu rRadianak angelu-datua positiboa edo negatiboa denerako.

Aste honetan etxean egingo dituzuen ariketak hauek dira:

• Gorago eman den radianak beti positiboak programa aberastu, radianak positiboak edo negatiboak onar ditzan. Zure bidalketa eGelako Autoebaluazioa: Proiektua | 4. Ariketa: zenbaki errealetik kopuru osora (I) zereginean jasoko da  

• Teoriako klasean ikusi dugun 3. astea | bigarren graduko ekuazioa artikuluan ematen diren programak azter, uler eta ikas itzazu

• Birpasa ezazu laborategian bukatu dugun 3. astea | angelua 1. koadrantera eraman ariketa (sarrerako angelua radianetan eta edozein koadrantekoa)

• Ostiralean, ikasgelan, azalduko den 3. astea | CASE-OF aginduaren adibidea eta kontradibidea artikuluan Case1.pas iturburu-programa eta Case2.pas iturburu-programa ematen dira,  CASE-OF egitura erabiliz CASE_MenuaZenbakiz.pas programa idatzi (hona hemen CASE_MenuaZenbakiz.exe programa exekutagarria), non menu baten bitartez hiru ariketa hauen artean bat hautatzeko aukera ematen den:
• 1. astea | kaixo mundua! 
• 1. astea | zeruertza kilometroetan
• 1. astea | erakarpen grabitatorioa

Hasita daukagun 3. astea | triangeluaren azalera ariketa honi aurre egingo diozue aste honetan, ariketa garrantzitsua da honako arrazoi hauengatik:

1. Ezagutzen ditugun beste ariketa batzuetan oinarritzen delako
2. Gainera, eGela bitartez bidaltzea eskatuko dizuedalako: guztiz orokorra ez den ariketa hau abiapuntuz harturik, bere hedapena den 3. astea | edozein triangeluren azalera ariketa eskatuko dudalako. Programaren entrega egiteko Etxekolana: Edozein triangeluren azalera zeregina sortu dut