Informatika 2023-24, Azp-3: 6. ASTEA | laborategi/mintegian egin dena

6. astea (2024/02/26) laborategi/mintegian egindakoa

Lanak entregatzearekin zerrenda pasatu dugu, deitutako 25en artean ez etorriak 2 izan dira (zehaztapen gehiago eGela zerbitzuan)

Azken ostiralekoa errepikatuz, AlfabetoLarriarenZatia.pas programaren bitartez, ondoko hauek erabiltzeko crt unitatearen beharraz hitz egin dugu:

readkey funtzioa
keypressed funtzioa
clrscr prozedura

AlfabetoLarriarenZatia.pas

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
program AlfabetoLarriarenZatia ;
uses
   crt ;
var
   cLetra: char ;
   cLehenLetra: char ;
   cAzkenLetra: char ;
begin
   clrscr ;
   writeln ;
   writeln ;
   repeat
      write('''A'' eta ''Z'' arteko lehen letra bat eman: ') ;
      cLehenLetra := readkey ;
      writeln(cLehenLetra) ;
   until (cLehenLetra >= 'A') and (cLehenLetra <= 'Z') ;

   writeln ;
   repeat
      write('''', cLehenLetra, ''' eta ''Z'' arteko azken letra bat eman: ') ;
      cAzkenLetra := readkey ;
      writeln(cAzkenLetra) ;
   until (cAzkenLetra >= cLehenLetra) and (cAzkenLetra <= 'Z') ;

   writeln ;
   writeln('     Karakterea        Kodea') ;
   writeln('     ----------        -----') ;

   for cLetra:=cLehenLetra to cAzkenLetra do
   begin
      writeln(cLetra:15, ' -----> ', ord(cLetra)) ;
   end ;

   writeln('     ----------        -----') ;
   writeln('     Karakterea        Kodea') ;

   writeln ;
   repeat until keypressed ;
   {
   writeln ;
   write('RETURN sakatu aurrera egiteko ') ;
   readln ;
   }
   {
   writeln ;
   repeat
      writeln('keypressed = ', keypressed) ;
   until keypressed ;
   }
end.

Nahiz eta eskatzen diren programak horiek ez izan, 5. astea | zenbaki edo letra sorta baten maximoa blog-artikulura joan eta bertan ematen diren hiru kodeak hartu. Algoritmoak ulertu, programak exekutatu eta emaitzak aztertu

5. astea | zenbaki edo letra sorta baten maximoa blog-artikuluko programetan oinarriturik, etxerako eskatzen diren programak:

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 | letrarik hurbilena ariketa planteatu eta egin dugu

6. astea | Fibonacci zenbakiak ariketa planteatu eta egin dugu. Hiru bertsio:

Fibonacciren hainbat zenbaki pantailan idatzi: iZenbat datua teklatuaren bitartez irakurri, Fibonacciren lehen bi zenbakiak FOR agindua baino lehen pantailaratu eta hurrengo zenbakiak banan-banan FOR aginduaren iterazio bakoitzean
Muga bat emanik Fibonacciren zenbakiak pantailan idatzi: iMuga datua teklatuaren bitartez irakurri, Fibonacciren lehen hiru zenbakiak WHILE agindua baino lehen pantailaratu eta hurrengo zenbakiak banan-banan WHILE aginduaren iterazio bakoitzean
Muga bat emanik Fibonacciren zenbakiak pantailan idatzi: iMuga datua teklatuaren bitartez irakurri, Fibonacciren lehen bi zenbakiak REPEAT agindua baino lehen pantailaratu eta hurrengo zenbakiak banan-banan REPEAT aginduaren iterazio bakoitzean (hau egin gabe geratu da, baina WHILE kasua bezalakoa da)

Orriak

2024(e)ko otsailaren 25(a), igandea

6. ASTEA | laborategi/mintegian egin dena

iruzkinik ez:

Argitaratu iruzkina