??????? ??????? ??????:
??????? ??? ?? ???? ?? ????????????? ???????, ??????????? ??????? ????? ?? ???????????? ????????? ? ???????? ?????. ?????? ????? ??????? ????? ?????????? ??????????????. ????? ????? ???????, ????????, circle ????? ???????????? ? ????????? ????? ??? ??, ??? ????? ?????????????? ??????? sqr ??? trunc.

? ?????? ?????? ??????????? ??????? ???????? d ??? ?? ??????? ?????? ??, ??? ???????? ?? ????, ?? ????????? ????????, ??????? ????? ?? ???? ?????. ??? ?????? ??????? ?? ????? d ???????? ?????, ??????? ????? ??????? ?????????? ? ???????, ????? ????????? ?????????? ?? 3.14159 ? ??????? ?? 4.0. ???????? d ? ??? ?????????? ????????, ????? ??? ?????????? ????? ? ??????????? ????????. ? ???????? ?????????, ???????????? ? ??????? circle, ????? ???????????? ??? d ??? ??? ?????????? (??? ?????? ??????? ???????), ?? ???????? ????? ?? ??????? ???????.

????? ????????? ???????, ??????????? ??????? ?????????????? ? ????????????; ?? ??????????? ???????? ????? ??????.

??? ??? ??????? ????? ???? ??????? ?? ????????? ? ????? ?????????????????? ? ????? ?????????? ???.

???????? ???????? ?? ??, ??? ??????? ?????????? ? ???????????? ??????????? x, y, z, ????? ??? ?????????? ????????? ? ?? ???????????? ? a, b, c, d. ?????????? a ? ???????? ????????? ????? ?? ??????? ? ?????????? ?????????? a ? ????????. ????? ??? ?? ??????????? ????? ?????????? x ? ???????? ????????? ? ????????? ?????????? x ? ??????? triangle.

???????????? ????? ??????? ??????????? ?? ????? ??????????. ? ???????? ????? ???? ????? ????????????? ????? ??????????; ?????????? ??????? ? ?????????? ?????? ?????????? (????????, ??? ? ?????? read(a), read(a, b), read(a, b, c)) ?????? ? ????? ???????????? ?????????? ?????? ??? Pascal.

????????? ?? ????? ???????:
var
choice: char;
a, x, y, z: real;

function circle(d: real): real;
const pi = 3.14159;
begin
circle := pi * sqr(d) / 4.0;
end;

function rectangle(a, b: real): real;
begin
rectangle := a * b
end;

function triangle(a, b, c: real): real;
var x: real;
begin
x := (a + b + c) / 2;
triangle := sqrt(x * (x - a) * (x - b) * (x - c))
end;

begin
repeat
read(choice);
case choice of
'c': begin
readln(x);
a := circle(x)
end;
'r': begin
readln(x, y);
a := rectangle(x, y)
end;
't': begin
readln(x, y, z);
a := triangle(x, y, z)
end
end;
writeln('Square: ', a:8:2);
until choice = 'q';

readln
end.

Случайные файлы

Файл
55.txt
A&Z.txt
ZADANIE.TXT
info.txt
Readme.txt




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.