Autorius Tema: Pascal uždavinys. REIKIA PAGALBOS!  (Skaityta 2774 kartus)

Neprisijungęs sharasn

  • Naujokas
  • *
  • Įrašai: 3
  • Karma: +0/-0
    • Žiūrėti profilį
Pascal uždavinys. REIKIA PAGALBOS!
« Įrašytas: 2012-04-22 15:38:27 pm »
Kaip reikėtų spręsti tokį uždavinį? "Rimas su RIta pradėjo prekiauti ledais. Jie išsinuomojo kioską už y litų per savaitę. Jie perka ledus UAB ŠERKŠNAS po a lt už porciją ir parduoda po b lt. ŠERKŠNAS jiems gali teikti ne daugiau kaip m porcijų per savaitę. Prekyba sekėsi. Pirmąją savaitę jie pardavė tik m1 porcijų, tačiau kiekvieną kitą savaitę parduodavo po p procentų daugiau porcijų daugiau, kol pasiekė maksimalų skaičių m. Parašykite programą, kuri apskaičiuotų po kiek porcijų ledų jiems būtina parduoti per savaitę, kad atsipirktų išlaidos. Koks metinis pelnas arba nuostolis?"

Citata
program Bevardė12;
var y, a, b, m, p, k, i : integer;
m1, peln, cc : real;
begin
writeln('Už kiek litų nuomojamas kioskas?'); readln(y);
writeln('Už kiek litų jie perka ledus iš "Šerkšno"?'); readln(a);
writeln('Už kiek litų jie parduoda ledus?'); readln(b);
writeln('Kiek "Šerkšnas" gali teikti ledų porcijų jiems per savaitę?'); readln(m);
writeln('Kiek porcijų jie pardavė pirmąją savaitę?'); readln(m1);
writeln('Kiek procentų porcijų daugiau jie pardavė kitą savaitę?'); readln(p);
k := 0;
cc := m1;
peln := 0;
while ((b * m1) <= (y + a * m1)) and (m1 <= m) do begin
m1 := m1 + m1 * 0.01 * p;   end;
  WriteLn('Jiems būtina parduoti ', m1:2:0, ' porcijas per savaitę ledų, kad atsipirktų išlaidos.');
m1 := cc;
while m1 <= m do begin for i := 1 to 52 do begin
m1 := m1 + m1 * 0.01 * p; k := k + 1;
peln := (m1 * b) - (y + (a * m1)) + peln; end; end;
writeln('Per metus jų pelnas bus ', peln:2:2, ' Lt.');
  Readln;
end .

Tiek padarau, bet kaip padaryti, kad man skaičiuojant metinį pelną, tuo metu, kai m1 pasiekia skaičių 70, jis ir liktų toks, o nedidėtų?

Neprisijungęs juodas

  • Naujokas
  • *
  • Įrašai: 87
  • Karma: +0/-0
    • Žiūrėti profilį
Ats: Pascal uždavinys. REIKIA PAGALBOS!
« Atsakymas #1 Įrašytas: 2012-08-08 21:44:46 pm »
Sveiki, turiu as irgi klausima. Nekursiu naujos temos, nes ir sita tinkama. Taigi. Sprendziu uzdavini ir iskilo problema, kai salygos sakinyje if reikia atlikti nedideli skaiciavima. As rasau taip: if (n mod 4) = 0 then bandziau ir be skliaustu ant n mod 10 bet nieko nepadeda, vis meta toki error kompiliuojant: Incompatible types: got "S64REAL" expected "LONGINT" apacioj prisegsiu foto, kad pamatytumete visa algoritma. Kintamasis n yra real tipo, galbut todel neleidzia su juo atlikti mod dalybos, bet man reikia patikrinti ar jis turi skaiciu po kablelio, o su / dalyba nemoku. Galite duoti patarimu?

Paveikslelius reikia prideti prie forumo zinutes, o ne i kazkoki kita puslapi!
« Paskutinį kartą keitė: 2012-08-09 09:36:51 am sukūrė Lukas Liesis »
Seksas visai kaip matematika, atemi kelnes, pridedi lovą, padalini kojas ir daugini. Svarbu laiku ištraukti šaknį, kad neliktų liekanos.

Neprisijungęs Lukas

  • Administratorius
  • Herojus
  • ******
  • Įrašai: 7431
  • Karma: +232/-15
    • Žiūrėti profilį
Ats: Pascal uždavinys. REIKIA PAGALBOS!
« Atsakymas #2 Įrašytas: 2012-08-09 09:37:32 am »
Sveiki, turiu as irgi klausima. Nekursiu naujos temos, nes ir sita tinkama. Taigi. Sprendziu uzdavini ir iskilo problema, kai salygos sakinyje if reikia atlikti nedideli skaiciavima. As rasau taip: if (n mod 4) = 0 then bandziau ir be skliaustu ant n mod 10 bet nieko nepadeda, vis meta toki error kompiliuojant: Incompatible types: got "S64REAL" expected "LONGINT" apacioj prisegsiu foto, kad pamatytumete visa algoritma. Kintamasis n yra real tipo, galbut todel neleidzia su juo atlikti mod dalybos, bet man reikia patikrinti ar jis turi skaiciu po kablelio, o su / dalyba nemoku. Galite duoti patarimu?

Paveikslelius reikia prideti prie forumo zinutes, o ne i kazkoki kita puslapi!

si tema nera tau tinkama, nes cia pateiktas kitas uzdavinys
Jūsų draugas, kolega ir puslapio administratorius,

Lukas.

Gerda Photography
Serveriai.lt 50% nuolaida!
Free Hosting
Free Templates

Neprisijungęs juodas

  • Naujokas
  • *
  • Įrašai: 87
  • Karma: +0/-0
    • Žiūrėti profilį
Ats: Pascal uždavinys. REIKIA PAGALBOS!
« Atsakymas #3 Įrašytas: 2012-08-09 10:31:01 am »
O gali padeti isspresti?
Seksas visai kaip matematika, atemi kelnes, pridedi lovą, padalini kojas ir daugini. Svarbu laiku ištraukti šaknį, kad neliktų liekanos.

Manualai.lt Forumas

Ats: Pascal uždavinys. REIKIA PAGALBOS!
« Atsakymas #3 Įrašytas: 2012-08-09 10:31:01 am »

Neprisijungęs juodas

  • Naujokas
  • *
  • Įrašai: 87
  • Karma: +0/-0
    • Žiūrėti profilį
Ats: Pascal uždavinys. REIKIA PAGALBOS!
« Atsakymas #4 Įrašytas: 2012-08-09 18:18:27 pm »
Jau nebereikia, pakeiciau kintamojo tipa is real i integer ir padariau su div ir mod. Viskas veikia puikiai.
Seksas visai kaip matematika, atemi kelnes, pridedi lovą, padalini kojas ir daugini. Svarbu laiku ištraukti šaknį, kad neliktų liekanos.

Manualai.lt Forumas

Ats: Pascal uždavinys. REIKIA PAGALBOS!
« Atsakymas #4 Įrašytas: 2012-08-09 18:18:27 pm »