Programavimo uzduotis

Koordinačių plokštumoje nubrėžtas spindulio R apskritimas. Apskritimo centras yra taške (xc, yc) Reikia nustatyti, ar taškas, kurio koordinatės (xt, yt), yra turimo apskritimo viduje

Berods jei atstumas nuo (xc, yc) iki (xt, yt) yra mažesnis už R, tada viduje, ir tiek (jei lygus, tai ant apskritimo lanko – nežinau, ar tai užskaitoma, kaip „viduje“.) :)

o kaip parasyti programa?

Jei gauni tokią užduotį, tai suprantu, kad jau kažkiek kurso praėjęs esi ir turėtum visus programai reikalingus „blokelius“ mokėti sukurti. Belieka tik viską apjungti :)

Kažkur jau šitą minėjau – rimtos svetainės, kaip StackOverflow, turi tokią taisyklę – parodyk savo pastangas, kiek padarei, o tada jau prašyk pagalbos su tuo, kas nesigauna.

Plius - net nepaminėjai kokia programavimo kalba reikia parašyti...

Plius - net nepaminėjai kokia programavimo kalba reikia parašyti...

Pseudokodu tikriausiai...

Pseudokodu tikriausiai...

Na, manau gali būti ir C++ arba Pascal, bet jeigu tu aiškiaregys - tau fainai.

Pascal.. Uztat, kad nesuprantu... Mano mergina mokejo, bet susipykom.. tai kas db man pades??

Pascal.. Uztat, kad nesuprantu... Mano mergina mokejo, bet susipykom.. tai kas db man pades??

Turbūt tavo mergina tave būtų ir išlaikiusi visą gyvenimą, jei tik nebūtumėt susipykę? :D

Na, manau gali būti ir C++ arba Pascal, bet jeigu tu aiškiaregys - tau fainai.

Man, get a sarcasm sense...

Kad ji dura..

Supazindink mane su savo mergina!

Turėtų veikti :)

program Apskritimas;
var xc, yc, //apskritimo centro koordinates
   xt, yt, //tasko koordinates
   R : integer; //spindulys
   at : real; //atstumas tarp tasku
begin
 WriteLn('Apskritimo centro taskas');
 Write('X: ');
 ReadLn(xc);
 Write('Y: ');
 ReadLn(yc);
 Write('Apskritimo spindulys: ');
 ReadLn(R);
 WriteLn('Tasko koordinates');
 Write('X: ');
 ReadLn(xt);
 Write('Y: ');
 ReadLn(yt);

 at:= sqrt(sqr(xc-xt) + sqr(yc-yt));
 if (at < R) then
   WriteLn('Taskas apskritimo viduje.')
 else
   WriteLn('Taskas uz apskritimo');
 ReadLn();
end.

Dekui zmogau :)