Labai reikalinga pagalba

Turime N skirtingų stačiakampių dėžių. Kiekvienos dėžės pagrindas A × B ir aukštis C žinomi. Visos dėžės iki pusės pripiltos vandens. Kiek galima į kiekvieną dėžę priberti vyšnių (kaip žinome, jos skęsta), jeigu vyšnios skersmuo R mm ir vandens neturi išbėgti. A, B ir C reikšmės ne mažesnės kaip 50 cm. Kiek iš viso vyšnių bus suberta?

Bandziau pats parasyti vat kas iseina kada su viena deze viskas ok ir nezinau kaip padaryti kad butu daugiau dezius ta prasme jejgu 2 dezes du atsakymai turi buti gal kas zinot kaip padaryti prasau pedekit labai reikia.

program Vyšnios;

var a, b, c, r, ap : real;

n: integer;

kiek : longint;

begin

writeln('Parašykite vyšnios skersmenį r milimetrais');

readln®;

writeln('Parašykite kiek dėžių turime');

readln(n);

writeln('Parašykite dėžės išmeras a, b, c, nemažesne kaip 50 cm');

readln(a,b,c);

if a>=50 then if b>=50 then if c>=50 then

ap := a*b*c;

r := r / 10 / 2; {Verčiam spindulį į centimetrus}

kiek := trunc ((ap / 2 / ((4/3) * Pi * r * r * r)));

WriteLn(kiek); Writeln( ' Tiek vyšnių telpa į ') ;Writeln(n); Writeln(' dėžių');

Readln;

end.

Esmė maždaug tokia:

* Nusiskaitai kiek yra dėžių.

* Suki n kartų ciklą.

* Cikle kreipiesi į funkciją, kurioje yra kubo kraštinių nusiskaitymas, rezultato apskaičiavimas ir rezultatų išspausdinimas.

EDIT: Kaip supratau tau čia reikia suskaičiuoti kiek IŠ VISO bus suberta vyšnių, o ne kiek į kiekvieną dėžę atskirai. Tai tada funkcija nusiskaito dėžės matmenis ir grąžina rezultatą kiek toje dėžėje telpa vyšnių. Ir tą rezultatą sumuoji. O po to už ciklo ribų atspausdini.

EDIT2: Na jeigu nenori kurt funkcijos, tai viską gali rašyti tiesiog cikle. ;)

Man reikia kiekvienoi dezei atskirai ir vat as nezinau kaip rasyt jau dvi dienas bandau parasyt ir nieko nepavyksta kaip su tuo ciklu rasyt gal galetum padet.

Senai su paskaliu kažką programavau, tai gerai nebeprisimenu sintaksės. Na bet kažkas tokio:

program Vyšnios;

var a, b, c, r, ap : real;

n, i: integer;

kiek : longint;

begin

writeln('Parašykite vyšnios skersmenį r milimetrais');

readln®;

writeln('Parašykite kiek dėžių turime');

readln(n);

for i := 1 to n do

begin

writeln('Parašykite dėžės išmeras a, b, c, nemažesne kaip 50 cm');

readln(a,b,c);

if a>=50 then if b>=50 then if c>=50 then

ap := a*b*c;

r := r / 10 / 2; {Verčiam spindulį į centimetrus}

kiek := trunc ((ap / 2 / ((4/3) * Pi * r * r * r)));

WriteLn(kiek); Writeln( ' Tiek vyšnių telpa į ') ;Writeln(n); Writeln('-ąją dėžę');

end;

Readln;

end.

Nebeiseina su sita programa jis viska skaiciouja kaip ir skaiciavo gali pats pabandyt

Tai įvesk dėžių skaičių tarkim 3. Suvesi pirmos dėžės matmenis ir tau parašys kiek ten vyšnių telpa. Po to suvesi antros dėžės matmenis ir vėl tau parašys kiek telpa ir t.t.

Beje, bet vistiek aš tavo pirmo posto sąlygoje matau, kad uždavinys reikalauja kiek IŠ VISO vyšnių bus suberta, o ne kiek į kiekvieną dėžę. :rolleyes:

Vistiek nelabai pavyksta gal kas nors kitas zinos kaip parasyti

Tai paaiškink kas konkrečiai nepavyksta?

EDIT: Vien tik dėl tavęs atsisiunčiau fps compilerį ir pažiūrėjau kas tau ten neveikia... :angry:

Forume eilutę, kur nusiskaito vyšnių skersmenį ( r ) atpažino kaip tokį ženklą ®, kurį tu tiesiai kopijuoji į compilerį ir tau niekas neveikia. Pataisyk ir bus gerai.

Ir ten neprivesk labai didelių skaičių dėžės matmenims, nes kai apskaičiuoja tūrį, gaunasi labai didelis skaičius ir peržengia rėžius. Dar dėl to gali mest klaidą.

Tai tu imesk i fps ir paziurek nes as nezinau kaip paiskint man atrodo kad ciklas blogai veikia nes kada ivedi tarkim 3 dezes ivedi matmenis ir paspaudi enter turetum rasyti kitos dezes matmenis o programa tau duoda atsakyma nepriklausomai nuo to kiek tu parasysi deziu ar 2 ar 3 ir taip toliau

Tai tu imesk i fps ir paziurek nes as nezinau kaip paiskint man atrodo kad ciklas blogai veikia nes kada ivedi tarkim 3 dezes ivedi matmenis ir paspaudi enter turetum rasyti kitos dezes matmenis o programa tau duoda atsakyma nepriklausomai nuo to kiek tu parasysi deziu ar 2 ar 3 ir taip toliau

Nu tai suvesk kitos dėžės matmenis ir tada vėl gausi atsakymą ir t.t. O jeigu nori tu pirma suvesti N dėžių matmenis, o po to gauti rezultatus, tai tada jau reikia visus duomenis dėti į masyvus. Ar tokį dalyką moki?

Bet vistiek aš tau dar kartą sakau, kad tau reikia ne kiekvienos dėžės vyšnių skaičių, o visų dėžių vyšnių skaičių atspausdint.

ne masyvu nemoku gal galetum padet

program Vyðnios;

type Masyvas = array[1..500] of longint;

var a, b, c, r, ap : real;

n, i: integer;

kiek : Masyvas;

begin

writeln('Paraðykite vyðnios skersmená r milimetrais');

readln®;

r := r / 10 / 2; {Verèiam spindulá á centimetrus}

writeln('Paraðykite kiek dëþiø turime');

readln(n);

for i := 1 to n do

begin

writeln('Paraðykite dëþës iðmeras a, b, c, nemaþesne kaip 50 cm');

readln(a,b,c);

if a>=50 then if b>=50 then if c>=50 then

ap := a*b*c;

kiek := trunc ((ap / 2 / ((4/3) * Pi * r * r * r)));

end;

i := 0;

for i := 1 to n do

begin

Write(kiek); Write( ' Tiek vyðniø telpa á ') ;Write(i); Writeln('-àjà dëþæ'); WriteLn();

end;

Readln;

end.

didelis tau aciu ziauriai geras zmogus esi viskas veikia aCIUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU