Дана площадь квадрата. Составьте программу для вычисления его стороны и периметра....

Question

Дана площадь квадрата. Составьте программу для вычисления его стороны и периметра.
Программу хорошую и понятную составить( в Паскале), все-таки баллов не мало

Answer 1

var
  s, a, p: real;
begin
  write('Введите площадь квадрата: ');
  read(s);
  a := sqrt(s); //Сторона
  p := a * 4; //Периметр
  writeln('Сторона квадрата = ', a : 0 : 2);
  writeln('Периметр квадрата = ', p : 0 : 2);
end.

Comments

Перезагрузи страницу, я исправил

---

0 - количество выделяемых знаков под число. В данном случае оно равно 0 и число форматируется под нужное ему число знаков. 2 - это количество знаков после запятой

Answer 2

Var
  s:real; //Могут быть и не целые числа
Begin
  Write('Введите площадь квадрата ');
  Readln(s);
  Write('Сторона квадрата равна ',sqrt(s),', а периметр ',sqrt(s)*4); // sqrt - это квадратный корень (тобиш длина квадрата) а sqrt(s)*4 - это сторона квадрата умноженная на 4 стороны тобиш периметр 
End.

Comments

Жмякни кнопку спасибо