Tommis

apie 20% visu uzdaviniu tasku sumos. Pernai buvo 10tasku atrodo.

program test;
var h: text;
   porosVardas: String[20];
   x, y, z, poruSk, teisejuSk: integer;
begin
 Assign(h, 'U2.txt');
 Reset(h);
 Readln(h, poruSk, teisejuSk);
 for x:=1 to poruSk do
   begin
     Readln(h, porosVardas);
     for y:=1 to teisejuSk do
       Read(h, z);
Readln(h);
     for y:=1 to teisejuSk do
       Read(h, z);
Readln(h);
   end;
 Close(h);
end.

bandyk taip.

Antras uždavinys

 

U2.txt

3 5
Petras Rasa*********
3 1 5 8 10
5 6 7 8 9
Rita Jurgis*********
6 5 8 5 8
9 8 7 6 5
Rasa Linas**********
10 10 10 10 10
8 8 8 8 8

Kur žvaigždutės - tarpai.

 

Pasirašiau paprastą programėlę duomenų nuskaitymui

 

[1] program test;
[2] var h: text;
[3]     porosVardas: String[20];
[4]     x, y, poruSk, teisejuSk: integer;
[5] begin
[6]   Assign(h, 'U2.txt');
[7]   Reset(h);
[8]   Readln(h, poruSk, teisejuSk);
[9]   for x:=1 to poruSk do
[10]     begin
[11]       Readln(h, porosVardas);
[12]       Read(h, y);
[13]     end;
[14]   Close(h);
[15] end.

 

Sukompiliavus ir paleidus metama klaida: "Run time error Nr. 106 - Bad numeric format".

Pakeitus 12 eilutę į Read(h, x);, klaidos nebelieka. x - vienintelis kintamasis, į kurį be klaidos nuskaitomas skaičius.

 

 

Paaiškinkit, kur čia klaida?

 

tai kad tu tik viena skaiciu nuskaitai. Reikejo sitaip:

for y:= 1 to teisejuSk do
Read(h,y);
for y:= 1 to teisejuSk do
Read(h,y);

20. Katik patikrinau su savo atsakymu, viską gerai gauna ;]

program T1;

 

procedure Darbas (a,b:integer; var c,d:integer);

begin

c:=a mod b;

d:=a div b;

end;

 

var x,y,x1,y1:integer;

begin

x:=7; y:=5;

Darbas(y,x,y1,x1);

Writeln(x, ' ', y, ' ', x1, ' ', y1);

Readln;

end.

MantasP variantas irgi tinka, gali patikrinti.

4. 2, 4, 7

20. Darbas(y, x, x1, y1)

4. nezinau be man atrodo blogai. as pasirinkau 1 4 7

20. tikrai blogai

 

Aš tai 20. kažkodėl tokį rašiau:

Darbas(x*y,x,x1,y1);

O 23 kartais ne

k:=0;
for i:=a to b do
  if X[i] mod 2 <>0 then
     k:=k+1;

?

20tas atrodo gerai :). Idomiai isvartyta. Turbut uzkaitys.

23ta galima ir sitaip, jokio skirtumo taigi.

Atsidaryk word'ą, įsimesk multi-level sąrašą ir pasibandyk, tikrai antram lygy duoda tęsti sąrašą po enter paspaudimo {:

nu ir man taip atrodo, arba as nesuprantu ka reiskia antras lygmuo :).

visi dabar kels savo egzu ats :).

Sakyciau visu ats skiriasi gan nemazai.

1. C

cia kartais ne D?

8. =$B$3*$B$4*B7*C3; =IF(B11>B12; "TAIP"; "NE")

cia manau B11>=B12, nes juk kai lygu bus, tai uzteks vistiek tos elektros.

19. 0;13

cia buvo

i:= 0;
while i < 12 do // tinka 9 10 11 12
begin 
i := i+4;
writeln(i);
end;

23. a<b; 5 to 15; k mod 2 = 0 ; Writeln(X)

sito isvis nesupratau.

 

Visa kita bent jau tas pats, kaip ir pas mane :)

 

 

EDIT:

23. a<b; 5 to 15; k mod 2 = 0 ; Writeln(X)

23. 0, a, b, X mod 2 = 1, k:=k+1

 

o del pirmo, tai atsakymas D, nes antras lygmuo tai ir yra tas *.*.(pvz 1.2).

prie ko cia tas pultelis? Tipo ir ji pritraukia? :)

19/30 atrodo

2 klaidos pas mane :). Padariau klaidas su numeriais->zenklais ir tinklalapiu. Kazkaip pasirode, kad vienas dokumentas, dar nebutinai tinklalapis :). O su zenklais nesupratau ko nori is manes.

CyBeR, matai putojos del to, kad yra sukurta spec. programa, kuri automatiskai paima faila/-us(is "my docs"). Kadangi tu irasei ant dekstopo, tai ta programa, neras tavo atsakymu failo. Bet nemanau, kad cia didele beda :)(paprasciausiai is dekstopo i my docs perkeli ir vsio).

1. Mažų mažiausiai įsitvirtinti ir nors centą pliusuoti Rush NL50 arba Reg NL100. Prie geros sėkmės nesustoti čia.

2. Rasti laiko, noro ir pinigų, bent vienam coachi'nimo paketui (5-6h).

3. Rasti laiko, noro ir pamėginti prasimušti bent į UO (neprioritetinė).

4. Pamėginti rasti daugiau laiko darbui su pokeriu, o ne žaidimui (mažai tikėtina).

5. Pagaliau paimt auksą nors vienose apskrities šachmatų varžybose, o ne susimauti kaip visada paskutinėse partijose :DD

hehe, paskutinis punktas geras :)

o man? :)

as prisijungsiu! mano nick'as Tommis.

Sveiki reik pagalbos, kuriu skelbimu puslapi su Joomla+AdsManager ziureti cia

 

Pirma dar neradau budo, kaip sutvarkyti nuotrauku dejimo forma. kad matytusi nuotraukos, kiek maciau kas naudoja AdsManager visi be vartotoju nuotrauku, nors dedant skelbima gali deti, gal kas zino ko truksta?

 

Kaip isimti AdsManager meniu kaireje paliekant tik skelbimu grupes, o isimti kelis meniu, o issiaiskinti del ko neveikia tie puslapiai

 

Sekantis bandau ideti i skelbimo dejimo forma kad pasirinktu is kokios srities randasi, Lietuvoje naudoja miesto, as turiu naudoti srytis nes Ispanija susideda is 50 sriciu (apie miestus nekalbu) susiduriau su problema kad man neleidzia deti visu 50 man issaugo tik 44 ir ismeta kad tipo su servu kazkas blogai.

 

taip pat srytis noriu ideti i jieskojimo forma neisplestu budu, isplestiniam ner problemu idedu, bet i ta pagrindini kad apacioje pasirinkus kategoria galetum pasirinkti sriti nezinau kaip ikelti.

 

Jai kas gali padeti busiu dekingas, i dizaina kolkas nekreipkit demesio, dar keisis. Iki to einu pradesiu kurti foruma

meniu, tai nesunku, turi ziureti moduli, arba meniu admin panelyje

 

Tas sritis gali det ir tiesiai i MYSQL, galbut yra klaida kokia... Arba tos sritys naudoja nereikalingus zenklus ir meta error

 

linkus geresnius gali sukurti su SEO funkcija jei gerai pamenu, arba reikia plugino, bet lygtais jau buna sitas. Jeigu nori galeciau biski padet, bet sitos kalbos nei bum bum as :D

sekmes visiems ;)

imam kita :lol:

nu jau 5-0 laimi galima kaip ir dziaugtis :lol:

Rodovre buvo nužiūrėtas, ir priimamas

Rødovre Mighty Bulls - ToTempo HVIK (1x2) [email protected]

 

P.S. Siulydami parašykite bent keleta žodžių, kodėl jie turėtu but verti dagono.

 

šitą paėmiau žiūrėsim kaip bus. sėkmės.

+7,7Lt

 

1 savaite: +100,31

 

smagu, pirma savaite iveikta, dabar zaisim is profito :lol:

 

kaip suprasti 1savaite? :D, taigi jau 47dienos praejo

http://www.travian.lt/?uc=ltx_2307 tiems kurie dar nespejo uzsireginti registruokites per mane :lol:

as taip pat zaisiu Romenas(maisytas), manau geriausiai pietryciai ^_^