DjiXas

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

... 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,

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,

Jeigu T = True.

M... pagalbos reikia :-) Te6.txt užrašyta tokia skaičių eilutė: 13 16 -5 9 4 program Te6; var a, b, c, d : integer; t : boolean; F : text; begin Assign(F, 'Te6.txt'); Reset(F); Read(F, a, b); t := a > b; if t then Read(F, c, d, a) else Read(F, a, c, d); Write(a:4, b:4, c:4, d:4, t:8); Close(F); end. Tai pagal mano supratimą: Read F,a b, tai nuskaito 13 ir 16? Tada true jeigu 13 > 16, tai reiskia false, tada einam iškarto prie "else", taip? else Read(F, a, c, d); nuskaito 13 -5 9? ir parašo 13 16 -5 9 FALSE ??? Wtf Kam tada į kodą žiūrėt, jeigu pamatai write ant galo ir vis

M, dėkui :-)

Jis klausė:

Oi, :-) Dėkui.

program TrysBylos; var prad, { pradinių duomenų byla } pirma, antra: text; { rezultatų bylos } x, y: integer; { perskaityti skaičiai } begin assign(prad, 'C:\DUOMENYS\SKAICIAI.TXT'); reset(prad); assign(pirma, 'C:\DUOMENYS\PIRMA.TXT'); rewrite(pirma); assign(antra, 'C:\DUOMENYS\ANTRA.TXT'); rewrite(antra); read(prad, x); writeln(pirma, x); read(prad, x, y); writeln(antra, x, y: 10) end. Kodėl toks kodas neveikia? Nieko neįrašo į tas bylas (kopijuota iš pavyzdžio)...

Neįmanoma.

Ten cunamio linko kodas, o ne mano.

Blogas URL. http://www.delfi.lt/news/daily/voxpopuli/a...php?id=13299157 Geras: http://www.delfi.lt/news/daily/voxpopuli/a...php?id=13299157

Unikalių.

Kitaip sakant: ilgiau laiko sugaiši tvarkydamas frames, negu padarydamas normalų puslapį :-)

Taip. :-) http://www.google.com/search?num=30&hl...amp;btnG=Search

Tikriausiai pagaus visus, todėl jeigu header.html bus prikišta visokių keyword'ų, o kituose nieko, tas iškils į viršų, atidarydamas tą web'ą, lankytojas tik ir matys header.html be jokių kitų frame'ų, todėl reikia viską optimizuoti, galima sumesti linkus į noframes ir t.t. Daugiau info.

Kalbi apie šitą: http://www.egzaminai.lt/EasyAdmin/sys/files/inf-valst.pdf ? Programos vertinimas Kas vertinama Taškai Tinkami programos darbo rezultatai 6 Duomenų skaitymas iš failo 2 Lygiagrečiai sujungtų varžų grandies bendros varžos reikšmės skaičiavimas 3 Visos grandinės varžos skaičiavimas 2 Programos struktūra 1 Rezultatų surašymas į failą 1 Programavimo stilius 2 Iš viso 17 Kas vertinama Taškai Tinkami programos darbo rezultatai 12 Pagrindinė programa 3 Duomenų skaitymo iš failo į masyvą procedūra 4 Rezultatų skaičiavimo procedūra 4 Programos tekstas Rezultatų rašymo į failą

Laptop'ą su didelių HDD ir daug Pascal literatūros.

Mjo, tik dabar pastebėjau. Juk šaltinis tai ne tavo, Galejai parasyti, jog straipsnis yra išvertas, o ne rašytas. http://www.cheatad.com/2006/06/14/how-goog...invalid-clicks/ Negražu taip :-)

Mm, nežinau dar :huh: Rytoj ryte susirinksim, tada sužinosiu :-) Kalniečiuose lyg ir sakė, nepamenu.

Taip.

Labas dar kartą :-) 1. Nebūtinai kiekvieną dieną, gali keistis kiekvieną minutę ir t.t. 2. Tai yra vienas iš faktorių, kurį naudoja paieškos sistemos rank'indamos tinklalapius, tačiau tai nėra vienas iš svarbiausių faktrorių. PR yra pervertintas. 3. Nebūtinai, tačiau rekomenduojama.

Jeigu su 301, tai Yahoo! būtų įmanoma, tačiau tas tinklalapis, į kuri redirect'insi, vistiek aukščiau stovės (su tais pačiais raktažodžiais). Taip, skirtingomis kalbomis, visi raktažodžiai bus skirtingi.

Taip, šiandien. Mane taipogi nervuoja tie terminai, praeitų metų pažiūrėjau, rašo apie kažkokias tai išnašas ir t.t.

program dėjau begin :huh: