Pascal 2

[bboyhabit]

Uzd: Sastādīt programmu, kura ļauj noteikt, cik dienām pietiks 200 tonnu cementa, ja pirmajā dienā paterē 5 tonnas, bet katrā nākamajā par 20% vairāk nekā iepriekšējā. Izmantojiet jebkuru cikla konstrukciju.

 

Mazliet esmu iesprūdis, kāds var palīdzēt?

 

program tonna;

 

uses crt;

var

  x,y,t:integer;

       s:real;

       u:real;

 

 

 

begin

 

  clrscr;

  x:=200;

  y:=195;

  t:=5;

 

  writeln('Katra naakamajaa dienaa tiks izmantots par 1 tonnu vairaak');

  readln;

  begin

    repeat

      u:=t*20/100;

      t:=t+u;

      s:=y-t;

 

    until s<t;

 

  end;

  writeln('Cements pietiks ' ,s , 'dienaam');

 

 

 

end.

            

 

Cik zinu vajadzētu droši vien izmantot 'div' bet īsti nezinu, kur un kā. Man pašlaik met ārā error'u, ka vajadzētu nomainīt tipu uz longint no real, lai gan to izdarot, nekas nemainās un errors tāpat ir.

[AndrisBB]

sac ar to ka mainigajiem iedod jegpilnus nosaukumus, savadak saprast neko nevar

.....

Vari meginat parverst Paskala

float cementaDaudzums = 200;
float paterins = 5;
float pieaugums = 0.2;
int dienas = 0;

while((cementaDaudzums - paterins) > 0)
{
  printf("Sodien nepieciesamais dcementa audzums: %f \t Pieejamais cementa daudzums: %f \n", paterins, cementaDaudzums);
  cementaDaudzums = cementaDaudzums - paterins;
  paterins = paterins + (paterins * pieaugums);
  dienas++;
}

printf("Cements pietika %d dienam! \n", dienas);

Labots Septembris 21, 2014 - AndrisBB

[bboyhabit]

@AndrisBB

Man paskālā nav tik augsts līmenis takā daudz no tava koda nesaprotu. Pieņemu, ka tas kā esmu nosaucis mainīgos nav tik būtiski kā tas, ka datu tipos ir kāda šaize, ja jau met errorus.

12kl. programmēšāna - līdz cikliem konstr. - varbūt kko izteiks.

[VIL]

Ja visiem mainīgajiem nomainīsi tipu uz real, tad kļūdas par tipa maiņu uz Longint nebūs.