|
 |

#1
PoluNochnik @ 21.10.09 14:54 |
[пожаловаться]
|
 |

Информатика. Помогите найти площадь фигуры при помощи напиcания программы в TurboPaskal. Срочно!
З.Ы. с меня пиво

З.Ы.Ы. с меня зерн0))
|
|
 |
#7
UNэстетик @ 21.10.09 14:59 |
[пожаловаться]
|
 |
#1 [написал программу_отправил программу почтовым голубем к афтару]
|
|
 |
#9
flEtAn @ 21.10.09 15:00 |
[пожаловаться]
|
 |
#6 а я про что ebl ещё в 7 классе писали на бейсике и паскале
|
|
 |
#10
cRow_364849_птичка @ 21.10.09 15:01 |
[пожаловаться]
|
 |
google maps //// ищи новую дорогу на йух!
ЗЫ пиво подсунол в4нючее! с3мк1 отстойный! даёшь военам жигу!!!!
|
|
 |
#11
PoluNochnik @ 21.10.09 15:01 |
[пожаловаться]
|
 |
#8 это задание по информатике, поэтому нужно программированием сделать до завтрашнего дня(
З.Ы. математическим бы сам решил
|
|
 |
#12
UNэстетик @ 21.10.09 15:02 |
[пожаловаться]
|
 |
пля парни, мб реал поможем, кули толку срать то, всё равно это всем надоело
[ушёл гуглить]
|
|
 |
#16
AS34 @ 21.10.09 15:11 |
[пожаловаться]
|
 |
супирзадача 00
площадь четверти круга + площадь треугольничка 00
ну и в программировании я особый асс, так что вот что будет в паскале:
а, б, ц - чиселки
типа ду бегин программа:
а = 1/4 * (пи * R^2);
б = 1/2 * L * M;
ц = а + б;
показать ц.
зы: R - радиус круга , L и M - стороны треугольника.
ну и что пиво да семки, девак уже выкладывай давай
|
|
 |
#17
PoluNochnik @ 21.10.09 15:14 |
[пожаловаться]
|
 |
№16 это то всё понимаю, просто мне нужно само оформление правильное, как в паскале пропечатывать, чтобы запускалось. 
З.Ы. с меня девочка))
|
|
 |
#29
might_4 @ 21.10.09 15:43 |
[пожаловаться]
|
 |
program meatpsin;
var
meatspin:integer;
afftar:boolean
begin
afftar idet na http://meatspin.com
end.
З.Ы и не благодари
|
|
 |
#30
Тот самый БОРИС @ 21.10.09 15:59 |
[пожаловаться]
|
 |
#29 program meatpsin;
var
meatspin:integer;
afftar, mydk:boolean
begin
if afftar:=mydk
then afftar idet na http://meatspin.com
else afftar:=mydk^2 i vse ravno idet na http://meatspin.com
end.
У автора нет шансов
|
|
 |
#32
lightcyber @ 21.10.09 19:07 |
[пожаловаться]
|
 |
uses crt;
Const r=6; pi=3.14;
Var a, b, rezult : real;
BEGIN
clrscr;
a := 0.25*pi*r*r;
b := 0.5*r*r;
rezult := a + b;
write(Round(rezult));
readln;
END.
|
|
 |
#34
iMozg @ 21.10.09 19:52 |
[пожаловаться]
|
 |
#30 мудк, учи синтаксис паскаля 3бл!
хотя идея была хороша )
|
|
 |
Reply |  | |  |
|
 |
|