HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Перезагрузить страницу Студентам с лабораторными сюда
   
Ответ
Страница 245 из 284 « Первая < 145195235 241 242 243 244 245 246 247 248 249 255 > Последняя »
 
Опции темы Поиск в этой теме Опции просмотра

  #1  
Старый 18.03.2010, 15:57
EndLeSSDre@M
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
С нами: 8850305

Репутация: 259
По умолчанию
так как r2-r1=2*r3 то из этого следует что центры лежат на одной прямой, если бы было не так тогда окружности не могли бы пересекаться...
значит площадь будет вычисляться по формуле:

s=pi*(r1^2/2+r2^2/2-r3^2)
𝕏 Twitter Reddit Telegram Копировать ссылку
 
Ответить с цитированием

  #2  
Старый 18.03.2010, 16:07
R1k94
Новичок
Регистрация: 18.12.2009
Сообщений: 5
С нами: 8630327

Репутация: 0
По умолчанию
А как саму прогу записать? Имею ввиду
program
var
...
 
Ответить с цитированием

  #3  
Старый 18.03.2010, 16:15
EndLeSSDre@M
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
С нами: 8850305

Репутация: 259
По умолчанию
что то типа такого:

PHP код:
program qasdf;
const
pi:=3.14;
r1:=25;
r2:=15;
r3:=5;
var
s:integer;
begin
s:=pi*(sqr(r1)/2+sqr(r2)/2-sqr(r3));
writeln(s);
readln;
end. 
хотя лучше без ввода вручную... иначе придется проверять на соприкосновение окружностей
Последний раз редактировалось EndLeSSDre@M; 18.03.2010 в 16:34..
 
Ответить с цитированием

  #4  
Старый 18.03.2010, 16:36
R1k94
Новичок
Регистрация: 18.12.2009
Сообщений: 5
С нами: 8630327

Репутация: 0
По умолчанию
Спасибо всем парни! вроде что - то вышло)
 
Ответить с цитированием

  #5  
Старый 18.03.2010, 16:54
BELbIY
Познающий
Регистрация: 14.08.2009
Сообщений: 51
С нами: 8811729

Репутация: 123
По умолчанию
Код:
program sq;
var r1,r2,r3:real;

function square(r1,r2,r3:real):real;
begin
square:=pi*((r1*r1)/2+(r2*r2)-(r3*r3)*2);
end;

begin
write('radius 1 ');
readln(r1);
write('radius 2 ');
readln(r2);
write('radius 3 ');
read(r3);

write('square is ',square(r1,r2,r3):1:2);
end.
 
Ответить с цитированием

  #6  
Старый 18.03.2010, 16:56
R1k94
Новичок
Регистрация: 18.12.2009
Сообщений: 5
С нами: 8630327

Репутация: 0
По умолчанию
BELbIY
Спасибо огромное! все получилось!
 
Ответить с цитированием

  #7  
Старый 18.03.2010, 17:01
Soherox
Познающий
Регистрация: 17.02.2010
Сообщений: 45
С нами: 8542140

Репутация: 47
По умолчанию
EndLeSSDre@M...в Паскале и так есть встроенная константа pi, так что это писать не обязательно =)
Цитата:
const
pi:=3.14;
 
Ответить с цитированием

  #8  
Старый 18.03.2010, 17:03
EndLeSSDre@M
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
С нами: 8850305

Репутация: 259
По умолчанию
Цитата:
Сообщение от Soherox  
EndLeSSDre@M...в Паскале и так есть встроенная константа pi, так что это писать не обязательно =)

))) та я по паскалю не специализируюсь))) просто некий синтаксис знаю...))) но спасибо))) впредь буду знать)
 
Ответить с цитированием

  #9  
Старый 18.03.2010, 20:50
Irdis
Участник форума
Регистрация: 06.02.2006
Сообщений: 177
С нами: 10661593

Репутация: 88
По умолчанию
Цитата:
так как r2-r1=2*r3 то из этого следует что центры лежат на одной прямой, если бы было не так тогда окружности не могли бы пересекаться...
нет никак это не следует...
 
Ответить с цитированием

  #10  
Старый 18.03.2010, 22:30
[underwater]
Познающий
Регистрация: 29.03.2009
Сообщений: 87
С нами: 9010027

Репутация: 308
По умолчанию
Цитата:
Ввести строку символов. Вывести сумму цифр в строке, если они там есть.
На ASMе. Помогите пожалуйста.
 
Ответить с цитированием
Ответ
Страница 245 из 284 « Первая < 145195235 241 242 243 244 245 246 247 248 249 255 > Последняя »



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Американским студентам запретили пользоваться Skype KPOT_f!nd Мировые новости. Обсуждения. 1 28.09.2006 03:47
Любителям квестов сюда!! FoX's Болталка 10 25.01.2005 20:42



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.