Free pascal feladat hogyan?

tipp, csak a logikát kövesd: Bekéri a hosszúságot és szélességet cm-ben. Ezt képzeletben megfelezed, és kétféleképpen számolsz.

fél kert 50 centis növénnyel:

1 sor úgy jön ki, hogy elosztod a hosszúságot 50-nel, és ahányszor megvan benne, annyi növény fér el. Majd pedig a többi sor úgy jön ki, hogy ahányszor a szélességben megvan az 50 cm, annyi sort tudsz ültetni.

fél kert 60 centis növénnyel: ugyanez, csak 60-nal.

Példa:

kert: 1000x2000 cm

Ezt megfelezed, és 500x1000cm-en ültetsz. 1000-ben az 50 hússzor van meg, így egy sorba 20 növény megy. Van még 500 szélesség, amibe 10 növény fér bele. Így 10 oszlop és 20 sor növény az 200 darabot jelent.

A másik fele is 500x1000 cm, 1000 hosszúságba 16 növény fér, 500 szélességbe pedig 8. Így 16x8 = 128 növényed lehet.

A több már csak pascal.

változók: hossz1, hossz2, szel1, szel2, noveny1, noveny2

bekéred a hossz1, és szel1-et

noveny1:=hossz1/50*szel/50

bekéred a hossz2, és szel2-et

noveny2:=hossz1/60*szel/60

kiírod('az elso novenybol',noveny1,' darab kell, a masodikbol',noveny2,' darab kell');

program noveny;

uses crt;

var a,b,c,d: integer;

const noveny1=50; noveny1=60;

begin

write ('Kérem a kert hosszúságát cm-ben!');

read (a);

writeln ('Kérem a kert szélességét cm-ben!');

read (b);

begin

c:=(b div noveny1)*(a/2 div noveny1);

writeln ('Az első növényből',c,' db kell');

d:=(b div noveny2)*(a/2 div noveny2);

writeln ('A második növeényből',d,' db kell');

end;

readln;

end.

lehet h rossz a logikám. valamint nem próbáltam ki h működik e a program. talán segít valamennyit.