Navigacija

Vartotojų tinkle

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

Registruoti nariai: 25,956
Naujausias narys: saulyzas

Naujausi straipsniai

Paskutiniai nariai

MaFetas 1 savaitė
ozzWANTED 3 savaitės
saulyzas 5 savaitės
TOMIJUS 6 savaitės
Reikalas15 savaitės
Jaunelis21 savaitės
lanis21 savaitės
And2s22 savaitės
Memento Mori27 savaitės
Quwqkibor30 savaitės
asirija33 savaitės
tomeem35 savaitės
weberiz39 savaitės
mRokass41 savaitės
kartoonas42 savaitės
grunskiz45 savaitės
Bruksnys45 savaitės
illusion46 savaitės
ordo47 savaitės
Jurgaila47 savaitės

Informacija:


OS: Unknown
Naršyklė: Nežinoma
IP: 3.15.138.214
Naujienų: 529
Straipsnių: 235
Temų: 52,588
Postų: 522,537
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.

ozzWANTED
2024 Lap. 30 15:11:14
Taip, vis dar up šypsosi

MaFetas
2024 Lap. 13 22:11:57
hey how, geras dar veikiantis saitas?

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

Š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
Pascal: klausimai
Forumas | PHP-Fusion, WordPress, Shopify, PHP ir MySQL (PROGRAMAVIMAS) | C#, Python, Java, JS, C++ klausimai

Puslapis 3 iš 5 < 1 2 3 4 5 >
Autorius: s1Nk Peržiūrų: 90210      Spausdinti temą
2010 Rugs. 16 21:09:32          81 žinutė iš 169
Spausdinti pranešimą
Na aišku sprendimų yra labai daug, bet čia tikrai nėra pats optimaliausias ar kaip čia pasakius, na ir vėlgi nedėk ant galo dviejų readln;

Ir beroc šitai su trimačiais masyvais galima atlikti...

Su pagarba, jūsų draugas ir kolega Cause
www.subotkevic.com - [url]www.saskaitago
2010 Rugs. 16 21:09:03          82 žinutė iš 169
Spausdinti pranešimą
Čia paprastas uždavinys tai ir paprasta sprendima reikia sugalvot. Nes čia uždavinys pradedančiajam.

www.muz1ka.lt
2010 Rugs. 16 21:09:06          83 žinutė iš 169
Spausdinti pranešimą
Pabandyk dėt vieną readln ir nedėk ; po jo.

www.creatium.lt
2010 Rugs. 16 21:09:50          84 žinutė iš 169
Spausdinti pranešimą
Gale nutrynis readLn nieko nekeis. akinanti šypsen Kaškaip ta daugyba reik suprastynt. šypsosi Čia būtu galima naudot daug kartu a*a, bet uždavini parašyta panaudot kuo mažiau. šypsosi

www.muz1ka.lt
Redagavo s1Nk 2010 Rugs. 16 21:09:37
2010 Rugs. 16 21:09:35          85 žinutė iš 169
Spausdinti pranešimą
s1Nk parašė:
Gale nutrynis readLn nieko nekeis. akinanti šypsen Kaškaip ta daugyba reik suprastynt. šypsosi


Aš bandžiau išspręst tą problemą, kad neužtenka vieno readln šypsosi

www.creatium.lt
2010 Rugs. 16 21:09:48          86 žinutė iš 169
Spausdinti pranešimą
Nžn jau kelinta kartą kartoju dėlto ReadLn; ,kad ne jis svarbus o pats veiksmas kėlimo. Nes dabar tekelia trečiuoju.

www.muz1ka.lt
2010 Rugs. 16 22:09:29          87 žinutė iš 169
Spausdinti pranešimą
Nu tai panaudok while.. arba for,
na tarkim įsivaizduok, kol i yra mažiau nei 28 a dauginam iš a ir t.t. nu vnž panaudosi galima sakyti tik vieną daugybos ženklą, o sudaugins už tave ciklas...

Su pagarba, jūsų draugas ir kolega Cause
www.subotkevic.com - [url]www.saskaitago
2010 Rugs. 18 16:09:50          88 žinutė iš 169
Spausdinti pranešimą
Nėra kas veikt išpresčiau koki uždavinį. Gal kas žino kur rast tokiu uždaviniu kur per informatikos pamokas duoda? šypsosi

www.muz1ka.lt
2010 Rugs. 18 16:09:35          89 žinutė iš 169
Spausdinti pranešimą
10-tos klasės uždaviniai:

1. Žinome stačiakampio ilgį ir plotį. Raskite plotą ir perimetrą.
2. Duotas sveikų skaičių intervalas raskite sumą tų skaičių kurie baigiasi 0.

Radau pora pas save sąsiuvinyje šypsosi

http://itouch.lt - iBendruomenė.
2010 Rugs. 18 17:09:06          90 žinutė iš 169
Spausdinti pranešimą
Na ir uždaviniai akinanti šypsen Na bet tikriausiai dėl to, kad 10 klasėje tik prasideda pascal'is, bet keista kaip dešimtokams tokius lengvus uždavinius užduoda...

Su pagarba, jūsų draugas ir kolega Cause
www.subotkevic.com - [url]www.saskaitago
2010 Rugs. 18 17:09:14          91 žinutė iš 169
Spausdinti pranešimą
Nu aš daug pratimų nesirašiau į sąsiuvinį, tai parašiau tiek kiek pasitaikė ;D

http://itouch.lt - iBendruomenė.
2010 Rugs. 18 17:09:21          92 žinutė iš 169
Spausdinti pranešimą

program perimetras_plotas;
var a,b:integer;
begin
WriteLn('Iveskite stačiakampio ilgį:');
Read(a);
WriteLn('Iveskite stačiakampio plotį:');
Read(b);
WriteLn('Plotas:',a*b,'Perimetras:',a+b+a+b);
Readln;
ReadLn;
end.


O antro nesuprantu uždavinio. Gal žinai biški sunkesniu, kur būtu neiliniai a+b, o kad biški pati kodą reiktu kitoki parašyt, nes dabar visur tas pats tik skaičiavimo uždavinys skiriasi. šypsosi

www.muz1ka.lt
2010 Rugs. 18 17:09:04          93 žinutė iš 169
Spausdinti pranešimą
Pavyzdziui susigalvok uzduoti sukurti zaidima Klausimanija(Be grafikos t.y Konsolei)
Susigalvok uzduoti sukurti Skaiciatuva ir t.t.
2010 Rugs. 18 17:09:22          94 žinutė iš 169
Spausdinti pranešimą
Ne kažin ar tokia programą prašyčiau. :}

www.muz1ka.lt
2010 Rugs. 20 18:09:48          95 žinutė iš 169
Spausdinti pranešimą
Pasakykit kaip pakelt 9-tuoju laipsniu. Informatikos mokytojas sakė nereik jokiu for ir pnš. Pats uždavinys sakė susideda iš triju daugybos veiksmų.

Čia kaip aš isivaizduoju ta programa, bent kaškaus panašaus.


program Bevardė6;
var a,b,c:longint;
begin
WriteLn('Iveskite a:');
Read(a);
WriteLn('Iveskite b:');
Read(b);
WriteLn(a*a, b*b, c*c);
b:=a*a;
c:=b*b;
Readln;
end.


www.muz1ka.lt
2010 Rugs. 20 18:09:41          96 žinutė iš 169
Spausdinti pranešimą

program laipsniai;
var a,b,c,rez : longint;
begin
Write('Įrašykite laipsnio pagrindą: ');
Readln(a);
rez:=1;
Write('Įrašykite laipsnio rodilkį: ');
Readln(b);
begin
for c:=1 to b do
begin
rez:=rez*a;
end;
end;
WriteLn(rez);
ReadLn;
end.

kels tau betkokiu laipsniumerkia akį

2010 Rugs. 20 19:09:03          97 žinutė iš 169
Spausdinti pranešimą
Na taip programa veikia, bet reikia padaryt be 'for'. šypsosi

www.muz1ka.lt
2010 Rugs. 20 19:09:30          98 žinutė iš 169
Spausdinti pranešimą
Be for, gali naudoti while... Na o jei išvis be ciklų, tai manau lengvesnio būdo nebėra...

Su pagarba, jūsų draugas ir kolega Cause
www.subotkevic.com - [url]www.saskaitago
2010 Rugs. 20 19:09:55          99 žinutė iš 169
Spausdinti pranešimą
Na mokytojas sakė kaškaip su kintamaisiais. šypsosi Su klasioku galvojom galvojom niekaip nesugalvojom. šypsosi

www.muz1ka.lt
2010 Rugs. 20 19:09:13          100 žinutė iš 169
Spausdinti pranešimą
Kintamieji, tai galima sakyti bet kas, tavo atvėju skaičius... Na aišku, kad su kintamaisiais be jų nieko nesuskaičiuotum, tačiau ciklus manau galima naudoti.

Su pagarba, jūsų draugas ir kolega Cause
www.subotkevic.com - [url]www.saskaitago
2010 Rugs. 20 19:09:14          101 žinutė iš 169
Spausdinti pranešimą
Tai aišku galima su ciklais, bet tai pats mokytojas sakė padaryt be ciklų. Pats apie tuos ciklus nelabai ka kertu. Na jeigu niekas nesugalvos gal kita pamoką mokytojas pats pasakys. akinanti šypsen

www.muz1ka.lt
2010 Rugs. 20 19:09:33          102 žinutė iš 169
Spausdinti pranešimą
papraščiausias variantas pakelt 9 laipsniu yra:


program laipsniai;
var a:integer;
begin
Write('Įrašykite skaičių: ');
Readln(a);
WriteLn('Pakėlus 9 laipsniu bus ',a*a*a*a*a*a*a*a*a);
ReadLn;
end.


tik pačią salyga t.y a*a*a... susitrumpink, dabar tingiu galvot. nes taip tikrai bus negerai, kas kad atsakymas teisingas šypsosi
2010 Rugs. 20 19:09:57          103 žinutė iš 169
Spausdinti pranešimą
iMantux, pats toki variantą buvau sugalvojes. Taigi reik padaryt su kuo mažiau daugybos veiksmu. O kaip sutrumpint tai ir klausiu. šypsosi

www.muz1ka.lt
2010 Rugs. 20 20:09:45          104 žinutė iš 169
Spausdinti pranešimą
Ir negalima naudoti jokių while ir repeat?

2010 Rugs. 20 20:09:29          105 žinutė iš 169
Spausdinti pranešimą
Ne. šypsosi Kai sudaugini 'a*a' gaunasi pakelta antruoju. Pirmas veiksmas tada reiktu isivest nauja kintamaji, Kuri keltu dar antruoju. Paskui trečia kintamaji kuri taip pat keltų antruoju. Na bent aš taip galvoju. galvoja

www.muz1ka.lt
2010 Rugs. 20 21:09:32          106 žinutė iš 169
Spausdinti pranešimą
Ai, štai prisiminiau, naudokis funkcija "goto", tarkim pvz:

 
:1
Writeln('Sveikas');
goto 1
goto 1
goto 1
Readln;
 


Beroc 3 kartus parašys sveikas, tiksliai nepamenu, bet kažkas tokio.

Su pagarba, jūsų draugas ir kolega Cause
www.subotkevic.com - [url]www.saskaitago
Redagavo Cause 2010 Rugs. 20 21:09:57
2010 Rugs. 20 21:09:25          107 žinutė iš 169
Spausdinti pranešimą
Tai man reikia parašyt be ciklu ir funkciju. Jei sugalvočiau tai galėčiau per informatikos pamokas girtis. akinanti šypsen

www.muz1ka.lt
2010 Rugs. 20 21:09:12          108 žinutė iš 169
Spausdinti pranešimą
Na tu ir pasakai... Be funkcijų... Tu be funkcijų išvis programos neišgautum akinanti šypsen

Su pagarba, jūsų draugas ir kolega Cause
www.subotkevic.com - [url]www.saskaitago
2010 Spa. 7 12:10:23          109 žinutė iš 169
Spausdinti pranešimą
Nu nžn, bet sugalvojau toki varianta su tuo laipsniu kėlimu.


 
program Bevardė6;
var a,b,c:longint;
begin
WriteLn('Iveskite a');
Read(a);
a:=a*a;
b:=a*a;
c:=b*b;
Write(c);
end.


