Определить, поместится ли квадрат в круг, поместится ли круг в квадрате - Pascal ABC

Формулировка задачи:

Помогите пожалуйста, сама не справлюсь! Начинающий в этом деле. Известны площадь круга и квадрата. Определить поместится ли квадрат в круг.,поместится ли круг в квадрате, нужно блок схему составить мне нужна блок схему , с разветвляющимся алгоритмом (,помогите если можете

Код к задаче: «Определить, поместится ли квадрат в круг, поместится ли круг в квадрате - Pascal ABC»

textual
var Skv, Skr, stor, diag, diam: double;
 
begin
  write('Площадь квадрата = ');
  readln(Skv);
  write('Площадь круга = ');
  readln(Skr);
  stor := sqrt(Skv);
  diag := stor * sqrt(2);
  diam := 2 * sqrt(Skr / pi);
  write('Круг ');
  if diam > stor
    then write('не ');
  writeln('помещается в квадрат.');
  write('Квадрат ');
  if diag > diam
    then write('не ');
  writeln('помещается в круг.');
  readln
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

6   голосов, оценка 3.833 из 5


СДЕЛАЙТЕ РЕПОСТ