Free Pascal :p

09 cze 2015, 18:12
SkyThane

SkyThane

Aktywny Gracz 287 posty 122 pkt.

Free Pascal :p

09 cze 2015, 18:12
Jest tu ktoś kto ogarnia Pascala może?
Bo muszę zrobić kilka programików i wcale nie mogę ogarnąć jak :p
Dlatego też, czy któś by mógł jakoś to rozjaśnić?
Znalazłem tutaj fajne zadania:
http://labor.kis.p.lodz.pl/wdi/6_13_pascal.htm
I nawet jedno nie różni się praktycznie od tego co ja mam zrobić, a konkretni jest to zadanie 7, punkt 1.
Jednak chciałbym się też dowiedzieć jak zrobić resztę punktów :D
A jeśli znacie jakies fajne strony o tym nieszczęsnym języku, które mogą mi pomóc to też nie pogardzę :p
Z góry dzięki za odpowiedzi ;)

Re: Free Pascal :p

10 cze 2015, 01:01
waldi95

waldi95

Początkujący User 1 posty 0 pkt.

Re: Free Pascal :p

10 cze 2015, 01:01
Nie pamiętam wiele z Pascala, więc mogą pojawić się błędy w składni, ale postaram się coś pomóc, najważniejsze żebyś nie kopiował kodu ale go przeanalizował

Kod:
begin
readln xp;
readln yp;

if (xp >= 3 - 3/2*yp) || (xp<=0) || (yp<=0)
begin
 writeln ("Punkt P(xp,yp) nie lezy wewnatrz trojkata.);
end;
else
begin
 writeln("Punkt P(xp,yp) lezy wewnatrz trojkata.);
end;
end.


Po sprawdzeniu tego algorytmu w C++ wyświetla raczej dobrze.

Re: Free Pascal :p

10 cze 2015, 11:48
SkyThane

SkyThane

Aktywny Gracz 287 posty 122 pkt.

Re: Free Pascal :p

10 cze 2015, 11:48
Dobra, dzięki wielkie już prawie rozkminilem :)
  • Brak nieprzeczytanych postów
  • Nieprzeczytane posty
  • Wątek zablokowany
  • Wątek przeniesiony

widget instagram lenovo
widget twitter lenovo
widget facebook lenovo
widget youtube lenovo