Navigacija

Namai Forumas PAIEŠKA ! ! Pagrindinės temos ! Nuorodų katalogas Didž. Php-F saitai Kontaktai
NAUDINGA
Straipsniai DUK Siuntimai Skriptų biblioteka Modai, dizainai Modai šiame saite D.U.K. Informacija Hostingai Domenai
Naudotojo vadovas v7 V6 ir V7 galimybių palyginimas DEMO
NUORODOS
Modifikacijos, panelės Temos/dizainai
PASLAUGOS
Reklama VIP hostingas
Pask. komentarai Administracija

Vartotojų tinkle

Prisijungusių svečių: 343
Prisijungusių narių: 0
Prisijungusių narių nėra

Registruoti nariai: 25,955
Naujausias narys: Johny

Naujausi straipsniai

Įprasti:

Skirti naujokams:

Paskutiniai nariai

Johny 2 savaitės
Reikalas 3 savaitės
Jaunelis 9 savaitės
lanis 9 savaitės
And2s10 savaitės
Memento Mori15 savaitės
ozzWANTED16 savaitės
Quwqkibor17 savaitės
asirija21 savaitės
tomeem23 savaitės
weberiz27 savaitės
mRokass29 savaitės
kartoonas30 savaitės
iaescortsmap30 savaitės
grunskiz33 savaitės
Bruksnys33 savaitės
illusion33 savaitės
ordo34 savaitės
Jurgaila35 savaitės
originalcs1635 savaitės

Informacija:


OS: Unknown
Naršyklė: Nežinoma
IP: 3.145.179.35
Naujienų: 529
Straipsnių: 235
Temų: 52,588
Postų: 522,528
Postų pask. parą: 0
Shout'ų pask. parą: 0
P.S.C. pask. parą: 0
Nuorodų kataloge: 13

Lankomumo Statistika

Peržiūrų šiandien: 22

Iš viso peržiūrų: 22948724

Prisijungti

REGISTRUOTIS
Nario vardas

Slaptažodis



Pamiršai slaptažodį?
Paprašyk naujo
Aktyvuoti save

Šaukykla

Jei norite rašyti žinutes, turite prisijungti.

Jaunelis
2024 Lie. 25 11:07:43
Oho vis dar veikia svetainė akinanti šypsen Šimtas metų, matau Šaukykloje nuostalgija. Smagu panaršyt po forumą ir pažiūrėt senas temas šypsosi

And2s
2024 Lie. 17 19:07:04
2008 pirmą kart čia patekau, man buvo 10m ir čia pramokau programavimo.. smagu skaityti senas žinutes, tokia nostalgija akinanti šypsen ačiū Ozz kad saugoji šitą kultūrinį reliktą šypsosi

ozzWANTED
2024 Sau. 17 01:01:00
Desperatiškus komentarus šaukykloje su accountu po mėnesio prasibuvimo, ištryniau. Pasaulis ir taip juodas. Įjungiam šviesą, prašviesės. šypsosi

Majakas
2023 Gru. 10 19:12:39
Negaliu patikėti jog žinutės/pranešimai visi yra nuo 2008 m akinanti šypsen

Žmogus
2023 Rugs. 7 21:09:14
O gal BloodKiller pasijungs?

Šaukyklos archyvas

Apklausa

Ar esate patenkinti lietuviško vertimo kokybe?

Taip!

Taip, bet yra ką taisyti (parašysiu komentaruose)

Ne

Norėdamas balsuoti turite prisijungti.
Archyvas
Reklama 400x60
Padėkit išspresti
Forumas | Kita | Off-Topic diskusijos
Autorius: H2O Peržiūrų: 2001      Spausdinti temą
2010 Sau. 12 18:01:17          1 žinutė iš 10
Spausdinti pranešimą
PVZ: Žmogus kasdien uždirba tam tikrą skaičių (x) pinigų. Uždarbį įvesime klaviatūra. Paskaičiuokite kiek žmogus uždirba per vieną savaitę.

Program uždarbis;
Var x, uždarbis, i : integer;
Begin

Uždarbis := 0
For i:= 1 to 7 do

Begin
Writeln ( ‘Iveskite uzdarbi ’ , i);
Readln ( x);

Uzdarbis := uzdarbis + x;
End,

Žmogus gavęs atlyginimą kasdien išleidžia tam tikrą sumą pinigų (x) parašykite programą , kuri suskaičiuotų kas lieka po 8 dienų išlaidų.

Kiekvienos dienos išlaidas įveskite klaviatūra pvz uždarbis 400, o išlaidos 20, 50, 30, 100, 5, 10, 10, 15
2010 Sau. 12 18:01:48          2 žinutė iš 10
Spausdinti pranešimą
Paskalio nebemoki? ;DDD
programavimo paslaugos pm. ieškau projekto.
2010 Sau. 12 18:01:36          3 žinutė iš 10
Spausdinti pranešimą
Toli grazu man cia akinanti šypsen
Užauges būsiu Gaisrinės mašina.
2010 Sau. 12 18:01:29          4 žinutė iš 10
Spausdinti pranešimą
Na nemoku akinanti šypsen būk gerulis ir išspresk. šypsosi
2010 Sau. 12 18:01:00          5 žinutė iš 10
Spausdinti pranešimą
Jei pateiktum normalią sąlygą išspręsčiau - bet čia nesupratau kokia turi būt progra..

Tu kelintokas?
programavimo paslaugos pm. ieškau projekto.
Redagavo ibodom 2010 Sau. 12 18:01:05
2010 Sau. 12 18:01:58          6 žinutė iš 10
Spausdinti pranešimą
Kas buvo užduota ant lapo ta nupyliau čia.
aš dešimtokas jeigu manes klausi.
2010 Sau. 12 18:01:58          7 žinutė iš 10
Spausdinti pranešimą
program islaidoss;

    var uzdarbis, islaidos, diena: integer;
   
begin

Writeln ('Uzdarbis:', ' ');

Readln ( uzdarbis );

    for diena := 1 to 8 do
        begin
            WriteLn ( diena,' ', ' dienos islaidos:');
            ReadLn ( islaidos );
            uzdarbis := uzdarbis - islaidos;
        end;

WriteLn ( 'Is uzdarbio liko:', ' ', uzdarbis );
ReadLn;

end.



programavimo paslaugos pm. ieškau projekto.
Redagavo ibodom 2010 Sau. 12 18:01:06
2010 Sau. 12 18:01:18          8 žinutė iš 10
Spausdinti pranešimą
jeigu nesunku išjunkt smile
2010 Sau. 12 18:01:29          9 žinutė iš 10
Spausdinti pranešimą
melo151 parašė:
jeigu nesunku išjunkt smile


Done.merkia akį
programavimo paslaugos pm. ieškau projekto.
2010 Sau. 12 18:01:35          10 žinutė iš 10
Spausdinti pranešimą
O didelis dėkui +10merkia akį mldc.
Peršokti į forumą: