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ų: 43
Prisijungusių narių: 0
Prisijungusių narių nėra

Registruoti nariai: 25,952
Naujausias narys: tomeem

Naujausi straipsniai

Įprasti:

Skirti naujokams:

Paskutiniai nariai

tomeem 1 savaitė
Reikalas 2 savaitės
weberiz 4 savaitės
mRokass 7 savaitės
kartoonas 8 savaitės
iaescortsmap 8 savaitės
ozzWANTED 9 savaitės
grunskiz10 savaitės
Bruksnys11 savaitės
illusion11 savaitės
ordo12 savaitės
Jurgaila13 savaitės
originalcs1613 savaitės
Rytis13 savaitės
halis15 savaitės
junkus18 savaitės
morlis18 savaitės
Majakas19 savaitės
andsoft20 savaitės
picolee9021 savaitės

Informacija:


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

Apocal
2023 Rugs. 2 18:09:23
Nu davai nuveikiam kažką akinanti šypsen. Prisijungti kada visi čia akinanti šypsen.

Apocal
2023 Rugs. 2 00:09:18
Šiaip atėjau pažiūrėti ar dar lopas nesby yra ar koks ten buvo.

Š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
C++: Pascal uzduotis. Labai reikia.
Forumas | PHP-Fusion, WordPress, Shopify, PHP ir MySQL (PROGRAMAVIMAS) | C#, Python, Java, JS, C++ klausimai
Autorius: Juste22 Peržiūrų: 2723      Spausdinti temą
2012 Bal. 30 20:04:44          1 žinutė iš 4
Spausdinti pranešimą
Sveiki, nelabai suprantu pascalio vienos uzduoties... Gal galite padeti? O ji skamba taip: Parasykite programa,kuri nustatytu ar du apskritimai kertasi, jeigu yra zinomi ju spinduliai r1 ir r2 bei centru koordinates (xc1;yc1) ir (xc2; yc2)
pvz r1=5 r2=7 xc1=0, yc1=0, xc2=4 yc=1 Apskritimai kertasi.
r1=1 r2=1 xc1=0, yc1=0, xc2=10 yc=10 Apskritimai nesikerta

Labai aciu~! šypsosi

3 atsakymai:
2012 Bal. 30 20:04:56          2 žinutė iš 4
Spausdinti pranešimą
Šiaip manau uždavinys nesudėtingas, užtektu if manau. Tik va nelabai aš ten ka gaudausi apie apskritimus, jei plačiau paaiškintum matematiškai, galėčiau padėt, arba gal atsiras kas kitas suprantantis padės. šypsosi
0

www.muz1ka.lt
2012 Geg. 1 07:05:15          3 žinutė iš 4
Spausdinti pranešimą
Supratau, as pati nelabai suprantu matematikos... Antrame trimestre turejau 6 žliumbia o si net nezinau kiek bus...
0
2012 Geg. 4 22:05:06          4 žinutė iš 4
Spausdinti pranešimą
program apskritimai;
Var r1, r2, xc1, yc1, xc2, yc2, ats : real;
begin
Write ('Įveskite pirmo apskritimo centro koordinates (xc1 ir yc1) '); ReadLn (xc1, yc1);
Write ('Įveskite pirmo apskritimo spindulį: '); ReadLn(r1);
Write ('Įveskite antro apskritimo centro koordinates (xc2 ir yc2) '); ReadLn (xc2, yc2);
Write ('Įveskite antro apskritimo spindulį: '); ReadLn(r2);
ats := sqrt (Sqr (xc1 - xc2) + Sqr (yc1 - yc2)); {apskaičiuojamas nuo vieno apskritimo centro iki antro apskritimo centro atstumas}
if ats - r1 <= 0
then WriteLn ('kertasi')
else if ats - r2 <= 0
then WriteLn ('kertasi')
else WriteLn ('Nesikerta');
Readln;
end.
0
Peršokti į forumą: