Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   Болталка (https://forum.antichat.xyz/forumdisplay.php?f=46)
-   -   Помогите написать программу! (https://forum.antichat.xyz/showthread.php?t=94361)

-slim- 01.12.2008 21:38
Помогите написать программу!
 
Срочно нужна программа на завтра,извините что не в той теме:
Над написать программу и запустить ее на выполнение. Вычислить площадь круга, если известна его длина.
Очень прошу, нужна на завтра! Помогите плизззззз

devton 01.12.2008 21:48
3.14zdec!!1
PR-асты атакуют!!111

если ты не понял, в первых 2 строках ты увидишь символы, которые напомнят тебе формулы площади круга и длины окружности :)

crystalbit 01.12.2008 22:00
S=пr*r
C=2пr

S=C*C/(4п)

вот формула, остальное слабо?

Godfather Bulan 01.12.2008 22:31
Площадь круга=pi*r^2
Длина окружности=2*pi*r
Скачать файл KRUG.exe
Паскаль:
Код:
PROGRAM Ce;
CONST
p1 = 3.14159;
VAR
dlina : Real;
Square, Len : Real;
BEGIN
WriteLn('dlina');

Read (dlina);

Len :=dlina /(2 * p1);

Square := p1 * sqr(Len);

WriteLn('s= ', Square :6:2);
readln;
END.

fatalo 01.12.2008 23:59
Приват?зачем на паскале константу обьявлять?просто пишешь pi .

k0lbasa 02.12.2008 00:11
Цитата:
Сообщение от Godfather Bulan
Площадь круга=pi*r^2
Длина окружности=2*pi*r
Скачать файл KRUG.exe
Паскаль:
Код:
PROGRAM Ce;
CONST
p1 = 3.14159;
VAR
dlina : Real;
Square, Len : Real;
BEGIN
WriteLn('dlina');

Read (dlina);

Len :=dlina /(2 * p1);

Square := p1 * sqr(Len);

WriteLn('s= ', Square :6:2);
readln;
END.
пинч1111 :D :D

Godfather Bulan 02.12.2008 00:43
Цитата:
Приват?зачем на паскале константу обьявлять?просто пишешь pi .
а хз почему. но не хочет так пахать....
Цитата:
пинч1111
смешно


Время: 07:21