czy moze ktos mi to sprawdzic czy to jest dobry algorytm na Herona ?? program trojkat; uses Crt; var a, b, c, pole: Real; begin WriteLn('Podaj po kolei a b c '); ReadLn(a, b, c); writeln('Podaj a'); readln(a); writeln('Podaj b'); readln(b); writeln('Podaj c'); readln(c); p := (a + b + c)/2; pole...

Zajrzyj do drugiego topicu, ktory zalozyles

Podpowiem CI jak to zrobic - narysuj sobie trojkat, policz jego pole nawet po kratkach i sprawdz czy sie zgadza z wynikiem, ktory dal Ci program. To raczej nie jest Twoj kod, i nawet nie masz ochoty go sprawdzic?

No tak ale czy to jest moj blad ze chce sie spytac czy to jest dobrze napisane w jezyku pascal ?? moze tu trzeba dopisac jakos komende czy cos nie wiem !!

Opisz dlaczego nie dziala to bedziemy rozmawiac. Dodano po 9 [minuty]: Przede wszystkim masz podejrzany sposob wczytywania danych. Bedzie dzialal, ale moglby dzialac lepiej. Pozatym masz niezadeklarowana zmienna p.. Tyle moge powiedziec ogladajc kod na stronie.

Nie wiem cala ta koncowka od p:= sa jakie bledy... wstawilem repeat przed p ale nadal sa bedy wykrylo 7 bledow cos z tym end; i co kolo tych p Help please Tak bardzo prosze Pozdro Dodano po 2 [minuty]: dobra z tym p juz opanowalem problem :] Nie byl na poczatku zdeklarowany ale nadal z komenda end wyskakuje mu cos problem :/

WriteLn('Pole trojkata o bokach a=', a:0:2,', b=', b:0:2,', c=', c:0:2,' wynosi p=', pole:0:2); end; {wyrzuc stad end} ReadLn;

no wlasnie tak zrobilem ale nadal cosik mu nie pasuje :/ Dodano po 1 [minuty]: takie cos jest napisane Syntax error, UNTIL expected but END found

Niepowinno - nie ma nigdzie powyzej instrukcji repeat, a ta na samym dole jest zamknieta. Chyba, ze wprowadziles jakies zmiany w zrodle.

juz dziala mam jeszcze takie pytanie zrobilem sobie taka komende ze na koncu pisze Autor imie nazwisko Writeln(' blablbla'); co zrobic zeby by odstep tej komendy od reszty zadania ?

writeln; wstawia pusta linie czyli zadanie writeln; writeln('imie i nazwisko');

A jeszcze jedno musze jeszcze napisac algorytm na rownanie kwadratowe ale nie wiem cos mi nie wychodzi motam sie z tymi wszyskimi if delta

REKLAMA

Adblock/uBlockOrigin/AdGuard mogą powodować znikanie niektórych postów z powodu nowej reguły.

Sprawdzenie poprawności algorytmu Herona w programie Pascal

kosmo785675 15 Sty 2006 18:28 4835 11

REKLAMA

Zgłoś naruszenie prawa

Odpowiedz | Nowy temat

#1 2184104 15 Sty 2006 18:28

kosmo785675 kosmo785675

Poziom 11

Posty: 14
Autor tematu

Post #1
2184104 15 Sty 2006 18:28

czy moze ktos mi to sprawdzic czy to jest dobry algorytm na Herona ??

program trojkat;
uses Crt;

var
a, b, c, pole: Real;
begin

WriteLn('Podaj po kolei a b c ');
ReadLn(a, b, c);
writeln('Podaj a');
readln(a);
writeln('Podaj b');
readln(b);
writeln('Podaj c');
readln(c);
p := (a + b + c)/2;
pole := sqrt(p*(p - a)*(p - b)*(p - c));

WriteLn('Pole trojkata o bokach a=', a:0:2,', b=', b:0:2,', c=', c:0:2,' wynosi p=', pole:0:2);
end;
ReadLn;
repeat until keypressed;
end.
Nowe złączki do PCB od WAGO [sponsorowany]

REKLAMA
#2 2184182 15 Sty 2006 18:53

Konto nie istnieje Konto nie istnieje

Konto nie istnieje

Post #2
2184182 15 Sty 2006 18:53

Podpowiem CI jak to zrobic - narysuj sobie trojkat, policz jego pole nawet po kratkach i sprawdz czy sie zgadza z wynikiem, ktory dal Ci program.

To raczej nie jest Twoj kod, i nawet nie masz ochoty go sprawdzic?
#3 2184210 15 Sty 2006 18:59

kosmo785675 kosmo785675

Poziom 11

Posty: 14
Autor tematu Pomocny post? (0)

Post #3
2184210 15 Sty 2006 18:59

No tak ale czy to jest moj blad ze chce sie spytac czy to jest dobrze napisane w jezyku pascal ?? moze tu trzeba dopisac jakos komende czy cos nie wiem !!
REKLAMA
#4 2184223 15 Sty 2006 19:12

Konto nie istnieje Konto nie istnieje

Konto nie istnieje

