Informatikos egzaminas

if t then Read(F, c, d, a)

wtf? if t then ?

Jeigu T = True.

Kiek cia tarp musu informatiku :huh:

Kiek cia tarp musu informatiku :huh:

Pažymėkite atsakymą, kuris būtų gautas įvykdžius programą Te7, jeigu tekstiniame faile

Te7.txt užrašyta tokia skaičių eilutė: 7 8 9 1 –5 8

program Te7;
var a, b, c, d : integer;
F : text;
begin
Assign(F, 'Te7.txt'); Reset(F);
Read(F, a, b, c);
d := b + c;
Read(F, b, c);
if (a > b) and (a > c)
then if d < c
then d := d + b + c
else d := d - b - c
else d := 2 * (a + b + c);
Write(a:5, b:5, c:5, d:5);
Close(F);
end.

Kas pirmas atsakymą parašys? :-)

Skaičiū eilutė

7 8 9 1 –5 8

program Te7;
var a, b, c, d : integer;
F : text;
begin
Assign(F, 'Te7.txt'); Reset(F);
Read(F, a, b, c);
d := b + c;
Read(F, b, c);
if (a > B) and (a > c)
then if d < c
then d := d + b + c
else d := d - b - c
else d := 2 * (a + b + c);
Write(a:5, b:5, c:5, d:5);
Close(F);
end.

Nuskaitome 7, 8, 9

d : = 17 (8+9);

Nuskaitome b:=1, c:= -5

jeigu 7 > 8... nah, praleidžiame tada.

else d := 2 * (a + b + c);

d := 2 * (7 + 1 + (-5) )

d := 6

7, 1, -5

O D kiek? Turi arba 11, 20 arba 21 gautis.

17 - 6 = 11??????

sekmes egze :]]]]

nu ka sekmes visiems kitiems :huh: as jau pedinsiu pragaro link :)

as irgi jau einu :/ vyrai tik nepersistenkit , kad kitiems geresni rezai butu :huh:

ner cia ka persistengt...

Visi sutartinai nedarykit praktiniu uzduociu, kad ash daugiau balu gauciau jas padares :huh:

nu va jau gryzau po mokyklinio. Kas yra tekstu rengykle supratau tik paziurejas i rusishka vertima :)

o as po valstybinio... :) krc gerai einas :)

o as po valstybinio... :) krc gerai einas :)

nervina mane testinius baigiau 15 minuciu anksciau, o tam praktikai pritruko koki 15 minuciu, kad antra programa baigt. tai taip ten ir liko nevisai baigta :)

Gal kas gali apytikslias programu salygas parasyti? Sunku buvo? :)

...

Susivariau ant testo, mjo, kur HTML source, žinau, kad B, o parašiau C... Dar ten kelis kartus.

Testą padariau, sugalvojau kaip daryti praktines ten, atsisėdau prie pc, nieko nepadarau :-)

Kelis punkutus spėjau ir viskas.

T-Mix,

Reikia surasti S ir C reikšmės. Enjoy :-)

Program T2;
var s, a, c : integer;
begin
s := 3; b := 6; c := 4
for a:= s + c to b + c do
 begin
  s := s + a;
  c := c +1;
 end;
WriteLn(s, ' ', c);
end.

Tingiu daugiau rašyt :-)

A s = 37; c = 8

B s = 27; c = 7

C s = 8; c = 37

D Rezulato nėra (begalinis ciklas).

Parašiau A.

Privažiavo geek'ų pas mus, kaip per moksliukų kerštą visi :)

Gal kas gali apytikslias programu salygas parasyti? Sunku buvo? :)

program T8;
// ---------------------------------------
function Did(a, b : integer): integer;
begin
 if a > b then Did := a
		  else Did :=b;
end;
// ---------------------------------------
var a, b, c : integer;
  s1, s2, s3, s4 : integer;
