Reikia parašyt programą su paskaliu

Kas už 10lt galetų parašyt šitą programą? :)

10.4. (įrašas, masyvas, funkcija) 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? Pastaba: visi reikalingi duomenys įvedami iš klaviatūros, rezultatai išvedami į ekraną.

Gaila, kad pats daug darbų turiu, padėčiau. :) iki kada tau reikia šitos programos?

Savaites begyje :)

Būtų smagu atgaivinti FPS įgūdžius. Jei turėsiu daugiau laiko įmesiu čia programą. :)

zvirbluiti, įdomumo dėlei, tu mokykloje mokaisi ar čia universitete tokių dalykų reikia?

zvirbluiti, įdomumo dėlei, tu mokykloje mokaisi ar čia universitete tokių dalykų reikia?

Aš sitą dariau mokykloj gal 9 klasėj... 1:1 salyga, tos pačios vyšnios...

Aš sitą dariau mokykloj gal 9 klasėj... 1:1 salyga, tos pačios vyšnios...

9 klasėj ? Mes tai vien tik masyvą, funkciją, įrašą pradėjom 11 kl mokintis... :D

Nu kad tik 10oi prasideda programavimas as nezinau kaip jis 9toi klasei galejo sita daryt..

program untitled;

var N,i,A,B,C,vysnios : integer;

turis,turisVysnios,R : real;

BEGIN

ReadLn(N);

ReadLn®;

turisVysnios := (4/3) * 3.14 * (R * R * R); // vysnia tai yra rutulys, apskaiciuojame jos turi.

vysnios := 0;

for i := 1 to N do

begin

ReadLn(A,B,C);

turis := A * B * (C / 2); // turis pripilto vandens

// Pagal archimedo jega koki turi idesim toki turi vandens istumsime

// taigi vysniu bendras turis negali virsyti 1/2 indo turio..

vysnios += round(int(turis / turisVysnios));

end;

WriteLn('vysniu : ',vysnios);

END.

prasitestuok, jei blogai skaiciuoja ar kas neveikia, rasyk, nes nepatikrinau ar gerai skaiciuoja ar ne..

Universitete cia :) 1-as kursas. Man reiktu dar kad biski paiskintum privaciai ir i koki fps faila tada atsilyginciau :)

Pasirodo reikalavimai yra tokie kad,turi buti panaudotas irasas, masyvas ir funkcija :) Taigi mano pasiulymas vis dar galioja :)

10.4. (įrašas, masyvas, funkcija) 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? Pastaba: visi reikalingi duomenys įvedami iš klaviatūros, rezultatai išvedami į ekraną.

program Noname;
type
   Tdeze = record
       A, B, C:integer;
       end;
   Tdezes = array[1..maxint] of Tdeze;
// Funkcija kuri suskaiciuoja kiek telpa vysniu dezeje,
function KiekTelpaDezeje(a,b,c:integer; r:real):integer;
var Dezes_Turis, Vysnios_Turis, likes_turis:real;
   telpa_vysniu:integer;
begin
Dezes_Turis := a * b * c;
Vysnios_Turis := (4/3) * 3.14 * (r*r*r);
likes_turis := Dezes_Turis / 2;
telpa_vysniu := 0;
while likes_turis > 0 do
   begin
   telpa_vysniu:= telpa_vysniu + 1;
   likes_turis := likes_turis - Vysnios_Turis;
   end;
KiekTelpaDezeje := telpa_vysniu;
end;

var R:real;
   Deziu_kiekis:integer;
   Deziu_mas:Tdezes;
   i:integer;
begin
write('Iveskite deziu kieki: '); readln(Deziu_kiekis);
for i:=1 to Deziu_kiekis do
   begin
   readln(Deziu_mas[i].A, Deziu_mas[i].B, Deziu_mas[i].C);
   end;
write('Iveskite vysnios skersmeny: '); readln(R);
for i:=1 to Deziu_kiekis do
   begin
   writeln('Dezeje (', Deziu_mas[i].A,' ', Deziu_mas[i].B,' ', Deziu_mas[i].C, ') telpa: ', KiekTelpaDezeje(Deziu_mas[i].A, Deziu_mas[i].B, Deziu_mas[i].C, R));
   end;
end.

Jei tiks tai susisiek :)