вопрос : составить программу которая определяет a) уместится ли круг в кводрате b) уместится ли квадрат в круге

2

Ответы и объяснения

2013-05-23T23:33:15+04:00

Думаю так)

 

a)

uses crt;
var sKr,sKv,a,r:real;
const pi = 3.14;
begin
writeln('Write a (side of square)');
readln(a);
writeln('write radius of circle ' );
readln(r);
skr:=pi*sqr(r);
skv:=sqr(a);

if skr <skr then writeln('ok') else writeln('NO');
readln;
end.

 

b)

 

uses crt;
var sKr,sKv,a,r:real;
const pi = 3.14;
begin
writeln('Write a (side of square)');
readln(a);
writeln('write radius of circle ' );
readln(r);
skr:=pi*sqr(r);
skv:=sqr(a);

if skr > skr then writeln('ok') else writeln('NO');
readln;
end.

2013-05-24T00:18:29+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

Program Kvadrat_v_krug;
var a,r:real;
begin
  write('Введите сторону квадрата а=');
  readln(a);
  write('Введите радиус круга r=');
  readln(r);
  if 2*r < a*sqrt(2) then writeln('Квадрат не поместится в круге')
  else writeln('Квадрат можно поместить в круг');
end.

Program Krug_v_kvadrat;
var a,r:real;
begin
  write('Введите сторону квадрата а=');
  readln(a);
  write('Введите радиус круга r=');
  readln(r);
  if a < r then writeln('Круг не поместится в квадрат')
  else writeln('Круг можно поместить в квадрат');
end.