www.muz1ka.lt
2010 Spa. 7 15:10:54          110 žinutė iš 169
Spausdinti pranešimą
Šiek tiek užduočių sprendimui šypsosi


Užduotys savarankiškam darbui:
 
1. Duoti du plokštumos taškai A(x1;y1) ir B(x2;y2). Nustatykite, kuris iš jų arčiau abscisių (OX) ašies.
 
2. Duo ti trys sveikieji skaičiai a, b ir c. Nustatykite, ar tarp jų yra lyginių skaičių.
 
3. Ar tarp skaičių a, b, c yra bent viena pora atvirkštinių skaičių?
 
4. Duotas triženklis skaičius. Nustatykite, ar jo skaitmenys išdėstyti didėjančiai.
 
5. Duotas triženklis skaičius n. Sudarykite naują triženklį skaičių, kurio skaitmenys tokie pat kaip duotojo skaičiaus n, tik išdėstyti mažėjimo tvarka.
 
6. Duoti trys sveikieji skaičiai a, b, c. Raskite dviejų didesnių sandaugą.
 
7. Duoti trys sveikieji skaičiai a, b, ir c. Nustatykite, ar galima iš tokio ilgio atkarpų sudaryti statųjį trikampį.
 
---
 
8. Raskite nelygybės ax + b < 0 sprendinius.
 
9. Nustatyti, ar taškas M(x; y) priklauso trikampiui ABC, kurio viršūnėmis yra taškai A(a; 0), B(0; a) ir C(0; 0)?
 
10. Nustatykite, ar galima rąstą, kurio skersmuo d, išimti pro stačiakampę angą, kurios plotis l ir aukštis h?
 
11. Raskite lygties ax2 + bx + c = 0 sprendinius.
 
12. Raskite dviejų tiesinių lygčių su dviem nežinomaisiais sistemos sprendinį:
 
 
13. Patikrinkite, kuris iš taškų A(x1; y1), B(x2; y2), C(x3; y3) priklauso sričiai:
 
 
14. Laikrodžio rodomą laiką, išreikštą valandomis minutėmis ir sekundėmis padidinkite viena sekunde. Parodykite pradinį ir po sekundes gautą laiką.
 
15. Nustatykite galimas apskritimo x2 + y2 = r2 ir tiesės y = kx + b padėtis (kertasi, liečiasi, neturi bendrų taškų).



Užduotys savarankiškam darbui: 
 
Nustatyti, ar skaičius pirminis ar sudėtinis. Jei sudėtinis – rasti jo daliklius ir jų kiekį.
 
Sugeneruokite skaičių seką iš intervalo [x; y]. Sekoje turi būti 40 narių. Raskite, kurie sekos nariai nesidalija iš 2 ir 7. Kiek tokių skaičių buvo sugeneruota?
 
Taupomasis bankas indėlininkams moka 3% dydžio metines palūkanas, kurios skaičiuojamos kiekvienų metų gale. Sudaryti programą, kuri, nurodžius indėlio dydį ir trukmę metais, suskaičiuotų palūkanų sumą.
Natūraliojo skaičiaus n skaitmenis užrašykite atbulai ir gautą skaičių ir duotąjį parodykite ekrane.
Kiek yra natūraliųjų skaičių n (n < 13), kurių ketvirtieji laipsniai baigiasi 6? Parodykite juos ekrane.
 
Kiek metų reikia laikyti pinigus taupomajame banke, kad, mokant 5% metinių palūkanų, pradinis indėlis padvigubėtų?
 
Raskite dviejų natūraliųjų skaičių m ir n didžiausią bendrą daliklį.
 
Apskaičiuokite sumą:
S = 1×n + 2×(n-1) + 3×(n-2) +...+ (n-1)×2 +1



Užduotys savarankiškam darbui: 
 
Parašykite funkciją, nustatančią, ar skaičius baigiasi dviem vienodais skaitmenimis, nelygiais nuliui (pvz.: 133 arba 1244). Sudarykite programą, kuri rastų visus dviženklius skaičius, kurių kvadratas baigiasi dviem vienodais skaitmenimis, nelygiais nuliui (pvz.: 122=144). Kiek tokių dviženklių skaičių yra?
 
