Форум программистов Контакты:
О проблемах с регистрацией, почтой и по другим вопросам пишите сюда - post@programmersforum.ru
По необходимости будем регистрировать вручную. И проверяйте папку спам!
Главная  |  Правила форума  |  Исходники Delphi  |  Основы Delphi  |  Блог программистов  |  Рассылка  |  Повторная активизация e-mail  | 

Вернуться   Форум программистов > Новички в программировании > Паскаль

Ответ
 
Опции темы
Старый 05.09.2010, 17:02   #1
Joker<777>
Пользователь
 
Регистрация: 09.04.2010
Сообщений: 18
Репутация: 10
Вопрос Даны площадь круга и площадь квадрата

1. Даны площадь круга и площадь квадрата, определить поместится ли квадрат в круг.
Joker<777> вне форума   Ответить с цитированием
Старый 05.09.2010, 17:25   #2
Marsel737
Участник клуба
 
Аватар для Marsel737
 
Регистрация: 09.11.2009
Сообщений: 669
Репутация: 110
По умолчанию

Это что задачу заказал нам или что?

Код:

var
  S1, S2: real;
begin
  Writeln('Введите площадь круга');
  ReadLn(S1);
  Writeln('Введите площадь квадрата');
  ReadLn(S2);
  if Sqrt(S2) > 2 * Sqrt(S1 / 3.14) then
    Writeln('Круг поместится в квадрате')
  else  
    Writeln('Круг не поместится в квадрате');
  Readln;
end;

__________________
Я не всегда знаю, о чем говорю, но знаю, что прав. © Мухаммед Али.
К чёрту обстоятельства. Я создаю возможности. © Брюс Ли
Marsel737 вне форума   Ответить с цитированием
Старый 05.09.2010, 17:28   #3
_-Re@l-_
C++, Java
Профессионал
 
Аватар для _-Re@l-_
 
Регистрация: 10.04.2010
Адрес: Екатеринбург
Сообщений: 2,664
Репутация: 403
По умолчанию

Ну можно так:
Код:

Uses CRT;
Var 
     S,R:Real; {Площадь круга и его радиус}
     S1,A:Real; {Площадь квадрата и его сторона}
Begin
        Write('Enter S: ');
        Readln(S);
        R:=sqrt(S/Pi);
        Write('Enter S1: ');
        Readln(S1);
        A:=Sqrt(S1);
        If 2*R<=A Then Write('Yes!') Else Write('No!');
        Readln;
End.

Ах, не успел...
_-Re@l-_ вне форума   Ответить с цитированием
Старый 05.09.2010, 17:40   #4
Mad_Cat
Made In USSR!
Профессионал
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,600
Репутация: 1108

icq: 723-321
skype: mad_cat1982
По умолчанию

это типа если сторона меньше либо = диаметру то поместится квадрат в круг?
не тут то было) впишите в круг радиусом 2 см квадрат со стороной 4см)
правильная проверка
Код:

 If sqrt(2)*R>=A Then Write('Yes!') Else Write('No!');

2Marsel нужно вроде как
Цитата:
поместится ли квадрат в круг
а не наоборот

Последний раз редактировалось Mad_Cat; 05.09.2010 в 17:44.
Mad_Cat вне форума   Ответить с цитированием
Старый 05.09.2010, 17:57   #5
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 17,159
Репутация: 3723
По умолчанию

ну так по теореме Пифагора найти диагональ квадрата:
Код:

kvDig := SQRT( 2 * sKvadrat );

и если она меньше диаметра круга (или равна ему) - значит поместится квадрат в круг...
Serge_Bliznykov вне форума   Ответить с цитированием
Старый 05.09.2010, 18:43   #6
Mad_Cat
Made In USSR!
Профессионал
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,600
Репутация: 1108

icq: 723-321
skype: mad_cat1982
По умолчанию

2Serge_Bliznykov
а чем моя то проверка -полный аналог вашей- не устраивает7
Mad_Cat вне форума   Ответить с цитированием
Старый 05.09.2010, 19:31   #7
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 17,159
Репутация: 3723
По умолчанию

Цитата:
а чем моя то проверка -полный аналог вашей- не устраивает7
Да потому что происходит подмена понятий (переменные банально перепутаны)!
Вот, скажите в Вашем примере что есть R и что есть A ?!
я же не просто так ввёл новое обозначение для площади квадрата и для длины диагонали квадрата!
Да и знак больше меньше вызывает смутное подозрение...
Надо или полностью писать код или расшифровывать, что означают используемые в открывке кода переменные.
Serge_Bliznykov вне форума   Ответить с цитированием
Старый 05.09.2010, 19:42   #8
_-Re@l-_
C++, Java
Профессионал
 
Аватар для _-Re@l-_
 
Регистрация: 10.04.2010
Адрес: Екатеринбург
Сообщений: 2,664
Репутация: 403
По умолчанию

Цитата:
Даны площадь круга и площадь квадрата, определить поместится ли квадрат в круг.
Ах ёперный театр,а я то прочитал "определить поместится ли круг в квадрат", а тут квадрат в круг...Прошу прощения
_-Re@l-_ вне форума   Ответить с цитированием
Старый 05.09.2010, 19:50   #9
Marsel737
Участник клуба
 
Аватар для Marsel737
 
Регистрация: 09.11.2009
Сообщений: 669
Репутация: 110
По умолчанию

Аналогично
__________________
Я не всегда знаю, о чем говорю, но знаю, что прав. © Мухаммед Али.
К чёрту обстоятельства. Я создаю возможности. © Брюс Ли
Marsel737 вне форума   Ответить с цитированием
Старый 16.01.2012, 19:24   #10
Kate23
Пользователь
 
Аватар для Kate23
 
Регистрация: 16.01.2012
Сообщений: 15
Репутация: 1
По умолчанию

Помогите, срочно!!(((
Организовать разветвляющийся процесс для решения следующей задачи.


Заданы радиус круга R и сторона квадрата А. Определить, можно ли вписать квадрат в круг.
Kate23 вне форума   Ответить с цитированием
Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

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

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Площадь прямоугольников savraska Помощь студентам 7 04.06.2010 15:42
C++ Указатели и ссылки - Вычислить площадь квадрата. Scarletred Помощь студентам 2 24.05.2010 02:49
Площадь прямоугольника AndrSil Помощь студентам 5 22.04.2010 22:23
Заданы площади круга и квадрата. Определите, поместятся ли квадрат в круге. Ufa Помощь студентам 2 21.04.2010 05:56
Площадь фигур Вор Паскаль 3 18.05.2009 21:44




23:45.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.

магазин горящих туров


более 1000 горящих предложений ежедневно
Бэбиблог - соц сеть для будущих мам


RusProfile.ru


Справочник российских юридических лиц и организаций.