15.11.2011, 09:54 | #1 (permalink) |
Новичок
Регистрация: 08.06.2011
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите решить две задачи на Паскале
2. Вычислить площадь правильного шестиугольника со стороной "а" используя подпрограмму вычисления площади треугольника. |
15.11.2011, 09:54 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Пока в вашей теме не появились ответы, можете посмотреть эти Помогите решить задачи Помогите решить задачи в Паскале, пожалуйста Помогите решить четыре задачи в Паскале Помогите решить задачи на C++ Помогите решить две задачи в турбо паскале Помогите решить три задачи на С++ |
15.11.2011, 11:00 | #2 (permalink) | ||
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Охо-хо, грехи наши тяжкие... И не стыдно с такой ерундой по форумам бегать? И когда вы поймете, что учиться нужно вам - именно вам, а не папе с мамой? Ведь вам жить, черт побери! Вам дают эти детские задачки, чтобы вы освоились с самыми-самыми азами программирования, а вы... Или так и рассчитываете жизнь чужим умом прожить? Не выйдет, уж поверьте... Ну ладно, извините, коль что не так... Накипело!
Цитата:
Код:
VAR x,S,a:real; i,k:integer; BEGIN Write('x= '); Readln(x); Write('k= '); Readln(k); a:=1; S:=0; For i:=1 to k do begin a:=a*x; S:=S+a; end; Writeln('S= ',S:0:3); Readln END. Цитата:
Код:
VAR a:Real; Function S_Tri(as:Real):Real; begin S_Tri:=Sqr(as)*Sqrt(3)/4; end; BEGIN Write('a= '); Readln(a); Writeln('S= ',S_Tri(a)*6:0:3); Readln END. |
||
16.11.2011, 09:03 | #3 (permalink) |
Новичок
Регистрация: 08.06.2011
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
спасибо)) а задачи эти не для учебы мне нужны))
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|