Pradinis
Pagalba
Užsisakyk!
- Reklamą
- Hostingą
- El. pašto dėžutę
Užsisakyk!
Įrankiai
Pasidalink
- Visos temos
Forumas | PHP-Fusion, WordPress, Shopify, PHP ir MySQL (PROGRAMAVIMAS) | C#, Python, Java, JS, C++ klausimai |
Autorius: Juste22 | Peržiūrų: 2906 |
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~! |
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ą: |