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.

Delphi/Pascal - Program z Memo Nie działa jak powinien

kotlet52 21 Wrz 2015 23:36 390 1
  • #1 21 Wrz 2015 23:36
    kotlet52
    Poziom 7  

    Witam
    Dostałem takie zadanie do rozwiązania i nie mam zielonego pojęcia jak to zrobić.

    Opracować aplikacje, która wykorzystuje komponent Memo do wprowadzania wymiarów prostokąta(długość i szerokość). Nie więcej niż 20 prostokątów. Każda linia Memo zawiera dwa wymiary jednego prostokąta rozdzielone znakiem dwukropka. Okienko główne powinno zawierać także pole edycji, dwa przyciski button do inicjowania obliczeń:
    Pierwszy Button - Wyświetla liczbę prostokątów i przypisuje wymiary do tablic
    Drugi Button - wyświetla okienko zawierające średnia długość boku prostokątów, których obwód jest mniejszy niż liczba wpisana w pole edycyjne.
    Poprawność liczby w polu edycyjnym jak i w komponencie Memo powinna być sprawdzana.

    Kod: delphi
    Zaloguj się, aby zobaczyć kod


    Takie coś udało mi się wypocić ale nic z tego nie wychodzi. Liczy jakieś bzdury.

    0 1
  • #2 22 Wrz 2015 06:48
    oloam
    Poziom 20  

    kotlet52 napisał:
    których obwód jest mniejszy niż liczba wpisana w pole edycyjne.
    kotlet52 napisał:
    if b < ((x[i-1]+y[i-1])*2)
    <- czy oby napewno liczysz mniejszy obwod?
    kotlet52 napisał:
    s:=(x[i-1]+y[i-1])*2;
    <-czy to jest wzor na srednia? s zawiera ostatni wynik a nie sume srednich..

    Jak deklarujesz tablice to pozniej wypelniasz ja takimi indeksami jak zadeklarowales. U ciebie tablica w deklaracji indeksowana 1..20 a wypelniana 0..19 .

    To tak na szybko bez analizy kodu. Jak poprawisz to i nie bedzie dzialac wtedy moge sie przyjzec dokladnie.

    0