Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

[Pascal] Jak napisać procedure do obliczania pól i objętości

joziek22 19 Lis 2010 14:59 3076 8
  • #1 19 Lis 2010 14:59
    joziek22
    Poziom 8  

    Jak napisać procedure do obliczania pól i objętości graniastosłupów ?

    0 8
  • #2 19 Lis 2010 15:33
    arnoldziq
    Moderator Programowanie

    A zna kolega odpowiednie wzory ?

    0
  • #3 19 Lis 2010 15:35
    joziek22
    Poziom 8  

    Graniastosłup Objętość=Pp*H Pole=2*Pp+Pb
    Jak napisać ?

    0
  • #4 19 Lis 2010 15:42
    arnoldziq
    Moderator Programowanie

    Np w ten sposób :

    Code:
    var
    
     pole,obj : double;
     h,pp,pb : double;
    begin
     write('Podaj pp : ');
     readln(pp);
     write('Podaj pb : ');
     readln(pb);
     write('Podaj h  : ');
     readln(h);
    pole:=2*pp+pb
     obj:=pp*h
    end.

    2
  • #5 19 Lis 2010 15:48
    joziek22
    Poziom 8  

    Ale ja nie mam podanych pp i pb ja je sam muszę wyliczyć, mając podane tylko a,h

    0
  • #6 19 Lis 2010 15:53
    arnoldziq
    Moderator Programowanie

    Aha :)
    No to się sprawa trochę komplikuje :)
    A jaką podstawę będą miały te graniastosłupy ? Kwadrat? Trójkąt? Koło?

    0
  • #7 19 Lis 2010 15:58
    1545561
    Użytkownik usunął konto  
  • #8 19 Lis 2010 16:26
    joziek22
    Poziom 8  

    Wiem mam już menu, tylko że potrzebuje procedury do obliczania pola i objętości graniastosłupa prawidłowego trójkątnego, czworokątnego i sześciokątnego.

    Dodano po 24 [minuty]:

    Znam tylko, że mi chodzi o to żeby to zapisać w programie .

    0
  • #9 19 Lis 2010 16:40
    arnoldziq
    Moderator Programowanie

    Zamieść tu swój kod, bo nie bardzo rozumiem, na czym polega twój problem ...
    Nie umiesz przemnożyć w Pascal-u dwóch liczb ? Przecież kilka postów wyżej, masz dokładnie napisane jak to zrobić.

    0