| Subiectul anterior :: Subiectul urmator |
| Autor |
Mesaj |
AmantuLuMata
Elev
Data inscrierii: 20/Mar/2008
Mesaje: 4
|
 Trimis: 20.03.2008 18:29 Titlul subiectului: Problema 23 |
|
|
| Citat: |
| Pentru douã puncte A ºi B din plan, puncte date prin coordonatele lor întregi (xa,ya) , (xb,yb) se cere sã se verifice dacã punctele A ºi B sunt egal depãrtate de originea axelor de coordonate. Scrieþi apoi programul care citeºte de la tastaturã cele 4 numere întregi ºi afiºeazã pe ecran mesajul DA în cazul în care A ºi B se aflã la aceeaºi distanþã faþã de punctul O (originea) ºi afiºeazã mesajul NU în caz contrar. |
| Cod: |
var xa, xb, ya, yb: integer;
begin
read(xa, xb, ya, yb);
if xa*xa+ya*ya=xb*xb+yb*yb then write ('DA')
else write ('NU');
end. |
|
|
| Sus » |
|
 |
Irragal
Administrator
Data inscrierii: 15/Mar/2008
Mesaje: 13
|
| Trimis: 21.03.2008 14:38 Titlul subiectului: |
|
|
Asta cred ca a fost cel mai scurt program.
 |
|
| Sus » |
|
|
Irragal
Administrator
Data inscrierii: 15/Mar/2008
Mesaje: 13
|
| Trimis: 21.03.2008 14:39 Titlul subiectului: |
|
|
Sau asa, ca sa stii ce numere dai:
| Cod: |
program prob23;
var xa, xb, ya, yb: integer;
begin
write('xa='); readln(xa);
write('ya='); readln(ya);
write('xb='); readln(xb);
write('yb='); readln(yb);
if xa*xa+ya*ya=xb*xb+yb*yb then write ('DA')
else write ('NU');
end. |
|
|
| Sus » |
|
|
oClasaAnonima
Megaelev
Data inscrierii: 11/Apr/2008
Mesaje: 29
|
| Trimis: 13.04.2008 14:25 Titlul subiectului: |
|
|
{pt 2 puncte A si B din plan, puncte date prin coordonatele lor intregi (xa,ya),
(xb,yb) se cere sa se verifice daca punctele A si B sunt egal departate de originea
axelor de coordonate. scrieti apoi programul care citeste de la tastatura cele
4 numere intregi si afiseaza pe ecran mesajul DA in cazul in care a si b se afla
la aceeasi distanta fata de punctul O(originea) si afiseaza mesajul NU in caz contrar}
program ex23;
var xa,ya,xb,yb:integer;
begin
write('coord. A: '); readln(xa,ya);
write('coord. B: '); readln(xb,yb);
if (sqrt(sqr(xa)+sqr(ya)))=sqrt(sqr(xb)+sqr(yb)) then write('DA')
else write('NU');
end. |
|
| Sus » |
|
|
|
|
