Pradinis
Pagalba
Užsisakyk!
- Reklamą
- Hostingą
- El. pašto dėžutę
Užsisakyk!
Įrankiai
Pasidalink
- Visos temos
REKLAMA
PHPFusion - tai laisvai platinama nemokama turinio valdymo sistema (TVS), kurios pagalba galite greitai, lengvai ir
patogiai susikurti norimą internetinį puslapį. Plačiau apie sistemą...
Prisijungti
Šaukykla
Jaunelis
2024 Lie. 25 11:07:43
Oho vis dar veikia svetainė
Šimtas metų, matau Šaukykloje nuostalgija. Smagu panaršyt po forumą ir pažiūrėt senas temas 
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 ačiū Ozz kad saugoji šitą kultūrinį reliktą
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.
Majakas
2023 Gru. 10 19:12:39
Negaliu patikėti jog žinutės/pranešimai visi yra nuo 2008 m
Žmogus
2023 Rugs. 7 21:09:14
O gal BloodKiller pasijungs?
2024 Lie. 25 11:07:43
Oho vis dar veikia svetainė
Šimtas metų, matau Šaukykloje nuostalgija. Smagu panaršyt po forumą ir pažiūrėt senas temas 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
ačiū Ozz kad saugoji šitą kultūrinį reliktą 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.
Majakas
2023 Gru. 10 19:12:39
Negaliu patikėti jog žinutės/pranešimai visi yra nuo 2008 m
Žmogus
2023 Rugs. 7 21:09:14
O gal BloodKiller pasijungs?
Apklausa
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ų: 2916  |
|
Juste22 Narys Patrankų mėsa Pranešimai: 6 Įstojęs: 2012 Bal. 30 20:04:07 |
|
| 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~! |
3 atsakymai:
|
s1Nk Narys Generolas  Pranešimai: 856 Įstojęs: 2009 Bal. 27 01:04:16 |
|
| Š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. 0 www.muz1ka.lt |
|
|
Juste22 Narys Patrankų mėsa Pranešimai: 6 Įstojęs: 2012 Bal. 30 20:04:07 |
|
Supratau, as pati nelabai suprantu matematikos... Antrame trimestre turejau 6  o si net nezinau kiek bus...0 |
|
|
audrius159 Narys Patrankų mėsa Pranešimai: 4 Įstojęs: 2012 Geg. 4 21:05:22 |
|
| 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ą: |
