lvmazaafakaa
Kārtējais lētais darbs no manas puses. Parasta saskaitīšana. Atbugoju kā mazgadīgais 
https://pastebin.com/4Q1CchPw
Kāds negrib man paskaidrot kāpēc bieži vien funkcijās ir kaut kādas nepareizās vērtības, piemēram -31242 or something, kaut vai strikti esi noteicis ka tā vērtība ir 0 vai 1 or something. Vienkārši kaut kas smagi gļuko. Eh, būs vienkārši jāiet up a level. Jābeidz spēlēties ar free pascal. Pamati jau ir iegūti pietiekamā līmenī.
Un, Jūs, tāpat kā es, teiktu ka šī nav nekāda upper level programma, vai ne? Daži te domā ka tā programma ir kaut kāda baigi krutā, kaut vai tas ir 20 minūšu darbs uztaisīt, bet atkļūdot ir vislielākā sāpe. (vai arī pieslinkošana tur)
Šodien aktīvākie
Programmēšana
0Dawgora 24.04.2012. 01:52 teica:
- 0
Dawgora 24.04.2012. 01:55
Un kā redzu vēlaizvien tā programma mīl gļukot kaut kur. Ja redzat kļūdu pasakat.
-
0
Static 18.04.2012. 19:26 teica:
Hai! Atkal esmu šeit ar Paskālu un vēlos pārliecināties vai esmu pareizi izdarījis, tai skaitā, apskatīties, kā citi pārvērš šos matemātiskos uzdevumus Paskāla pierakstā.
0purawskis 17.04.2012. 20:41 teica:
Izpildi un ieraksti šeit rezultātu
js consoli nezimantot (nopietni, tad nav interesanti)
http://perfectionkills.com/javascript-quiz/- 0
purawskis 17.04.2012. 20:43
Man bij #14 nepareizs, tiesa es šo testu jau pirms kāda gada izanalizēju
-
+1
Dawgora 28.03.2012. 20:49 teica:
Iedomājos ka kādam šo ievajadzētos. Man stundā šo mācīja. Ir arī kā pārtaisa bināro uz Decimālo. Un šis ir Decimālais uz bināro. bet varbūt arī nevajag. Just in case...
program Dec_to_bin;
var x,n,a: integer;
var y: array [1..200] of integer;
begin
writeln('ievadi skaitli dec kodā!');
readln(x);
n:=0;
while not x<=0 do
begin
inc(n);
y[n]:= x mod 2;
x:=x div 2;
if(x=0) then break;
end;
for a:= n downto 1 do
begin
write(y[a]);
end;
readln;
end.- +1
Dawgora 28.03.2012. 21:59
No binārā uz integer.
program bin_to_int;
var c: string;
var n,i,e,sk,f,summa: integer;
label a;
begin
a:writeln('ievadi kādu skaitli binarajā kodā!');
readln(c); //nolasa datus
n:=length(c); //nosaka str garumu
f:=0;
for e:= 1 to n do
begin
if (ord(c[e])-48>1) or (ord(c[e])-48<0) then
begin
writeln('Nav ievadīts binārais kods');
goto a;
end;
end;
for i:= n downto 1 do
begin
inc(f);
sk:=ord(c[i])-48;
for e:= 1 to f-1 do
begin
sk:=sk*2; //pataisa skaitli f pakāpē.
end;
summa:=summa+sk; //pieskaita summai.
end;
writeln(summa);
readln;
end. - +1
Dawgora 07.04.2012. 22:46
Program dec_to_hex;
var c,b: longint;
var e: string;
function hex(x:longint):string; {dec uz hex funkcija}
var z,b: longint;
var a:array[0..15] of char; //vertibas hex kodam
var output1,output2:string;
begin
b:=0;
z:=1;
output1:=' ';
output2:=' ';
for c:= 48 to 70 do
begin
if (c<58 ) or (c>64) then
begin
a[b]:=chr(c);
inc(b);
end else continue;
end;
repeat
output1[z]:=a[x mod 16];
x:=x div 16;
inc(z,1);
until x=0;
b:=1;
for x:= z-1 downto 1 do
begin
output2[b]:=output1[x];
inc(b);
end;
hex:=output2;
end;
begin
write('ievadiet nenegatīvu dec skaitli ');
readln(b);
e:=hex(b);
writeln(e);
readln;
end.
Kādam viņš iet?
Un kāds negrib izskaidrot, kāpēc ja gribu funkcijā ielikt vēl vienu masīvu, tā vērtības ir kaut kādas šķībās, un kaut vai vēlies mainīt tās, tās nemainās?
un vēl tas prikols par output1 un 2- cik atstarpju tik simbolu var būt. weird. Moš mans paskāls jūdzas. 
0PainFoinmr
19.03.2012. 17:31 teica:
Sveiki. Esmu izveidojis Sumo robotu. Programmu gan man iedeva. Bet taisos piedalīties konkursā, tāpēc programmu varētu nedaudz uzlabot. Programmēts ir uz ''Arduino'' (varu iedod, ja vajag). Bet tā kā neesmu tik augstā līmenī, būtu pateicīgs, ja kāds man palīdzētu šo to izmainīt un saprast.
0arvo95 19.03.2012. 20:44
Vari source iepeistot, pl0x? Sen jau gribēju apskatīties, kā robota kods izskatās. Gribētos uzzināt cik garš ir...
- 0
PainFoinmr
19.03.2012. 20:59Source nevaru, jo to taisīja pats čalis, kurš viena projekta ietvaros mācīja taisīt robotus. Bet tūlīt uzhostēšu kodu.
Anyway, cik izskrēju cauri diezgan labi, turpini.
un vēl tas prikols par output1 un 2- cik atstarpju tik simbolu var būt. weird. Moš mans paskāls jūdzas.
