Pascal užduotelė

Programa.D. Britanijoje skysčiai buvo matuojami galonais ir bušeliais; 8 galonai sudarė bušelį, 4,55 litrai sudarė galoną. Parašykite programą dviems skysčio kiekiams sudėti: pirmas pateiktas angliškais vienetais, o antrą sudaro 13,65 kartus daugiau litrų, nei galonų pirmame. Rezultatas išreiškiamas tiek angliškais vienetais, tiek litrais. Pavyzdžiui, turime 5 bušelius ir 3 galonus, tai sudedame su 586,95 litrų ir suma bus lygi 21 bušeliui ir 4 galonui, arba 782,6 litrų. Pradiniai duomenys – du sveikieji skaičiai.

Pastaba. Programoje leistina naudoti tik sveikojo tipo kintamuosius.

program Galonu_buseliu_litru_sudetis;
var bus, gal, l: real; // kintamieji ir naudosim tik sveikus skaicius

begin
 WriteLn('Irasykite kiek galonu, buseliu ir litru norite sudeti!');
 ReadLn(bus, gal); //nuskaitome skaicius
  l:= (bus*8+gal)*13.65+(bus*8+gal)*4.55;  // isviso litru bus
  bus:= l div 4.55 div 8;                  // buseliu bus
  gal:= l div 4.55 - bus*8;                // galonu bus
 WriteLn('Isviso turime', bus:4,'buselius', gal:4, 'galonus ir',l:5, 'litrus');
 Readln;
end.

Kodėl neveikia?

program Galonu_buseliu_litru_sudetis;
var bus, gal, l: real; // kintamieji ir naudosim tik sveikus skaicius

begin
 WriteLn('Irasykite kiek galonu, buseliu ir litru norite sudeti!');
 ReadLn(bus, gal); //nuskaitome skaicius
  l:= (bus*8+gal)*13.65+(bus*8+gal)*4.55;  // isviso litru bus
  bus:= l div 4.55 div 8;                  // buseliu bus
  gal:= l div 4.55 - bus*8;                // galonu bus
 WriteLn('Isviso turime', bus:4,'buselius', gal:4, 'galonus ir',l:5, 'litrus');
 Readln;
end.

 

Kodėl neveikia?

Mod bei div neveikia su realaus skaičio tipu, tik su Integer.

real yra realusis skaičius t.y , o integer sveikasis.

Mod bei div neveikia su realaus skaičio tipu, tik su Integer.

su integer taipogi neveikia.

su integer taipogi neveikia.

Žinoma kad neveikia

l:= (bus*8+gal)*13.65+(bus*8+gal)*4.55; 

Tu jį daugini iš skaičių su kableliais.

Naudok TRUNC(x) arba INT(x).

Nesu bandęs su Pascal, bet įdomumo dėlei parsisiunčiau Free Pascal ir pabandžiau pažaisti. Su Google pagalba gavosi toks rezultatas:

program Galonu_buseliu_litru_sudetis;
var bus, gal, viso_gal, pirmas_gal, antras_gal: longint; // kintamieji ir naudosim tik sveikus skaicius

begin
 WriteLn('Irasykite kiek galonu, buseliu ir litru norite sudeti!');
 ReadLn(bus, gal); //nuskaitome skaicius
  pirmas_gal:= bus * 8 + gal;
  antras_gal:= round(pirmas_gal * 13.65 / 4.55);
  viso_gal:= pirmas_gal + antras_gal;
  bus:= viso_gal div 8;
  gal:= viso_gal mod 8;
 WriteLn('Isviso turime', bus:4,' buselius', gal:4, ' galonus ir ', viso_gal*4.55:5:1 ,' litrus');
 Readln;
end.

Su užduoties parametrais susitvarko (5 bušeliai, 3 galonai), bet nežinau ar čia viskas teisingai :)