Jump to content

Ascii tabula

batzack

batzack,
in Programmēšana

 Share

Recommended Posts

batzack

batzack

Ierakstīts
Ierakstīts

respektīvi man ir jauztaisa programma , kas izrēķina vārda uzvārda summu pēc ascii tabulas

respektīvi saskaita katra burta ciparu un dabū summu, kāds var palīdzēt. vispār nezinu kā lai to izdara

Link to comment
Share on other sites
Mezavecis

Mezavecis

Kādā programmēšanas valodā?

 

Ņem katru simbolu no virknes, uzzini katra simbola kodu un summē kopā. Kur ir problēma?

Link to comment
Share on other sites
batzack

batzack

  • Author
Kādā programmēšanas valodā?

 

Ņem katru simbolu no virknes, uzzini katra simbola kodu un summē kopā. Kur ir problēma?

 

pascal.

nu es nezinu kā lai to uzraksta.

piemēram (saīsinātā versija)

var x:char;

Writeln(vārdsuzvārds);

readln(x);

s:=ord(x)

un viņš paņems pēdējo, ok.. es ielieku ciklā , bet kā lai izdara tā ka viņš paņem nākamo.

Link to comment
Share on other sites
batzack

batzack

  • Author

es programēšanā neguļu :D es esmu labākais savā klasē, un starp visiem 11 klasniekiem :D :D , vismaz programēšanā, bet ja es ņemu ciklu

for to do, viņš to atkārtos visu visu laiku pēc kārtas, es gribu zināt kāda ir funkcija, pēc kuras paņem burtu pa vienu uz krieso pusi , piemēram.

Link to comment
Share on other sites
neirons

neirons

Nu OK, visu programmēšanas laiku skolā nogulējis neesi, bet laikā, kad stāstīja par virknēm un simboliem, uznāca neliela snauda.

 

P.S. Ko, tad pārējie klasē pavisam nerulzz :(

Link to comment
Share on other sites
batzack

batzack

  • Author
Nu OK, visu programmēšanas laiku skolā nogulējis neesi, bet laikā, kad stāstīja par virknēm un simboliem, uznāca neliela snauda.

 

P.S. Ko, tad pārējie klasē pavisam nerulzz :(

 

karo4, mēs tikko paņēmām par funckijām ord,chr,string un kautkāc length, bet es vēl tos visus neizprotu, tad kāds var izskaidrot, kā lai es to izdaru, nevis tikai stulbi d***t (ja tā var teikt)

Link to comment
Share on other sites
neirons

neirons

Nu pēc šitā, pats vari iet d***t :D

Link to comment
Share on other sites
WildGun

WildGun

Liekas, ka tevi būs jāsūta netupi ...

 

Kas tad ir šitie - citāts "funckijām ord,chr,string un kautkāc length".

 

Ja tu esi pirmais savā klasē, tad nekas mūs vairs neglābs......

Link to comment
Share on other sites
batzack

batzack

  • Author

karo4, mums par 12 nodaļu neko neteica >.< tikai 1.9 ... :D stulbais skolotājs, lai nu kā paldies, es nemaz nezināju ka viņi nodaļas beigās kautko atkārto

 

>.<, it kā visā iebraucu, bet tikuntā kautkas nestrādā >.<

Link to comment
Share on other sites
batzack

batzack

  • Author

viņš man neļauj.. >.<

karo4, es saprotu ka man ir jaizmanto string

es ierakstu savu vārdu (piem) Centis Ūbele

man vaig, lai viņš paņem saskaita katra burta ascii kodu un saksaita kopā.. >.< kautkas nešancē, man vaig zināt kā lai es tieku pie nākamā burta, nevis tikai pie pirmā..

Link to comment
Share on other sites
WildGun

WildGun

>.<, it kā visā iebraucu, bet tikuntā kautkas nestrādā >.<

 

Drīkst minēt, kas nestrādā? Tā nebūs tā spalvainā pumpa uz kakla?

Link to comment
Share on other sites
batzack

batzack

  • Author

pascal saka , ka ka tas length ir kautkāc neatļauts indifikators, vai kautkas tml. >.<, karo4 sviec.

Link to comment
Share on other sites
Vilx-

Vilx-

Uzdod sakarīgus jautājumus, un Tu saņemsi sakarīgas atbildes. :roll:

 

Pirms varam atbildēt, kur ir problēma, mums vajadzētu zināt:

  • Kodu, kuru Tu mēģini izpildīt;
  • Vidi, kurā tas notiek (t.i. ko Tu izmanto - Borland Pascal, FreePascal, utml.);
  • Precīzu un pilnīgu kļūdas paziņojumu, ko Tu iegūsti.

Link to comment
Share on other sites
batzack

batzack

  • Author

Es strādāju freepascal vidē, un mēģinu uztaisīt programmu , kura prot aprēķināt vārda un uzvārda ascii koda summu, takā es nezinu kā lai to dabū gatavu, man nav nemazākās nojausmas kā uzrakstīt to kodu.

es vienkārši prasu, vai man var palīdzēt ar koda izveidi.

Link to comment
Share on other sites
batzack

batzack

  • Author
ord + cikls

 

7.01euua(12,12) Error: Ordinal expression expected

7.01euua(19) Fatal: There were 1 errors compiling module, stopping

7.01euua(0) Fatal: Compilation aborted

reku ir tas ko es rakstīju, nezinu cik pareizs.. bet errors augšā

 

 

 

Program v132nogibis;

uses Crt;

var x:string; a,sum:Int64;

i:Longint;

begin

ClrScr;

sum:=0;

Writeln('ievadi vārdu un uzvārdu');

Readln(x);

For i:=1 to 3 do

begin

a:=ord(x);

sum:=sum+a;

end;

Writeln('summa ir ',sum);

 

readln;

end.

Link to comment
Share on other sites
Vilx-

Vilx-

Gandrīz jau ir gatavs! Tikai divi sīkumiņi:

  • ord() funkcijai jāpadod nevis viss strings (mainīgais x), bet gan tikai šī stringa i-tais simbols. Kā no stringa izravēt vienu simbolu taču zini, ne? ;)
  • i jāmainās nevis no 1 līdz 3, bet gan no 1 līdz stringa garumam. Iegūt stringa garumu, cik saprotu, arī jau māki, vai ne? :)

 

