T-shirt apdruka,un mazo uzlīmju taisīšana. 4
Profesionālie tulkošanas pakalpojumi. 5
Pardod: MSI GeForce RTX 2080ti gaming X TRIO Graphic Card 1
Vēlos piedāvāt darbu online. 0
OCTA termiņš 13
Ka sauc Pasaules dalu kura dzivojam 4
google 1
Taustiņu funkcijas izmainīšana 2
Torrent 1
ESET izlaiž 2017.gada produktu izdevumus 23
VIAPLAY: Video tiešsaistē skatās 70% Latvijas iedzīvotāju 21
Katrā desmitajā datorā joprojām izmanto Windows XP 2
Google tuvākajā laikā atteiksies no Chrome paplašinājuma palaidēja 2
Acer ievieš nozares pirmo ieliekto monitoru ar acu izsekošanas funkcionalitāti 4
Adobe laiž klajā ārkārtas atjauninājumu 3
Tests: Cik precīzs ir "lēta gala" velo spidometrs? 3
Leģendārie telefoni – Nokia 3310 un citi 3
Puisis iziet Super Mario spēli mazāk kā piecu minūšu laikā un labo pasaules rekordu 2
Līdz 29.jūlijam atjaunini savu Windows bez maksas! 3
Kā uzlabot televizora skaņu? 2
Programma, ar kuras palīdzību fotogrāfijas pārveidot .gif formātā 1
Aproce, kas sastāv no 25 instrumentiem 1
Trīs padomi televizora izvēlei 2
Windows 7 ēra tuvojas noslēgumam, Microsoft koncentrējas uz Windows 10 1
Lietotāji online: 101
Reģistrētie lietotāji online: 0
Viesi online: 101
Taatad, kaa jau mees visi zinaam, Pascal'aa nav kaapinaashanas komandas, taapeec shaada ir jaaizveido!
Vajadzeetu izdomaat kaa uztaisiit taadu programmu pascalaa, ka es ievadu divus skaitlus - viens ir skaitlis, kuru vajag kaapinaat, un otrais skaitlis ir kaadaa pakaapee kaapinaat...
vajag arii, lai vareetu kaapinaat negatiivaas pakaapees... bet nespeeju to izdomaat, plz help!!
#3
....
@ 2008.02.12 17:03 Tu taču esi, jau piemirsies, profesionāla vai vidēja līmeņa programmētājs, kā pats izteicies vienā tēmā, bet ar šādu sīkumu nespēj tikt galā? :)
Tu gadījumā neesi tas pats Mikijs, no php.lv?
#8
Nmy
@ 2008.02.12 18:23 A kas ir negatīvā pakāpe, vai tu zini?
x^-1 = (1/x)^1
if PAKAPE<0 then
begin
x2=1/x
PAKAPE=PAKAPE * -1
end
for cikls lidz PAKAPE
x2=x2*x2
#9
Lasko
@ 2008.02.12 18:39
PROGRAM Kapin;
Uses Crt;
Var x,y:LongInt;
Function Kapinashana(Pamatskaitlis:LongInt; Pakape:LongInt):Longint;
Var a:Longint;
i:integer;
Begin a:=1;
for i:=1 to Pakape do a:=a*Pamatskaitlis;
Kapinashana:=a;
End;
Begin
ClrScr;
Write('Ievadiet pamatskaitli x un pakapi y');
Writeln(' (Jaievada tikai veseli skaitli)');
Readln(x,y);
ClrScr;
Write(x,' pakape ',y,' ir ',Kapinashana(x,y):0);
Readln
End.
#13
kasix
@ 2008.02.12 19:38 šitais tak viss liis piemēros un citur kkur noteikti ir. mums šito vsk pašā sākumā parādīja, nekas elementārāks nav :D
#15
KillerBean
@ 2008.02.12 20:34 Ja grib ar reāliem sk. pārveido skaitli daļskaitlī un izkāpini, izvelc kvadrātsakni.. simple math nemācies?
Kā arī.. nevar gaidīt, ka visu Tev kāds iebaros.. centies izdomāt pats..
#19
LMN
@ 2008.02.13 22:08 #18: Tu joprojām sevi sauc par kompetentu administratoru un/vai programmētāju?
Izskatās, ka netiec galā ar elementāru matemātiku...
#20
Nmy
@ 2008.02.14 00:20 Johans2 es tev jau sen visu atbildēju. Ja galva nešancē, tad kājas nepalīdzēs.
#21
mefisto
@ 2008.02.14 01:11 fcking amatieri
if (n < 0 ) then X := exp( n * ln( a ) );
else X := exp( 1 / n * ln( a ) );
kur X ir a pakāpē n.
#24
Johans2
@ 2008.03.04 17:34 taatad kas shajaa kodaa tieshi buutu jaamaina lai darbotos ar negatiivu pakaapi?
PROGRAM Kapin;
Uses Crt;
Var x,y:LongInt;
Function Kapinashana(Pamatskaitlis:LongInt; Pakape:LongInt):Longint;
Var a:Longint;
i:integer;
Begin a:=1;
for i:=1 to Pakape do a:=a*Pamatskaitlis;
Kapinashana:=a;
End;
Begin
ClrScr;
Write('Ievadiet pamatskaitli x un pakapi y');
Writeln(' (Jaievada tikai veseli skaitli)');
Readln(x,y);
ClrScr;
Write(x,' pakape ',y,' ir ',Kapinashana(x,y):0);
Readln
End.
#5
#25
Ja nespēj izdomāt, iemācies vismaz meklēt..
Piemēram:
http://www.midnightbeach.com/jon/pubs/clp-faq.htm
(power)