Πανελλήνιες ΕΠΑΛ (ομάδα Α) - Δομημένος Προγραμματισμός - Ενδεικτικές Λύσεις θεμάτων

Πανελλήνιες ΕΠΑΛ (ομάδα Α) - Δομημένος Προγραμματισμός - Ενδεικτικές Λύσεις θεμάτων

  Ιουνίου 07, 2012    Philippos Koutsakas

---

Οι λύσεις που ακολουθούν είναι ενδεικτικές (προσοχή δεν είναι επίσημες και συνεπώς υπάρχει πιθανότητα να περιέχουν λάθη)

ΘΕΜΑ A1.
α. σωστό
β. λάθος
γ. λάθος
δ. σωστό
ε. σωστό

ΘΕΜΑ Α2.

1. ε

2. γ

3. α

4. στ

5. β

ΘΕΜΑ Α3

Γ

ΘΕΜΑ Α4

Ακολουθία

Επιλογή

Επανάληψη

Τεχνικές ανάπτυξης και σχεδίασης Ιεραρχικού και Τμηματικού προγραμματισμού

ΘΕΜΑ Α5

Η απάντηση δίνεται με επιφυλάξεις.
Φραστική μέθοδος, Ψευδοκώδικας, Λογικό διάγραμμα, Δομοδιάγραμμα

ΘΕΜΑ Β, Β1

	Χ	Α
	10	20
	5	23
	2	22
	1	25
	0	24

ΘΕΜΑ Β2.

Β = 24

Γ = 48

ΘΕΜΑ Γ

Program Thema_gama;

const
 pagio = 3;

Var
 onoma : string;
 a, ogos_dedomenwn : integer;
 xrewsi, mo_xrewsis, sinoliki_xrewsi : real;

Begin

a := 0;
ogos_dedomenwn := 0;
sinoliki_xrewsi := 0;
xrewsi := 0;
mo_xrewsis := 0;

for a := 1 to 50 do
begin
   write('Dwse to onoma tou ipalilou ');
   readln(onoma);
   write('Dwse ton ogo twn dedomenwn ');
   readln(ogos_dedomenwn);
   if ogos_dedomenwn <= 2 then
      xrewsi := pagio + (ogos_dedomenwn * 10)
   else
        if ogos_dedomenwn <= 6 then
             xrewsi := pagio + (2 * 10) + (ogos_dedomenwn - 2) * 2.5
        else
             xrewsi := pagio + (2*10) + (4*2.5) + (ogos_dedomenwn - 6) * 1.5;
  writeln('O ipallilos ', onoma , 'exei xrewsi ', xrewsi:5:2 , ' euro');
  sinoliki_xrewsi := sinoliki_xrewsi + xrewsi;
end;

mo_xrewsis := (sinoliki_xrewsi / 50);
write('O mesos oros tis xrewsis twn ipallilwn einai : ', mo_xrewsis:8:2);

End.

ΘΕΜΑ Δ.

Program Thema_D;

Var

 oxima : char;

 epivates, arithmos_fortigwn, xrewsi_fortiga : integer;

 xrewsi_autokinita, xrewsi_mixanes : integer;

 sinoliki_xrewsi : real;

Begin

 epivates := 0;

 arithmos_fortigwn := 0;

 xrewsi_fortiga := 0;

 xrewsi_autokinita := 0;

 xrewsi_mixanes := 0;

 sinoliki_xrewsi := 0;

write('Dwse ton tipo tou oximatos i t gia telos');

readln(oxima);

while oxima <> 't' do

begin

   write('Dwse arithmo epivatwn ');

   readln(epivates);

   case oxima of

     'M' :  xrewsi_mixanes := 10 + ((epivates - 1) * 5);

     'A' :  xrewsi_autokinita := 20 + ((epivates - 1) * 5);

     'F' :  begin

                                    xrewsi_fortiga := 30 + ((epivates - 1) * 5);

                                    arithmos_fortigwn := arithmos_fortigwn + 1;

                        end;

   end;

write('Dwse ton tipo tou oximatos i t gia telos');

readln(oxima);

end;

writeln('Ta fortiga einai: ', arithmos_fortigwn);

sinoliki_xrewsi := xrewsi_mixanes + xrewsi_autokinita + xrewsi_fortiga;

writeln('H sinoliki xrewsi einai: ', sinoliki_xrewsi:6:2);

end.