Funkcija nustato, ar trys natūralieji skaičiai gali būti stačiojo trikampio kraštinėmis. Raskite visus triženklius skaičius, kurių skaitmenys yra stačiojo trikampio kraštinių ilgiai.
Funkcija nustato, ar duotas natūralusis skaičius pirminis. Raskite visus intervalo [x; y] pirminius skaičius. Jeigu pirminių intervale nėra - informuokite.
Funkcija apskaičiuoja duotojo sveiko skaičiaus faktorialą. Pasinaudodami funkcija patikrinkite, ar teisinga nelygybė, kai n duotas skaičius:
 
Procedūra nustato, ar natūralusis skaičius n dalosi iš jo skaitmenų kvadratų sumos? Parodykite visus triženklius skaičius, pasižyminčius šia savybe.
Procedūra nustato, ar natūralusis skaičius n dalosi iš jo daliklių, nelygių 1 ir n, sumos? Parodykite visus dviženklius skaičius, nepasižyminčius tokia savybe.
Procedūra nustato, ar triženklio skaičiaus kvadrato paskutinieji skaitmenys sudaro tą patį skaičių? Parodykite visus triženklius skaičius, pasižyminčius šia savybe.



Užduotys savarankiškam darbui:
 
1. Parodykite ekrane tuos masyvo elementus, kurie patenka į intervalą [x; y]. Jeigu tokių nėra - informuokite.
 
2. Duotas realiųjų skaičių masyvas iš n elementų. Raskite masyvo elementų aritmetinį vidurkį.
 
3. Sugenerukite du vienmačius realiųjų skaičių masyvus, turinčius po n elementų:
raskite tų masyvų atitinkamų elementų sandaugų sumą;
raskite tų masyvų atitinkamų elementų sumų sandaugą;
nustatykite ar lygūs tų masyvų atitinkami elementai.
 
4. Į naują masyvą sudėkite tuos duoto masyvo elementus, kurių paskutinis skaitmuo lygus 5. Abu masyvus parodykite.
 
5. Duotas realiųjų skaičių masyvas a iš n elementų. Sudarykite naują masyvą b, kurio elementai apskaičiuojami pagal formulę: b[i]=(a[i]+a[n])/2.
 
6. Duotas vienmatis masyvas a iš n skirtingų elementų ir vienmatis masyvas b iš m skirtingų elementų. Raskite tokius masyvo a elementus, kurių nėra masyve b.
 
7. Duotas vienmatis realiųjų skaičių masyvas iš n elementų. Į naują masyvą sudėkite tik tuos elementus, kurių numeriai yra sudėtiniai skaičiai.
 
8. Duotas vienmatis sveikųjų skaičių masyvas iš n elementų. Raskite duoto masyvo medianą (Mediana vadinamas sutvarkyto masyvo vidurinis elementas, kai masyvo elementų kiekis nelyginis, ir dviejų vidurinių elementų aritmetinis vidurkis, kai masyvo elementų kiekis - lyginis).
 
9.Duotas vienmatis realiųjų skaičių masyvas iš n elementų. Masyvo elementai gali būti 0, 1 arba 2. Sutvarkykite masyvo elementus taip, kad pradžioje būtų vienetai, po to nuliai, o pabaigoje dvejetai.



Užduotys savarankiškam darbui:
Duoti trys žodžiai. Iš jų sudarykite sakinį ir parodykite ekrane.
Duotas sakinys. Kiek jame skyrybos ženklų?
Kiek duotame sakinyje žodžių, kurie prasideda ir baigiasi raide 's'?
Pirmą sakinio žodį sukeiskite su paskutiniuoju.
Duotas sakinys. Nustatykite, ar jame yra žodis x. Jeigu žodis yra, pakeiskite jį žodžiu y. Pakeistą sakinį parodykite ekrane.
Raskite ilgiausią duotojo sakinio žodį.
Rašant tekstą „drebėjo“ ranka ir kai kur pasirašė vietoje vienos raidės kelios tos pačios. Išmeskite iš teksto tas nereikalingas raides.
Sakinyje be raidžių yra ir skaitmenų. Tuos skaitmenis išrinkite ir sudarykite didžiausią galimą sveiką skaičių.
Duotas masyvas, kurio elementai Jūsų grupės draugų vardai. Papildykite masyvą dviem naujais vardais, sutvarkykite naują sąrašą abėcėlės tvarka ir parodykite ekrane.
Duotojo sakinio žodžius išdėstykite abėcėlės tvarka.
Duotas sakinys, kuriame yra skaičių. Nustatykite, ar sakinyje yra bent vienas skaičius, kuris dalijasi iš 3.
Duota data užrašoma pilnu formatu (pvz. 2007 m. rugsėjo mėn. 10 d.). Sudarykite programą, kuri duotą datą užrašytų sutrumpintu formatu (pvz. 2007.09.10).