begin
 a  := 5; b := 6, c := 10;
 s1 := Did(Did(a, b), c);
 s2 := Did(Did(a, b), Did(b, c));
 s3 := Did(a, Did(b, c));
 s4 := Did(Did(a, b), b), b);
Write(s1, ' ', s2, ' ', s3 ' ', s4);
end.

Kurią skaičių eilutę matysime ekrane?

A - 10, 10, 10, 6

B - 10, 10, 10, 10

C - 6, 10, 10, 6

D - 6, 10, 10, 10

A

Koks atsakimas to pirmo testo kur buvo kaskokia is..? ir antro jei zinot parasykit.

Padariau abi programas - jos veikia, bet su testais susimoviau kaikur.

Kas nori praktinės užduotys yra čia:

http://img339.imageshack.us/img339/7535/t1lm2.th.jpg

http://img339.imageshack.us/img339/1083/t2ue3.th.jpg

Pirmo testo atsakymas (kur išnaša) - C (o aš neteisingai pasirinkau - D)

geek`u tai jo :) Net baisu, dar iki dabar turiu trauma, kai isvaziavau atstovaut Kauna i respublikine. Nuvaziuoju o ten vieni moksliukai, tai susiradau pora klaidu tokiu kaip as, ir gerai nusigerem :) Issivaizudoju visi tie ir infos egzus laiko, ir jiem tikrai nera kas juos islaikyti.

Mjo.....

Program T4;
var   t : boolean;
	s, a, b, c : integer;
begin
 t := true;
 s := 0; a := 3; b := 3;
 for c := a to a + b do
 begin
	 if t then   s := s + c
		  else   s := s + a + b;
	 a := a + 1;
	 t := not t;
  end;
 WriteLn(t, ' ', a, ' ', s);
end.

t, a, s surasti reikia.

Jeigu t yra true, tada parašo ant galo t := not t, tai reiškia false? Bet atsakymas tai lyg su TRUE kažkuris...

Kas liecia uzduotis matau, gerai grybavot. Bet tai cia tikrai labai paprasti uzdaviniai. Cia net nereikia per daug mastymo tik zinoti, Pascalio basicus. Beje kiek dave laiko tuos uzdavinius issprest?

not true == false

not false == true

Tai nereikejo programu rasyti? :) Tik analizuoti ka isves i ekrana? O kai analizavot, tai negalejot pascal naudotis, ane?

Mane domina tos praktines uzduotys, kur reikejo paciam rasyti.

Edit: jau idejo, aciu. :)

Mjo.....

 

Program T4;
var   t : boolean;
	s, a, b, c : integer;
begin
 t := true;
 s := 0; a := 3; b := 3;
 for c := a to a + b do
 begin
	 if t then   s := s + c
		  else   s := s + a + b;
	 a := a + 1;
	 t := not t;
  end;
 WriteLn(t, ' ', a, ' ', s);
end.

 

t, a, s surasti reikia.

 

Jeigu t yra true, tada parašo ant galo t := not t, tai reiškia false? Bet atsakymas tai lyg su TRUE kažkuris...

As sito gavau A atsakyma - t=true a=7 s=24, manau kad gerai padariau

O kodėl TRUE, jeigu t := not t ant galo yra?

geek`u tai jo :) Net baisu, dar iki dabar turiu trauma, kai isvaziavau atstovaut Kauna i respublikine. Nuvaziuoju o ten vieni moksliukai, tai susiradau pora klaidu tokiu kaip as, ir gerai nusigerem :) Issivaizudoju visi tie ir infos egzus laiko, ir jiem tikrai nera kas juos islaikyti.

Nu ash ziuriu taip, pas mus ish 7 laikiusiu 3 buvo su akiniais :)

Tai pagal tai sprendziu kad geeku yra ~42.8%

Tai tureciau ishlaikyt :)

O kodėl TRUE, jeigu t := not t ant galo yra?

Nes ciklas keturis kartus vyksta