Pereiti prie turinio

Informatikos užduotis


Rekomenduojami pranešimai

Aš nesuprantu kelių dalykų.Didesnis/mažesnis tai tikrinti reikia įvestą skaičių ar čia sukant ciklą tikrint ciklo kintamajį?

 

Nes jeigu pagal įvesta - skaičiai tampa per dideli net su longint tipu.

Tarkim nuo 4 iki 9 sukant,

kai 4 , Sum=16;

kai 5, Sum=16*25=400

Kai 6, Sum=400*36=14400

kai 7, Sum=14400*49=705600

Kai 8, Sum=705600*64=45158400

Kai 9, - Jau per dideli skaičiai.

 

Na,o jeigu čia reik tikrint pagal ciklo kintamajį tada įmanoma,tiesiog pasakyk kaip čia turi būt

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Aš nesuprantu kelių dalykų.Didesnis/mažesnis tai tikrinti reikia įvestą skaičių ar čia sukant ciklą tikrint ciklo kintamajį?

 

Nes jeigu pagal įvesta - skaičiai tampa per dideli net su longint tipu.

Tarkim nuo 4 iki 9 sukant,

kai 4 , Sum=16;

kai 5, Sum=16*25=400

Kai 6, Sum=400*36=14400

kai 7, Sum=14400*49=705600

Kai 8, Sum=705600*64=45158400

Kai 9, - Jau per dideli skaičiai.

 

Na,o jeigu čia reik tikrint pagal ciklo kintamajį tada įmanoma,tiesiog pasakyk kaip čia turi būt

 

kaip suprantu, tai reikia pagal ciklo kintamaji

 

pvz pavizdys man buvo ;

parašyti programą kuri suskaičiuotų nuo 1 iki n lyginių skaičių sumą, o nelyginių sandaugą

 

program suma;

var n, i, S, S1:integer;

begin

writeln ('Iveskite nariu skaiciu');

read (n);

S:=0;

S1:=1;

for i:=1 to n do

if i mod 2=0

then

begin

S:=S+i;

end

else begin

S1:=S1*i;

end;

writeln ('Ats:',S);

WRITELN ('Ats:',S1);

end.

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Tai mažu šitaip:

program KubKv;
 var l,sum:longint;
     i,n:integer;
begin
 readln(n);
 sum:=0;
 For i:=4 to n do
 Begin
   if i>=9 then
   Begin
     sum:=sum*i*i;
   end else
   sum:=sum+i*i*i;
 end;
 writeln(sum);
 Readln;
end.

 

...

 

jau supratau, aciu uz pagalba

Redagavo lixen
Nuoroda į pranešimą
Dalintis kituose puslapiuose
Svečias
Parašykite atsakymą...

×   Įdėta kaip raiškusis tekstas.   Atkurti formatavimą

  Only 75 emoji are allowed.

×   Nuorodos turinys įdėtas automatiškai.   Rodyti kaip įprastą nuorodą

×   Jūsų anksčiau įrašytas turinys buvo atkurtas.   Išvalyti redaktorių

×   You cannot paste images directly. Upload or insert images from URL.

Įkraunama...
  • Dabar naršo   0 narių

    Nei vienas registruotas narys šiuo metu nežiūri šio puslapio.

×
×
  • Pasirinkite naujai kuriamo turinio tipą...