Pievienots: Ā, un aizmirsu pateikt - jau labāk noformulēts jautājums! :) Pieklājības un lasāmības labad vēl derēja arī kodu likt [ code ] tagos, kā arī satabulēt. :)

Link to comment
Share on other sites
batzack

batzack

  • Author

1. es nezinu, nekad neesmu zinājis, mēs tik mācījāmies ka apmainīt skaitļus nu piemeram no 12345 uz 54321

tur

x mod 10

x div 10 , bet to pirmo, es saku, nekad neesmu zinājis. pateiksi lūdzu kā to izdarīt ?

2. jā... to es zinu kā izdarīt

Link to comment
Share on other sites
Vilx-

Vilx-

Koda piemērs, kuram vajadzētu izskaidrot lietas:

program Piemers;

var s: string;
i: integer;

begin
write('Ievadi tekstu: ');
readln(s);
i := length(s); // i tagad ir s garums;
if i = 0 then
	writeln('Tu neko neievadīji!');
else
	writeln('Tava teksta pēdējais simbols ir "', s[i], '"');
end.

Tagad skaidrs? :)

Link to comment
Share on other sites
batzack

batzack

  • Author

oke, es sapratu ka tu tiki pie pēdējā cipara, a kā nodzēst to ciparu lai viņš tev vairāk netraucē

Link to comment
Share on other sites
Vilx-

Vilx-

Nafig nodzēst? Tev ir cikls, kurā Tu ar i palīdzību vari tikt klāt pie jebkura stringa simbola. Tev neko nevajag dzēst - vienkārši skaties i-to simbolu.

 

Pievienots: Vēl viens piemērs:

program Piemers2;

var s: string;
i, l: integer;

begin
write('Ievadi tekstu: ');
readln(s);
l := length(s);
for i := 1 to l do
	writeln('Tava teksta ', i, '. simbols ir "', s[i],'"');
end.

Link to comment
Share on other sites
batzack

batzack

  • Author

āāā... es beidzot laikam sapratu ko dara tas Lenght, es visu laiku domāju ka viņš vienkārši izskaita cik simbolu norādītājā tekstā, bet forši, ka var tikt pie noteiktā simbola arī.. ritīgi labs!

 

atvainojos par atkārtotu topicku, bet es nesaprotu kapēc pie

a:=ord(x);

vinš man saka ka ir errors

mana programma

 

Program v132nogibis;
uses Crt;
var x:string[14]; a,sum,l:Int64;
i:Longint;
begin
ClrScr;
       sum:=0;
       Writeln('ievadi vārdu un uzvārdu');
       Readln(x);
       l := length(x);
       For i:=1 to l do
       begin
       a:=ord(x);
       sum:=sum+a;
       end;
       Writeln('summa ir ',sum);

readln;
end.

 

huinja2.bak(13,12) Error: Ordinal expression expected
huinja2.bak(21) Fatal: There were 1 errors compiling module, stopping
huinja2.bak(0) Fatal: Compilation aborted

Link to comment
Share on other sites
Vilx-

Vilx-

Length ir funkcija, kura atgriež simbolu skaitu stringā.

 

Pievienots: Kļūda ir tāpēc, ka Tu joprojām funkcijai ord() mēģini iebarot visu stringu kopā, nevis tikai vienu simbolu.

Link to comment
Share on other sites
batzack

batzack

  • Author

Tā.... programma aizgāja, bet viņa nedara to ko man vaig.

viņa manu vārdu uzvārdu ascii koda burtu ciparu kodu summu parāda kā 196, bet tas fiziski nav iespējams :D , pārāk mazs skaitlis.

Link to comment
Share on other sites

Izveido kontu, vai pieraksties esošajā, lai komentētu

Jums ir jābūt šī foruma biedram, lai varētu komentēt tēmas

Izveidot jaunu kontu

Piereģistrējies un izveido jaunu kontu, tas būs viegli!

Reģistrēt jaunu kontu

Pierakstīties

Jums jau ir konts? Pierakstieties tajā šeit!

Pierakstīties tagad!
 Share
Iet uz tēmu sarakstu
×
×
  • Izveidot jaunu...