Obliczanie pola trójkąta

[ibizaa]

mam napisac do szkoły program w pascalu, który bedzie obliczał pole trójkąta trzema sposobami.... nie bardzo kumam jak to zrobic:/ ktos pomoze mi to napisac?? proszeee

 

zła nazwa tematu, proszę przeczytać regulamin. warn.

kamrat

[Tymon]

Wzór Heronka? A może na wektorkach?

[ibizaa]

obojetnieeeeee co ja sie nie znam :/

[Tymon]

Później będziesz musiał/musiała to wytłumaczyć. To nie jest obojętnie co. =P

[ibizaa]

Później będziesz musiał/musiała to wytłumaczyć. To nie jest obojętnie co. =P

 

 

nie bede musiala wytlumaczyc bo mam wysłac to mojemu facetowi z inf na poczte dzisiaj do połnocy a jutro oceny wystawia

[Tymon]

program Trojkaty1;

var
        a, b, c, p : real;
begin
        Write( 'Podaj bok A: ' );
        Readln( a );
        Write( 'Podaj bok B: ' );
        Readln( b );
        Write( 'Podaj bok C: ' );
        Readln( c );

        p := ( a + b + c ) / 2;
        Writeln( sqrt( p * ( p - a ) * ( p - b ) * ( p - c ) ) );
end.

Powinno działać.

 

EDIT

program Trojkaty2;

var
        a, h : real;
begin
        Write( 'Podaj wysokosc: ' );
        Readln( h );
        Write( 'Podaj dlugosc podstawy: ' );
        Readln( a );
        Writeln( a * h / 2 );
end.

[ibizaa]

a to mialo byc napisane w jednym programie te 3 sposoby

[Tymon]

program Trojkaty;

var
     m : integer;
     a, b, c, p, h : real;
begin
     Writeln( ' 1 - wzor podstawowy ' );
     Writeln( ' 2 - wzor Herna ' );
     Writeln( 'Numer wzoru: ' );
     Read( m );

     if m = 1 then
     begin
          Writeln( 'Podaj wysokosc: ' );
          Read( h );
          Writeln( 'Podaj dlugosc podstawy: ' );
          Read( a );

          Writeln( a * h / 2 );
     end
     else if m = 2 then 
     begin
          Writeln( 'Podaj bok A: ' );
          Read( a );
          Writeln( 'Podaj bok B: ' );
          Read( b );
          Writeln( 'Podaj bok C: ' );
          Read( c );

          p := ( a + b + c ) / 2;
          Writeln( sqrt( p * ( p - a ) * ( p - b ) * ( p - c ) ) );
     end
     else
          Writeln( 'Musisz podac od 1 do 2' );
end.

Masz 2.

Trzeciego mi się nie chce.

[ibizaa]

wielkie dzieki jestem wdzieczna

[Tymon]

program Trojkaty;

var
     m : integer;
     a, b, c, p, h, ax, ay, bx, by, cx, cy : real;
begin
     Writeln( 'Metody: ' );
     Writeln( '  1 - podstawowa ' );
     Writeln( '  2 - Herona ' );
     Writeln( '  3 - wektorowa ' );
     Writeln( 'Podaj numer metody ( 1-3 ): ' );
     Read( m );

     if m = 1 then
     begin
          Writeln( 'Podaj wysokosc: ' );
          Read( h );
          Writeln( 'Podaj dlugosc podstawy: ' );
          Read( a );

          Writeln( 'Pole tego trojkata wynosi: ' );
          Write( a * h / 2 );
     end
     else if m = 2 then 
     begin
          Writeln( 'Podaj bok A: ' );
          Read( a );
          Writeln( 'Podaj bok B: ' );
          Read( b );
          Writeln( 'Podaj bok C: ' );
          Read( c );

          p := ( a + b + c ) / 2;
          Writeln( 'Pole tego trojkata wynosi: ' );
          Write( sqrt( p * ( p - a ) * ( p - b ) * ( p - c ) ) );
     end
     else if m = 3 then 
     begin
          Writeln( 'Podaj puntk Ax: ' );
          Read( ax );
          Writeln( 'Podaj puntk Ay: ' );
          Read( ay );

          Writeln( 'Podaj puntk Bx: ' );
          Read( bx );
          Writeln( 'Podaj puntk By: ' );
          Read( by );
          
          Writeln( 'Podaj puntk Cx: ' );
          Read( cx );
          Writeln( 'Podaj puntk Cy: ' );
          Read( cy );

          Writeln( 'Pole tego trojkata wynosi: ' );
          Write( abs( ax * by + bx * cy + cx * ay - cx * by - ax * cy - bx * ay ) / 2 );
     end
     else
          Writeln( 'Musisz podac od 1 do 3' );