Užduotys savarankiškam darbui: 
Duotas dvimatis masyvas turintis n eilučių ir m stulpelių. Nustatykite, ar skaičius x yra duotame masyve. Jeigu taip, nustatykite, kurioje eilutėje ir kuriame stulpelyje jis stovi.
Duotas dvimatis masyvas turintis n eilučių ir m stulpelių. Raskite didžiausią šio masyvo elementą. Kiek kartų didžiausio elemento reikšmė pasikartoja duotame masyve?
Duotas dvimatis masyvas turintis n eilučių ir m stulpelių. Raskite kiekvienos eilutės didžiausią elementą.
Duotas dvimatis masyvas turintis n eilučių ir m stulpelių. Raskite kiekvieno stulpelio sumą ir nustatykite, kurio stulpelio suma mažiausia.
Duotas dvimatis masyvas turintis n eilučių ir m stulpelių. Masyvo elementai simboliai. Apskaičiuokite kiekvieno simbolio pasikartojimo dažnį.
Dvimačio masyvo, sudaryto iš n eilučių ir m stulpelių elementus sukeiskite horizontalios simetrijos ašies atžvilgiu.
Sudarykite dvimatį masyvą iš n eilučių ir m stulpelių, kurio elementai:
a[i,j]=i j .
Duotas dvimatis masyvas, sudaryta iš n eilučių ir n stulpelių. Raskite didžiausią kiekvienos eilutės elementą ir sukeiskite vietomis su tos eilutės elementu, esančiu šalutinėje įstrižainėje.
Duotas dvimatis masyvas, sudarytas iš n eilučių ir m stulpelių. Išbraukite masyvo k–tąją eilutę ir p–tąjį stulpelį.
Duotas dvimatis masyvas, sudarytas iš n eilučių ir n stulpelių. Rasti teigiamų elementų, esančių po pagrindine įstrižaine, sumą ir neigimų elementų, esančių po šalutine įstrižaine, sandaugą.



Užduotys savarankiškam darbui: 
Duotas dvimatis masyvas turintis n eilučių ir m stulpelių. Nustatykite, ar skaičius x yra duotame masyve. Jeigu taip, nustatykite, kurioje eilutėje ir kuriame stulpelyje jis stovi.
Duotas dvimatis masyvas turintis n eilučių ir m stulpelių. Raskite didžiausią šio masyvo elementą. Kiek kartų didžiausio elemento reikšmė pasikartoja duotame masyve?
Duotas dvimatis masyvas turintis n eilučių ir m stulpelių. Raskite kiekvienos eilutės didžiausią elementą.
Duotas dvimatis masyvas turintis n eilučių ir m stulpelių. Raskite kiekvieno stulpelio sumą ir nustatykite, kurio stulpelio suma mažiausia.
Duotas dvimatis masyvas turintis n eilučių ir m stulpelių. Masyvo elementai simboliai. Apskaičiuokite kiekvieno simbolio pasikartojimo dažnį.
Dvimačio masyvo, sudaryto iš n eilučių ir m stulpelių elementus sukeiskite horizontalios simetrijos ašies atžvilgiu.
Sudarykite dvimatį masyvą iš n eilučių ir m stulpelių, kurio elementai:
a[i,j]=i j .
Duotas dvimatis masyvas, sudaryta iš n eilučių ir n stulpelių. Raskite didžiausią kiekvienos eilutės elementą ir sukeiskite vietomis su tos eilutės elementu, esančiu šalutinėje įstrižainėje.
Duotas dvimatis masyvas, sudarytas iš n eilučių ir m stulpelių. Išbraukite masyvo k–tąją eilutę ir p–tąjį stulpelį.
Duotas dvimatis masyvas, sudarytas iš n eilučių ir n stulpelių. Rasti teigiamų elementų, esančių po pagrindine įstrižaine, sumą ir neigimų elementų, esančių po šalutine įstrižaine, sandaugą.

