3. ASTEA | etxerako lana

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

Hona hemen radianen bihurketa gradu-minutu-segundo balioak lortzeko:

{-------------------------------------------------------------------------------
   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 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  

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

• 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, non menu baten bitartez hiru ariketa hauen artean bat hautatzeko aukera ematen den:
• 1. astea | kaixo mundua! 
• 1. astea | zeruertzaren urruntasuna 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, ezagutzen ditugun aurrekoak bere barnean biltzen dituelarik
   
2. Gainera, bukatzeko, guztiz orokorra ez den ariketa hau abiapuntuz harturik, bere hedapena den 3. astea | edozein triangeluren azalera ariketa egizue

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