Post #4
2184223 15 Sty 2006 19:12

Opisz dlaczego nie dziala to bedziemy rozmawiac.

Dodano po 9 [minuty]:

Przede wszystkim masz podejrzany sposob wczytywania danych. Bedzie dzialal, ale moglby dzialac lepiej. Pozatym masz niezadeklarowana zmienna p.. Tyle moge powiedziec ogladajc kod na stronie.
REKLAMA
#5 2184530 15 Sty 2006 20:16

kosmo785675 kosmo785675

Poziom 11

Posty: 14
Autor tematu Pomocny post? (0)

Post #5
2184530 15 Sty 2006 20:16

Nie wiem cala ta koncowka od p:= sa jakie bledy... wstawilem repeat przed p ale nadal sa bedy wykrylo 7 bledow cos z tym end; i co kolo tych p Help please
Tak bardzo prosze

Pozdro

Dodano po 2 [minuty]:

dobra z tym p juz opanowalem problem :] Nie byl na poczatku zdeklarowany ale nadal z komenda end wyskakuje mu cos problem :/
#6 2184567 15 Sty 2006 20:21

Konto nie istnieje Konto nie istnieje

Konto nie istnieje

Post #6
2184567 15 Sty 2006 20:21

WriteLn('Pole trojkata o bokach a=', a:0:2,', b=', b:0:2,', c=', c:0:2,' wynosi p=', pole:0:2);
end; {wyrzuc stad end}
ReadLn;
#7 2184574 15 Sty 2006 20:24

kosmo785675 kosmo785675

Poziom 11

Posty: 14
Autor tematu Pomocny post? (0)

Post #7
2184574 15 Sty 2006 20:24

no wlasnie tak zrobilem ale nadal cosik mu nie pasuje :/

Dodano po 1 [minuty]:

takie cos jest napisane Syntax error, "UNTIL" expected but "END" found
#8 2184594 15 Sty 2006 20:28

Konto nie istnieje Konto nie istnieje

Konto nie istnieje

Post #8
2184594 15 Sty 2006 20:28

Niepowinno - nie ma nigdzie powyzej instrukcji repeat, a ta na samym dole jest zamknieta. Chyba, ze wprowadziles jakies zmiany w zrodle.
#9 2184656 15 Sty 2006 20:41

kosmo785675 kosmo785675

Poziom 11

Posty: 14
Autor tematu Pomocny post? (0)

Post #9
2184656 15 Sty 2006 20:41

juz dziala mam jeszcze takie pytanie zrobilem sobie taka komende ze na koncu pisze Autor imie nazwisko
Writeln(' blablbla'); co zrobic zeby by odstep tej komendy od reszty zadania ?
#10 2184675 15 Sty 2006 20:45

Konto nie istnieje Konto nie istnieje

Konto nie istnieje

Post #10
2184675 15 Sty 2006 20:45

writeln; wstawia pusta linie

czyli

zadanie
writeln;
writeln('imie i nazwisko');
REKLAMA
#11 2184684 15 Sty 2006 20:46

kosmo785675 kosmo785675

Poziom 11

Posty: 14
Autor tematu Pomocny post? (0)

Post #11
2184684 15 Sty 2006 20:46

A jeszcze jedno musze jeszcze napisac algorytm na rownanie kwadratowe ale nie wiem cos mi nie wychodzi motam sie z tymi wszyskimi if delta <0 itp :/
Pomocny post

#12 2184693 15 Sty 2006 20:48

Konto nie istnieje Konto nie istnieje

Konto nie istnieje

Pomocny post
Post #12
2184693 15 Sty 2006 20:48

Zajrzyj do drugiego topicu, ktory zalozyles
Zarejestruj konto, Zaloguj się i bądź aktywny na forum, a wtedy reklamy nie będą się pojawiać. Dołącz do dyskusji i otrzymaj punkty za rejestrację oraz odpowiedzi.

Zainstaluj aplikację Elektroda

Odpowiedz | Nowy temat

Zgłoś naruszenie prawa

Podsumowanie tematu

Dyskusja dotyczy weryfikacji poprawności implementacji algorytmu Herona w języku Pascal do obliczania pola trójkąta na podstawie długości boków. Wskazano błędy w kodzie, takie jak brak deklaracji zmiennej pomocniczej p oraz niepoprawne użycie instrukcji wczytywania danych (wielokrotne ReadLn dla tych samych zmiennych). Problemy pojawiały się również przy składni kończenia programu, zwłaszcza z instrukcjami end; i repeat...until, co powodowało błędy kompilacji. Sugerowano usunięcie zbędnych instrukcji end oraz poprawne zadeklarowanie wszystkich zmiennych. Dodatkowo omówiono sposób wstawiania odstępów w wyjściu konsoli za pomocą pustych poleceń writeln. Wątek kończy się pytaniem o algorytm rozwiązujący równanie kwadratowe z uwzględnieniem warunków na deltę, jednak bez szczegółowego rozwiązania w tym temacie.
Podsumowanie AI na podstawie dyskusji. Może zawierać błędy.

REKLAMA