2010 Spa. 7 21:10:33          111 žinutė iš 169
Spausdinti pranešimą
bruzgis didelis dėkui. šypsosi

www.muz1ka.lt
2010 Spa. 11 14:10:11          112 žinutė iš 169
Spausdinti pranešimą
Reik išsprest toki uždavini.

Apskaičiuokite, kam lygu 2(pakelta 28), panaudodami kuo mažiau daugybos veiksmų.
Vietoj 'integer' panaudokite duomenų tipą 'longint'

Uždavinys regis turėtu būt panašus kaip ankčiau mano sprestas, tik manau turėtu dasidėt keli daugybos veiksmai. šypsosi

www.muz1ka.lt
Redagavo s1Nk 2010 Spa. 11 14:10:13
2010 Spa. 11 17:10:43          113 žinutė iš 169
Spausdinti pranešimą
OT, bet gal turi Lt free pascal setup, nes googlei kai išmeta jį atsisiųsti meta error'ą http://ims.mii.lt/fps/lt/about/
2010 Spa. 11 18:10:23          114 žinutė iš 169
Spausdinti pranešimą
http://www.failai.lt/smjvnj6anbm...lt.rar.htm

www.muz1ka.lt
2010 Spa. 11 18:10:40          115 žinutė iš 169
Spausdinti pranešimą
Cia kam reikejo kelimas laipsniu.
Tai vat paprasciausia programa kelimas laipsniu

program laipsnis;
var a,laip: integer;
begin
writeln ('Iveskite skaiciu: ');
readln (a);
laip:=sqr(a);
writeln('pakelus ',a ,' kvadratu, gauname: ',laip);
Readln;
end.

ir sorry iskarto uz flooda, bet gal galim man biski rimciau padeti, reikia surasti amziaus vidurki n mokyniu, kai as turiu gymimo metus, menesi ir diena, (tarkim kad mokyniu yra 3, ir jie gime skirtingomis dienomis menesiais ir dienom), sita reikia parasyta arba funkcija arba procedura. + jeigu pades susygaudyti tai visa programa: program mokyniai;
uses Crt;
type pavarde = array [1..30] of string;
metai = array [1..30] of integer;
menuo = array [1..30] of integer;
diena = array [1..30] of integer;
{-----------------------------------------------------------}
procedure Duomenys (var a: pavarde; var b: metai;
var c: menuo; var d: diena;
var n: integer);
var i : integer;
begin
Write ('Kiek studentu yra?'); Readln (n);
writeln ('iveskite studento pavarde,gimimo metus, menesi ir diena:');
for i:= 1 to n do
begin
write (i,'pavarde:'); readln (a[i]);
write ('gimimo metai:'); readln (b[i]);
write ('menuo:'); readln (c[i]);
write ('diena:'); readln (d[i]);
end;
writeln;
end;
{-----------------------------------------------------------}
function jaun ( b: metai;
c: menuo; d: diena;
n: integer):integer;
var max,i:integer;
begin
max:=1;
for i:= 2 to n do
if (b[max] < b[i])
then max:= i
else if (b[max] = b[i]) and (c[max]< c[i])
then max:=i
else if (c[max]= c[i]) and (b[max] = b[i]) and (d[max]<d[i])
then max:=i;
jaun:=max;
end;
{-----------------------------------------------------------}
function vyr ( b: metai;
c: menuo; d: diena;
n: integer):integer;
var min,i:integer;
begin
min:=1;
for i:= 2 to n do
if (b[min] > b[i])
then min:= i
else if (b[min] = b[i]) and (c[min]> c[i])
then min:=i
else if (c[min]= c[i]) and (b[min] = b[i]) and (d[min]>d[i])
then min:=i;
vyr:=min;
end;
{-----------------------------------------------------------}
procedure senejimas (var a: pavarde; var b: metai;
var c: menuo; var d: diena;
var n: integer);
var temp1,temp2,temp3,i,j:integer; temp4: string;
begin
for i:= 1 to n-1 do
for j:= i+1 to n do
if (b[i]<b[j])
then begin
temp1:=b[i];
temp2:=c[i];
temp3:=d[i];
temp4:=a[i];
b[i]:=b[j];
c[i]:=c[j];
d[i]:=d[j];
a[i]:=a[j];
b[j]:= temp1;
c[j]:= temp2;
d[j]:= temp3;
a[j]:= temp4;
end
else if (b[i]=b[j]) and (c[i]<c[j])
then begin
temp1:=b[i];
temp2:=c[i];
temp3:=d[i];
temp4:=a[i];
b[i]:=b[j];
c[i]:=c[j];
d[i]:=d[j];
a[i]:=a[j];
b[j]:= temp1;
c[j]:= temp2;
d[j]:= temp3;
a[j]:= temp4;
end
else if (b[i]=b[j]) and (c[i]=c[j]) and (d[i]<d[j])
then begin
temp1:=b[i];
temp2:=c[i];
temp3:=d[i];
temp4:=a[i];
b[i]:=b[j];
c[i]:=c[j];
d[i]:=d[j];
a[i]:=a[j];
b[j]:= temp1;
c[j]:= temp2;
d[j]:= temp3;
a[j]:= temp4;
end;
end;

