galėtų gal kas padėti su paskaliu?

Gal kas galėtu išspręsti paskalį?:)Būčiau labai dėkingas.

Reikės ir man savo namų darbus čia įkelti :D

Iki kada reikia išspręsti. Nieko sunkaus čia šiaip. Vakare grįšiu - tai galėsiu paspręsti. :)

na kad nesuprantu, o gal kam nėra ką veikti, tai gal padėtu. :)

chi chi..;) rytojui. :DD beto, jei neskubi dabar niekur, gal paaiškint galėtum, tada ir pats išspresčiau, nesu visai nesupratingas, tiesiog ant kaikurių vietų stringu. :))

Tai, tu norodyk vietas, kuriose stringi o ne aklai visą ND mesk spręsti ;)

pirmas A

Tau niekas neliepia to daryti,beto, kaip aš tau turėčiau tai nurodyti? galiu paaiškinti,bet ne forume manau. :)

19 uzdavinys:

1eulute:PSK

2eulute:LABAI GRAŽI

3eilute:PASAKA

4eilute:

5eilute:

--------------------

sekantis po 19 uzdavinio:

1eulute:3210

2eilute:2

---------------------

25 uzdavinys:

4

5

12

-----------

siandien uzteks :D

Čia arba kažkurių metų egzas, arba bandomasis, nes labai matyti uždaviniai.

http://77.79.24.138:8000/valstybinis.htm čia yra užduotys ir atsakymai. (vertinimo instrukcijoje atsakymai į testinius klausimus).

24 užduoties atsakymas:

3

10

:)

Paskutinis lygtais 3ir 10, o tai nevisoms uzduotim c++ kodas yra? Ar tik kai kuriom?

Gal kas apsiimtu paaiškinti?Kadangi pats noriu perprasti, beto nėra taip, jog visiškai nesupraščiau,tik kaikuriuose vietose stringu.;) kam nesunku paaiškint, parašykit AŽ :)

Pradėsiu nuo viršutinio uždavinio. Tai atsakymus galima gauti dviem būdais: parašyti programą arba ant lapo išanalizuoti. Kadangi per egzaminą pirmiausia niekas neprileis prie kompiuterių, tai teks imtis antro būdo. :)

Taigi, turime programą:

program T7;

type TMas = array [1..50] of integer;

procedure Kitas (var a: integer; b, c: integer);

begin

if b > c

then a := b

else a := c;

end;

 

var A, B : TMas; n : integer;

i : integer;

ff : text;

begin

Assign(ff, 'T7.txt'); Reset(ff);

Read(ff, n);

for i := 1 to n+1 do

Read(ff, A);

Close(ff);

for i := 1 to n do

Kitas(B,A,A[i+1]);

for i := 1 to n do

Write(B,' ');

ReadLn;

end.

Ir ta programa apdorojamą failą T7.txt, kurio turinys:

4 13 15 -10 8 25

Pradėkime nuo šios programos kodo eilutės: Read(ff, n); Iš failo nuskaitoma yra pirmasis skaičius 4, kuris priskiriamas kintamajam n. Tai reiškia, kad n = 4. Na o toliau jau rašiausi maždaug tokius dalykus ant lapo:

nuo 1 iki 5 (nes n+1) {A[1] = 13; A[2] = 15; A[3] = -10; A[4] = 8; A[5] = 25}

Kitaip sakant, kai ilgas kodas ir reikia suprasti, kas jame parašyta be galimybė patikrinti, tiesiog bandau pats tą kodą įvykdyti ant popieriaus lapo. :) Tada reikia pasidaryti kiek aiškesnį ciklą su procedūromis Kitas:

nuo 1 iki 4 {

1) Kitas(B[1],A[1],A[2]);

2) Kitas(B[2],A[2],A[3]);

3) Kitas(B[3],A[3],A[4]);

4) Kitas(B[4],A[4],A[5]);

}

Kitas ciklas yra toks:

for i := 1 to n do

Write(B,' ');

Turbūt ir aiškinti nereikia, kad jis išves reikšmes B[1], B[2], B[3] ir B[4], atskirtas tarpais.

Dabar geriau grįžkime prie procedūros Kitas. Pirmiausia žinoma kodą pasidariau lietuviškesnį:

Kitas(a,b,c) {

Jei b > c, tai a = b, kitaip a = c

}

Na ir žiūrėdamas į tai, ką pasirašiau aukščiau, tiesiog nustačiau, kokios reikšmės bus priskirtos masyvo B elementams:

Kitas(B1,13,15) ---> B1 = 15

Kitas(B2,15,-10) ---> B2 = 15

Kitas(B3,-10,8) ---> B3 = 8

Kitas(B4,8,25) ---> B4 = 25

Va ir turime atsakymą: '15 15 8 25 '.

Na šiam kartui, manau, pakaks. :)

O kodėl tu tiesiog nepasirašai visos programos į FPS ir pats neišbandai kaip programa veikia ir kodėl ji taip veikia? Tau iš šito būtų daug daugiau naudos nei kad čia forumiečiai išspręs.