paskalis

Gal kas galit pasakyti kaip reiktų pakelti 10 laipsniu x?

10*10*10..?

 

n=5; (laipsnis)

x=10;

 

for (i=1;i<=N;i++) {

x=x*10;

}

 

pasikeisk for i paskalio cikla ir veiks.

Redagavo Lapkričio 16, 2008 dice

program laipnis;
var x,n,i:integer;  ats:real;
begin
 ats:=1;
 ReadLn(x,n);
 for i:=1 to n do ats:=ats*x;
 WriteLn(ats:10:0);
 Readln;
end.

 

x - laipsnio pagrindas, n - laipsnio rodiklis.

Turėtų veikti.

Redagavo Lapkričio 16, 2008 wi_lius

program laipnis;
var x,n,i,ats:integer;
begin
  ReadLn(x,n);
  for i:=1 to n do ats:=ats*x;
  WriteLn(ats);
  Readln;
end.

 

x - laipsnio pagrindas, n - laipsnio rodiklis.

Turėtų veikti (pas mane kažko paskalis pakimba bekompiliuodamas).

Pamiršai pridėt

ats := 1;

Nes be jo, ats gauna reikšmę lygią nuliui ir atsakymas visada bus nulis.

 

program laipnis;
  var x,n,i,ats:integer;
  begin
 ReadLn(x,n);
 ats := 1;
 for i:=1 to n do ats:=ats*x;
 WriteLn(ats);
 Readln;
  end.

Redagavo Lapkričio 16, 2008 Tom

Tai tokį ir pats buvau sugalvojęs, tačiau man reik, kad funkciją atliktų vienu veiksmu...

Beje, gal žinot kaip tokį uždavinį atlikt reiktų?

"Parašykite programą, kur nustatytų, ar intervale [x1;x2] yra nors vienas palindromas (palindromu laikomas skaičius, kurį, perrašius iš antro galo, gaunamas tas pats skaičius pvz 12321). Radus pirmąjį palindromą, paiešką reikia nutraukti. Programoje panaudokite loginį kintamąjį".

Tai galvojau šiame uždaviny iš pradžių surasti pirmą ir paskutinius skaitmenis, juos palygint, taip ir 2-4... Tačiau neįsivaizduoju kaip jį daryt reiktų.

Beje, gal žinot kaip tokį uždavinį atlikt reiktų?

"Parašykite programą, kur nustatytų, ar intervale [x1;x2] yra nors vienas palindromas (palindromu laikomas skaičius, kurį, perrašius iš antro galo, gaunamas tas pats skaičius pvz 12321). Radus pirmąjį palindromą, paiešką reikia nutraukti. Programoje panaudokite loginį kintamąjį".

Tai galvojau šiame uždaviny iš pradžių surasti pirmą ir paskutinius skaitmenis, juos palygint, taip ir 2-4... Tačiau neįsivaizduoju kaip jį daryt reiktų.

Kažkada dariau tokią programą mokykloj. Aš rinkausi kitą kelią, kurio esmė: jei reverse'intas skaičius lygus pradiniam - tai palindromas.

Mano įsivaizduojamo algoritmo struktūrograma:

http://failai.in/P/1226868473_get_structurograme.png

Redagavo Lapkričio 16, 2008 CR1M1N4L

Vienu veiksmu daryk su http://function.name/in/Pascal/Exp

Vienu veiksmu daryk su http://function.name/in/Pascal/Exp

Taip, galima ir su eksponente, tačiau FreePascal'is turi pora kitų būdų pakelti skaičių (tarkim a) laipsniu (tarkime n):

ats := a**n; // 2**3 = 8 (dvejetas kubu)
ats := power(a, n); // power(2, 4) = 16 (dvejetas ketvirtuoju)

Gerokai paprasčiau. Bet veikia ne ant visų Pascal kompiliatorių. :)

CR1M1N4L, kaip suprast reversintas?..

CR1M1N4L, kaip suprast reversintas?..

 

is kito galo parasytas, apverstas.

jis tikrina skaiciu "1234" su "4321", jei jie lygus, tada tese darba.

 

kazkada panasaus reikejo daryt su paskaliu irgi:

"isvesti zodzius, kurie vienodai skaitomi ir is prieko ir is galo".

 

http://www.paste.lt/paste/39353a89f60648230b064ea72b8d5a23

Tai tokį ir pats buvau sugalvojęs, tačiau man reik, kad funkciją atliktų vienu veiksmu...

Beje, gal žinot kaip tokį uždavinį atlikt reiktų?

"Parašykite programą, kur nustatytų, ar intervale [x1;x2] yra nors vienas palindromas (palindromu laikomas skaičius, kurį, perrašius iš antro galo, gaunamas tas pats skaičius pvz 12321). Radus pirmąjį palindromą, paiešką reikia nutraukti. Programoje panaudokite loginį kintamąjį".

Tai galvojau šiame uždaviny iš pradžių surasti pirmą ir paskutinius skaitmenis, juos palygint, taip ir 2-4... Tačiau neįsivaizduoju kaip jį daryt reiktų.

 

 

 

program palindromas;

var x1,x2,k,k1,ps,ns:integer;

begin

WriteLn('iveskite skaiciu intervala');

readln (x1,x2);

For k:=x1 to x2 do begin

k1:=k;

ns:=0;

while k1>0 do begin

ps:=k1 mod 10;

ns:=ns*10+ps;

k1:=k1 div 10;

end;

if ns=k then writeln (k);

end;

Readln;

end.

 

Čia surašys visus palindromus intervale, pasitobulink, kad suradus pirmą, programa sustotu :)

Redagavo Lapkričio 17, 2008 trops

Dėkui, you saved the day ;]