{-------------------------}
procedure rykiavimas ( pav: pavarde;
n: integer);
var i : integer;
begin
for i:= 1 to n do
writeln (pav[i]) ;
end;
{-------------------------}
procedure zodis;
begin
writeln ('Jauniausias:');
end;
{-------------------------}
procedure zodis2;
begin
writeln ('Vyriausias:');
end;
{-------------------------}
procedure zodis3;
begin
writeln ('Nuo jauniausio iki seniausio:');
end;
{------Padariau biski kitaip šypsosi----}
procedure vidurkis (var b: metai;
n: integer; vid:real; q:real);
var i,sum:integer;
begin
sum:=0;
for i:= 1 to n do
sum:=sum+b[i];
vid:=sum/ n;
q:=2010-vid;

writeln ('vidurkis gimimo metais: ', Round(vid));
writeln ('vidurkis metais: ',Round(q));

end;
{-------------------------}
var pav: pavarde;
met: metai;
men: menuo;
die: diena;
n : integer;
v: real;
begin
ClrScr;
Duomenys (pav,met,men,die,n);
zodis;
writeln (jaun (met,men,die,n));
zodis2;
writeln (vyr (met,men,die,n));
zodis3;
senejimas (pav,met,men,die,n);
rykiavimas (pav,n);
readln;

end.



2010 Spa. 11 21:10:20          116 žinutė iš 169
Spausdinti pranešimą
Cia kam reikejo kelimas laipsniu.
Tai vat paprasciausia programa kelimas laipsniu


Man nedera programos su while, sqr ir pnš reikia parašyti programa su daugybos veiksmais. Iki kitos informatikos pamokos reik sugalvot. šypsosi

www.muz1ka.lt
2010 Spa. 11 21:10:39          117 žinutė iš 169
Spausdinti pranešimą
sink, arba vien daugyba, arba naudoji cikla for, while arba repeat.
2010 Spa. 11 22:10:08          118 žinutė iš 169
Spausdinti pranešimą
Tai man ir reik su daugyba. Tik nelabai sekasi išgalvot. šypsosi Sakė mokytojas, kad reik su kintamaisiais kaškaip. šypsosi

www.muz1ka.lt
2010 Spa. 12 14:10:39          119 žinutė iš 169
Spausdinti pranešimą
Jeigu reikia tik 2 skaitmenis sudauginti.

program sandauga;
var a,b,san : real; {nes kad galetum per kableli daugint}
begin
WriteLn('iveskite pirma skaiciu: ');
Readln (a);
WriteLn('iveskite antra skaiciu: ');
Readln (b);
san:=a*b;
writeln ('atsakymas : ',san:2:2);
readln;
end.

2010 Spa. 13 18:10:22          120 žinutė iš 169
Spausdinti pranešimą
Man reik 2 laipsniu pakelta 28, o ne paprastos daugybos. drovus

www.muz1ka.lt
Puslapis 3 iš 5 < 1 2 3 4 5 >
Peršokti į forumą: