функции и процедуры

[niziriska]

ваще их не понимаю помогите пожалуйста

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

вот мой получившийся.. но не правильно работающий..
program lab_5;
Uses CRT;
var k,y,S1,S2,S,a,b,pl: real;

procedure ploschad(x1,x2,ugol:real; var result:real);
begin
result:=x1*x2*sin(ugol)/2;
end;

begin
{Program schitaet ploschad tol'ko dlya k>3}
writeln('vvedite chislo uglov');
readln(k);
writeln('vvedite storonu mnogougolnika');
readln(a);
y:=180*(k-2)/k;
b:=a;
{========1========}
ploschad(a,b,y,pl);
s1:=s1+2*pl;
{=================}
b:=sqrt(sqr(a)+sqr(a));
y:=90;
{========2========}
ploschad(a,b,y,pl);
s1:=s1+2*pl;
{=================}
write('ploschad ravna s=',s1);


readkey; readkey;
end.




и вторая - Заменить данное натуральное число на число, которое получается из исходного записью его цифр в обратном порядке (например, дано число 156, нужно получить 651).

эту вообщ ене опмню как.. что то с помощью mod и div... как я понимаюю но не помню(

[maladoy]

2

program chiclo;
uses crt;
var s,s1:string;
 i:integer;
begin
writeln('vvedite 4islo');
readln(s);
s1:='';
for i:=length(s) downto 1 do
s1:=s1+s[i];
writeln('naoborot',s1);
readln;
end.

[puporev]

Вот вторая задача.

uses crt;
var N,M:longint;
    k:byte;
begin
clrscr;
write('N=');readln(n);
M:=0;
while N>0 do
  begin
   k:=N mod 10;{отделяем последнюю цифру, она становится первой, второй и т.д.}
   M:=10*M+k;{умножаем предыдущее число на 10 и прибавляем эту цифру}
   N:=N div 10;{все повторяем но уже без этой цифры}
  end;
write('M=',M);
readln
end.

По первой задаче.
Откройте школьный учебник геометрии и Вы узнаете, что правильный 6-угольник состоит из 6 правильных 3-угольников, сторона которых естественно равна стороне 6-угольника. Ну, а найти площадь правильного треугольника существует море формул, на край хоть формулу Герона. Это и будет Ваша подпрограмма, лучше в данном случае функция, но если хотите, то и процедурой можно.

[puporev]

Вообще-то речь шла о mod и div, так что строки это хорошо, но в данном случае не уместно.

[niziriska]

эм.. спасибо большое.. только эт конечно в функцию б.. а я их оформлять не умею(

function chislo(N,M:longint;k:byte): longint;
   begin
while N>0 do
  begin
   k:=N mod 10;{отделяем последнюю цифру, она становится первой, второй и т.д.}
   M:=10*M+k;{умножаем предыдущее число на 10 и прибавляем эту цифру}
   N:=N div 10;{все повторяем но уже без этой цифры}
  end;
end;

так?

[puporev]

function Chislo(N,M:longint;k:byte): longint;
begin
while N>0 do
   begin
      k:=N mod 10;{отделяем последнюю цифру, она становится первой, второй и т.д.}
      M:=10*M+k;{умножаем предыдущее число на 10 и прибавляем эту цифру}
     N:=N div 10;{все повторяем но уже без этой цифры}
   end;
Chislo:=M;
end;

[capta1n]

program capta1n;
const
 pi = 3.1415;
var
 a,sq : real;

 function ploshad ( b,ugol : real ) : real;
 begin
   ploshad:=sqr(b)*sin(ugol)
 end;

begin

  write ('Vvedite storonu mnogougol''nika: '); readln (a);
  if a>0 then
  begin
    sq:=3*ploshad(a,2*pi/3);
    a:=sqrt(2*sqr(a)-2*sqr(a)*cos(2*pi/3));
    sq:=sq+ploshad(a,pi/3)
  end;

  writeln ('Ploshad: square= ',sq:0:2);
  readln

end.

[maladoy]

1

program SMN;
uses crt;
var smn1,b:real;
function str(a:real):real;
var p:real;
    s:real;
begin
 p:=(a+2*a/Sqrt(3))/2;
 str:=sqrt(p*(p-a)*(p-a/Sqrt(3))*(p-a/Sqrt(3)));
end;
begin
writeln('vvedite a');
readln(b);
smn1:=str(b)*6;
writeln(smn1:4:2);
readln;
end.

[capta1n]

вот теперь прога работает нормально

[niziriska]

Для шестиугольника

а мона тоже самое тока не с функцией?