Informatikos užduotis

-

kas žinot ? ;/

up

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

--

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.

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.

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