Помогите решить две задачи на Паскале

[Alexander9458]

Помогите решить две задачи на Паскале

1. Вычислить х в первой степени + х во второй + х в третей + .... + х в степени к, где х,к заданы с клавиатуры.

2. Вычислить площадь правильного шестиугольника со стороной "а" используя подпрограмму вычисления площади треугольника.

 

[Vladimir_S]

Охо-хо, грехи наши тяжкие... И не стыдно с такой ерундой по форумам бегать? И когда вы поймете, что учиться нужно вам - именно вам, а не папе с мамой? Ведь вам жить, черт побери! Вам дают эти детские задачки, чтобы вы освоились с самыми-самыми азами программирования, а вы... Или так и рассчитываете жизнь чужим умом прожить? Не выйдет, уж поверьте... Ну ладно, извините, коль что не так... Накипело!

1. Вычислить х в первой степени + х во второй + х в третей + .... + х в степени к, где х,к заданы с клавиатуры.

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.

2. Вычислить площадь правильного шестиугольника со стороной "а" используя подпрограмму вычисления площади треугольника.

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.

А вообще, с учетом резкого снижения уровня задачек по отношению к предыдущим, выложенным Вами, возникают в отношении Вас всякие нехорошие подозрения...

 

[Alexander9458]

спасибо)) а задачи эти не для учебы мне нужны))