Ответы Mail
Программирование
Android
C/C++
C#
iOS
Java
JavaScript
jQuery
SQL
Perl
PHP
Python
Веб-дизайн
Верстка, CSS, HTML, SVG
Системное администрирование
Другие языки и технологии
Лидеры категории
Лена-пена
М.И.
Y.Nine
•••
Искусственный Интеллект
Искусственный Интеллект
Искусственный Интеллект
напишите программу или помогите решить задачу
Анастасия Морозова
(3487),
закрыт
13 лет назад
возможно ли из квадрата со стороной а вырезать круг радиусом r, если возможно то какая часть S площади квадрата пойдет при этом в "обрезки".
Лучший ответ
LoonY
(2913)
13 лет назад
uses crt;
var s1, s2, a, r, result real
begin
writeln ("enter a");
readln(a);
writeln("enter r");
readln(r);
S1=a*a
S2=3,14*sqr(r);
if 2*a>r then
Result = S2-S1;
else
Result=S1-S2;
writeln ("result is ", result);
end.
var s1, s2, a, r, result real
begin
writeln ("enter a");
readln(a);
writeln("enter r");
readln(r);
S1=a*a
S2=3,14*sqr(r);
if 2*a>r then
Result = S2-S1;
else
Result=S1-S2;
writeln ("result is ", result);
end.
Лось ФиларетовыйПросветленный (20332)
13 лет назад
поздравляю! за принципиально неверное решение - лучший ответ.
Видать у Анастасии мозги напрочь отсутствуют))
Видать у Анастасии мозги напрочь отсутствуют))
LoonY
Гуру
(2913)
Ну и в чем тут ошибка? разве что в синтаксисе, потому как на паскале со школы не писал
Остальные ответы
Сергей Котлярский
(7503)
13 лет назад
Если сторона квадрата больше или равна 2-ум радиусам, то можно. Посчитай площадь квадрата и вычти из него площадь круга. Это обрезки. Программу, я думаю, сама сможешь написать. Удачи!
Сергей Петров
(1208)
13 лет назад
a=2*r
s1=a*a
S2=3.14* r*r
S искомое =s-S
var s1, s2, a, r, result real
begin
writeln ("enter a");
readln(a);
writeln("enter r");
readln(r);
S1=a*a
S2=3,14*r*r
Result=S2-S1
writeln ("result is "), result
s1=a*a
S2=3.14* r*r
S искомое =s-S
var s1, s2, a, r, result real
begin
writeln ("enter a");
readln(a);
writeln("enter r");
readln(r);
S1=a*a
S2=3,14*r*r
Result=S2-S1
writeln ("result is "), result
Лось Филаретовый
(20332)
13 лет назад
ага, осталось догадаться, на каком языке
на всякий случай пишу на двух разных - один из них точно подойдет.
номер раз:
BEGIN
print("enigu lateron de kvadrato (a) ");
REAL a = read real;
print("enigu radiuso de cirklo (r) ");
REAL r = read real;
IF a >=2*r THEN
print("espereble eltranĉi");
print(new line);
print("areo de restaĵoj = ");
print(a^2-pi*r^2)
ELSE
print("malpermesite eltranĉi")
FI
END
и номер два:
program ars
implicit none
real,parameter::pi=3.14159265358979
real a,r
write(*,*) 'enigu lateron de kvadrato (a)'
read *,a
write(*,*) 'enigu radiuso de cirklo (r)'
read *,r
if (a .ge. 2*r) then
write(*,*) 'espereble eltranĉi'
write(*,'("areo de restaĵoj = ",f8.4)') a**2-pi*r**2
else
write(*,*) 'malpermesite eltranĉi'
endif
end program ars
на всякий случай пишу на двух разных - один из них точно подойдет.
номер раз:
BEGIN
print("enigu lateron de kvadrato (a) ");
REAL a = read real;
print("enigu radiuso de cirklo (r) ");
REAL r = read real;
IF a >=2*r THEN
print("espereble eltranĉi");
print(new line);
print("areo de restaĵoj = ");
print(a^2-pi*r^2)
ELSE
print("malpermesite eltranĉi")
FI
END
и номер два:
program ars
implicit none
real,parameter::pi=3.14159265358979
real a,r
write(*,*) 'enigu lateron de kvadrato (a)'
read *,a
write(*,*) 'enigu radiuso de cirklo (r)'
read *,r
if (a .ge. 2*r) then
write(*,*) 'espereble eltranĉi'
write(*,'("areo de restaĵoj = ",f8.4)') a**2-pi*r**2
else
write(*,*) 'malpermesite eltranĉi'
endif
end program ars
Похожие вопросы