ExclusivE
Vai kāds var palīdzēt?
Vajag blokshēmu (flowchart) kodam, online makeros ir galīgi aplami un nav neviens saprātīga programa free. Kods ; Program convertor;
Uses crt;
label 0,1,2,3,4;
var hg,duzb,pakape,ox,buzd,pak,sum,duzh:integer;
bin1:Array[0..15] of Longint;
hex1:Array[0..15] of Char;
hex:Array[0..15] of Char;
bin:Array[0..15] of String;
a,i,b1,h1:Longint;
c,b2,d2,x,y,ab:Char;
b,d:String;
summa:int64;
decimal:real;
//////////////////////////////////////////////////////////////////////////////////
Begin
Clrscr;
Writeln ('1:bin->hex');
Writeln ('2:hex->bin');
Writeln ('3ec->bin');
Writeln ('4:bin->Dec');
0:
Write('Ievadiet veidu: ');
Readln (hg);
If hg=1 then goto 1;
If hg=2 then goto 2;
If hg=3 then goto 3;
If hg=4 then goto 4;
//////////////////////////////////////////////////////////////////////////////////
1:
Begin
bin1[0]:=0000; hex1[0]:='0';
bin1[1]:=0001; hex1[1]:='1';
bin1[2]:=0010; hex1[2]:='2';
bin1[3]:=0011; hex1[3]:='3';
bin1[4]:=0100; hex1[4]:='4';
bin1[5]:=0101; hex1[5]:='5';
bin1[6]:=0110; hex1[6]:='6';
bin1[7]:=0111; hex1[7]:='7';
bin1[8]:=1000; hex1[8]:='8';
bin1[9]:=1001; hex1[9]:='9';
bin1[10]:=1010; hex1[10]:='A';
bin1[11]:=1011; hex1[11]:='B';
bin1[12]:=1100; hex1[12]:='C';
bin1[13]:=1101; hex1[13]:='D';
bin1[14]:=1110; hex1[14]:='E';
bin1[15]:=1111; hex1[15]:='F';
Write('Ievadiet binaro skaitli: ');
readln(a);
b1:= a div 1 mod 10000;
h1:= a div 10000 mod 10000;
For i:= 0 to 15 do begin
If b1 = bin1[i] then b2:=hex1[i] ;
If h1 > 0 then If h1 = bin1[i] then d2:=hex1[i];
end;
Write('Jusu hexadecimalais skaitlis ir: ',d2,b2);
Readln;
End;
Write('Velaties atkartot? [Y/N]');
Readln (ab);
If ab='y' then goto 0;
If ab='n' then Exit;
//////////////////////////////////////////////////////////////////////////////////
2:
Begin
hex[0]:='0'; bin[0]:='0000';
hex[1]:='1'; bin[1]:='0001';
hex[2]:='2'; bin[2]:='0010';
hex[3]:='3'; bin[3]:='0011';
hex[4]:='4'; bin[4]:='0100';
hex[5]:='5'; bin[5]:='0101';
hex[6]:='6'; bin[6]:='0110';
hex[7]:='7'; bin[7]:='0111';
hex[8]:='8'; bin[8]:='1000';
hex[9]:='9'; bin[9]:='1001';
hex[10]:='A'; bin[10]:='1010';
hex[11]:='B'; bin[11]:='1011';
hex[12]:='C'; bin[12]:='1100';
hex[13]:='D'; bin[13]:='1101';
hex[14]:='E'; bin[14]:='1110';
hex[15]:='F'; bin[15]:='1111';
Write('Ievadiet hexadecimalo skaitli: ');
readln(x,y);
For i:= 0 to 15 do begin
If x = hex[i] then b:=bin[i] ;
If y = hex[i] then d:=bin[i] ;
end;
Write('Jusu binarais skaitlis ir: ',d,b);
Readln;
End;
Write('Velaties atkartot? [Y/N]');
If ab='y' then goto 0;
If ab='n' then Exit;
//////////////////////////////////////////////////////////////////////////////////
3:
Begin
Write('Ievadiet decimalo skaitli: ');
readln(duzb);
pakape:= 1;
while duzb <> 0 do
begin
ox:= duzb mod 2;
duzb:= duzb div 2;
pakape := pakape*10;
summa:=summa+pakape*ox;
end;
summa:=summa div 10;
writeln('Jusu binarais skaitlis ir: ',summa);
end;
Write('Velaties atkartot? [Y/N]');
Readln (ab);
If ab='y' then goto 0;
If ab='n' then Exit;
//////////////////////////////////////////////////////////////////////////////////
4:
write('Ievadiet binaro skaitli: ');
readln(buzd);
pak:=1;
while buzd <> 0 do
begin
sum:= buzd mod 10;
decimal:=decimal+sum*pak;
pak:=pak*2;
buzd:=buzd div 10;
end;
writeln('Jusu decimalais skaitlis ir: ',decimal:0:0);
Write('Velaties atkartot? [Y/N]');
Readln (ab);
If ab='y' then goto 0;
If ab='n' then Exit;
//////////////////////////////////////////////////////////////////////////////////
end
Str Pure3D miniblogs
0Str Pure3D 29.05.2015. 19:11
0mjau 29.05.2015. 19:15
Neizskatās tik sarežģīts lai neuzzīmētu ar roku.
- 0
Str Pure3D 29.05.2015. 19:16
Centos vairākkārt, bet nu problēmas ar pacietību.
Uzrakstīt tas ir viens, bet zīmēt kas cits..- 0
mjau 29.05.2015. 19:27
Nu ja tu meklē tādu kurš sataisītu automātiski, nezinu ko ieteikt, nekad neko tādu neesmu lietojis. Ja nezīmēju ar roku tad izmantoju http://www.draw.io/
-
0
Str Pure3D 20.05.2015. 10:13
Labdien, varbūt kāds var palīdzēt un atrast "bināro skaitļu pāreju uz hexadecimāl" kodu priekš pascal/delphi ?
Kalkulātors un skaitļu apgriešana bija vieglāk par vieglu, bet šo nekur nevaru atrast ne netā , ne arī pierakstos.
0SJohnson 20.05.2015. 11:38
0000 = 0
0001 = 1
0010 = 2
0011 = 3
0100 = 4
utt...Ja Tu nevari izdomāt, kā dabūt to gatavu programmiski, varbūt vel nav par vēlu mainīt profesiju.
-
-
0
Str Pure3D 09.05.2015. 21:58
Kas tā bija pa filmu, ja kkur 2010-2014. Kur vilciens brauca un bija neapturams, un tad tur viskautkas sprāga and shits.
-
0
Str Pure3D 05.05.2015. 11:43
Nice, kursa audzinātājs maita nav nevienu zīmi ieskaitijis pa visu šo semestri, izrādās ka lūk kur bijis iemesls tām neesošajām eiropas stīpām. Tagad nodaļas vadītāja pieprasa zīmes bet man tak viņu nav. Tikko biju pie ģ ārsta viņa tik pusi no tām man iedeva, bļe kur lai liekos lai tagad dēļ viena primāta neizlidotu no skolas?
-
-5Castiel 08.03.2015. 21:48
Skaties, ka māte nepieķer, a to norausies.
- 0
Str Pure3D 08.03.2015. 21:49
Zini, jau kā gadu māte nevar ietekmēt manu dzīves ritmu. Ja dzīvo ar māti, nespried par visiem tā.
ec->bin'); 
