Papildykite programą EGZAMIANAS, kad ją įvykdę ekrane gautume tokį vaizdą. Viename langelyje įrašytas vienas simbolis.
| E |
G |
Z |
A |
M |
I |
A |
N |
A |
S |
| |
|
|
|
* |
* |
|
|
|
|
| |
|
|
* |
* |
* |
* |
|
|
|
| |
|
* |
* |
* |
* |
* |
* |
|
|
| |
* |
* |
* |
* |
* |
* |
* |
* |
|
program EGZAMIANAS;
var i, j: integer;
begin
WriteLn('EGZAMIANAS');
for i := 1 to 4 do
begin
........................
........................
........................
........................
........................
........................
end;
end.
Taškai:
Teisingas atsakymas - 40 taškų.
Pirmasis teisingai atsakęs gauna papildomus 10 taškų.
Teisingas atsakymas, kurį pateikė dalyvis:
for j=1 to 10 do begin if ((j<=10/2-i) or (j>10/2+i)) then Write(" ") Else Write("*"); end; WriteLn();
Dalyvio sprendimo aprašymas:
Tai Pascal kalba. :-) Na, 10 - žodžio EGZAMIANAS ilgis. 10/2=5 - radom centrą "piramidės". Sukom ciklą ir jeigu J yra mažiau arba daugiau centro (forlmulė paprasta, nežinau kaip galiu paprasčiau parašyti negu atsakyme) tai rašom " ", viskis kitais atvėjais rašom "*". Paskutinis WriteLn - pereinam į sekančią eilutę. Senai nerašiau Pascal-iu, tai del sintaksio klaidų - nepykit. :-)
Organizatorių pastaba - uždavinys pasiskolintas iš čia: http://www.egzaminai.lt/failai/511_uzduotys_2008_VBE_IT.pdf
|
|
