Pascal - pagalba

Sveiki, gal kas galėtumėte padėti, reikia parašyti dvi programas.

1. Plokštumoje yra daug atkarpų, kurių galų taškų koordinatės - x1(n), y1(n), x2(n), y2(n). Surasti ketvirtojo ketvirčio atkarpų ilgių sumą. Rasti ilgiausią I- ketvirčio atkarpą . Atkarpos ilgiui nustatyti sudarykite funkciją.

2. Plokštumoje yra n atkarpų, kurių galų taškų koordinatės - x1(n), y1(n), x2(n), y2(n). Surasti antrojo ir ketvirtojo ketvirčio atkarpų ilgių sumą. Atkarpos ilgiui ir ketvirčiui nustatyti sudarykite procedūrą.

Sveiki, gal kas galėtumėte padėti, reikia parašyti dvi programas.

 

1. Plokštumoje yra daug atkarpų, kurių galų taškų koordinatės - x1(n), y1(n), x2(n), y2(n). Surasti ketvirtojo ketvirčio atkarpų ilgių sumą. Rasti ilgiausią I- ketvirčio atkarpą . Atkarpos ilgiui nustatyti sudarykite funkciją.

 

2. Plokštumoje yra n atkarpų, kurių galų taškų koordinatės - x1(n), y1(n), x2(n), y2(n). Surasti antrojo ir ketvirtojo ketvirčio atkarpų ilgių sumą. Atkarpos ilgiui ir ketvirčiui nustatyti sudarykite procedūrą.

Čia kas nors nesuprantamo ar tiesiog nori, kad kas nors už tave darbą nudirbtų? Jei gerai prisimenu tai ketvirtas ketvirtis, kai x>0, y<0. Pagal tai atsirūšiuoji koordinates, o ilgį skaičiuoji pagal formulę:

 L:=sqrt(sqr(y2-y1)+sqr(x2-x1));

:)

Čia kas nors nesuprantamo ar tiesiog nori, kad kas nors už tave darbą nudirbtų? Jei gerai prisimenu tai ketvirtas ketvirtis, kai x>0, y<0. Pagal tai atsirūšiuoji koordinates, o ilgį skaičiuoji pagal formulę:

 L:=sqrt(sqr(y2-y1)+sqr(x2-x1));

:)

Ne, tiesiog gavau paskaitoms padaryti 10 laboratorinių, su papildomis užduotimis. Viską padariau, tik iš vienos papildomos užduoties negaliu parašyti šių programų. Jų man trūksta iki pilno darbo, tai va ieškau kas pagelbėtų :)

Paprastučiai uždavinukai jei nors kiek įsivaizduoji kaip tie ketvirčiai išsidėstę (neigiamos ar teigiamos x, y reikšmės).

O kaip įvedami duomenys? Iš kur žinot kiek tų atkarpų yra?

Sveiki, gal galit padėt padaryt, reikia programos, kuri išrinktų kokį nors skaičių iš tam tikro intervalo