pascal uzdavinys

Ūkininkas turi aptverti vieliniu tinklu tris sklypus. Vienas jų yra kvadrato formos, kitas – stačiakampio, trečias – pusskritulio. Parašyti programą, kuri apskaičiuotų, kiek metrų vielinio tinklo ūkininkas turi nupirkti ir kiek išleis pinigų vieliniam tinklui, jei žinomas pirmojo sklypo kraštinės ilgis, antrojo sklypo ilgis ir plotis, trečiojo sklypo tiesiosios kraštins ilgis bei kiek kainuoja 1 m vielinio tinklo.

Sprendimas:

x - pirmojo krastines ilgis

y - antrojo sklypo ilgis

z - antrojo sklypo plotis

t - trecio sklypo tiesios krastines ilgis

l - tinklo 1m. kaina.

m - is viso reikes tinklo

k - tinklas kainuos

m = 4x + 2y + 2z + t + pi*t/4

k = m*l

program tvora;

var x,y,z,t,kaina_m,m:real;

begin

writeln('pirmojo krastines ilgis');

read(x);

writeln('antrojo sklypo ilgis');

read(y);

writeln('antrojo sklypo plotis');

read(z);

writeln('trecio sklypo tiesios krastines ilgis');

read(t);

writeln('metro kaina');

read(kaina_m);

m:=4*x + 2*y + 2*z + t + pi*t/4;

writeln('metru:',m:2:2);

writeln('isleis:',kaina_m * m:2:2);

Readln;

end.

dekui:)