@Дарья Прохорова
1 / 1 / 0
Регистрация: 03.12.2009
Сообщений: 81
|
|
|
28.04.2010, 13:57. Просмотров 620. Ответов 3
Pascal | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| program kontrolnaya;
uses crt;
var a,b,z,r:real;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
write('r=');readln(r);
if (((a-5)*(a-5)+b*b<r*r) and not((a+5)*(a+5)+b*b<r*r)) or (((a+5)*(a+5)+b*b<r*r) and not((a-5)*(a-5)+b*b<r*r)) then
begin
writeln('Точка попадает в область!');
z:=a*a-3*b;
end
else
begin
writeln('Точка не попадает в область!');
if (a<0)and(b<0) then z:=25+a+b
else z:=a-b;
end;
write('Z=',z:0:2);
readln
end. |
|
0
|