end.

Jest i trzecia! =P

 

Bą. Pierwszy raz od 9 lat piszę w Pascalu.

[ibizaa]

zdolny cczłowiek z ciebie :D

[pablo1517]

Długość pola podstawy razy 0.5 wysokości chyba nie xD?

[ibizaa]

napisalam ladnie i wszystko mi sie wyswietla ale jak wpisuje dlugosc bokow albo podstawy albo wysokosci to program znika;/ co mam zrobic ?

[mike_p]

ReadLn(); dać?

[ibizaa]

a gdzie to readln ?

[mike_p]

Po wyświetleniu odpowiedzi. Bo tak to program nie ma na co czekać i zakańcza się :F

[pablo1517]

a gdzie to readln ?

 

o boże -.-

 

Tymonek widze jak zobaczył, że ma doczynienia z kobietą to i 3 sposób się zachciało :P

[ibizaa]

ale w programie gdzie ja mam to napisac??

nooo co ja blondynka jestem hehe mozecie sie smiac ale ja pierwszy raz tego pascala na oczy widze

[mike_p]

Np przed end. :P

[ibizaa]

ale samo Readln ??

[mike_p]

Readln; :boxed:

 

Tak, wtedy aplikacja się wyłączy dopiero po wciśnięciu jakiegoś klawisza :P

[ibizaa]

no zamyka sie jak wciskam enter.. ale chodzi o to ze po wpisaniu dlugosci bokow nie liczy mi sie pole tylko sie zamyka

[Vardi]

Widzicie, że dziewczyna nie miała styczności z Pascalem i mówicie jej zamiast pomóc.

 

program Trojkaty;

var
     m : integer;
     a, b, c, p, h, ax, ay, bx, by, cx, cy : real;
begin
     Writeln( 'Metody: ' );
     Writeln( '  1 - podstawowa ' );
     Writeln( '  2 - Herona ' );
     Writeln( '  3 - wektorowa ' );
     Writeln( 'Podaj numer metody ( 1-3 ): ' );
     Read( m );

     if m = 1 then
     begin
          Writeln( 'Podaj wysokosc: ' );
          Read( h );
          Writeln( 'Podaj dlugosc podstawy: ' );
          Read( a );

          Writeln( 'Pole tego trojkata wynosi: ' );
          Write( a * h / 2 );
          Readln();
     end
     else if m = 2 then
     begin
          Writeln( 'Podaj bok A: ' );
          Read( a );
          Writeln( 'Podaj bok B: ' );
          Read( b );
          Writeln( 'Podaj bok C: ' );
          Read( c );

          p := ( a + b + c ) / 2;
          Writeln( 'Pole tego trojkata wynosi: ' );
          Write( sqrt( p * ( p - a ) * ( p - b ) * ( p - c ) ) );
          Readln();
     end
     else if m = 3 then
     begin
          Writeln( 'Podaj puntk Ax: ' );
          Read( ax );
          Writeln( 'Podaj puntk Ay: ' );
          Read( ay );

          Writeln( 'Podaj puntk Bx: ' );
          Read( bx );
          Writeln( 'Podaj puntk By: ' );
          Read( by );
          
          Writeln( 'Podaj puntk Cx: ' );
          Read( cx );
          Writeln( 'Podaj puntk Cy: ' );
          Read( cy );

          Writeln( 'Pole tego trojkata wynosi: ' );
          Write( abs( ax * by + bx * cy + cx * ay - cx * by - ax * cy - bx * ay ) / 2 );
          Readln();     
    end
     else
          Writeln( 'Musisz podac od 1 do 3' );
          Readln();
end.

 

Dałem readln w paru miejscach i myślę, że będzie działać. Nie programuje w Pascalu, więc nie jestem co do tego przekonany na 100%.

[mike_p]

No i masz 2 ReadLn; pod rzad za każdym razem.

[Vardi]

Nie widzę nigdzie pod rząd, ale jeśli Ty widzisz to popraw mnie i już.

[mike_p]

W każdym z ifów masz jeden, a kiedy one się kończą masz jeden na końcu ;)

[ibizaa]

dziekuje bardzo wszystko działa jestescie boscy :D :D

[Vardi]

Jak będzie nawet za dużo to nic się nie stanie, ważne żeby działało