Stránka: 1 z 1
| [ Príspevkov: 16 ] | |
| Autor | Správa |
|---|
Registrovaný: 02.06.13
Prihlásený: 07.06.16
Príspevky: 63
Témy: 18 | 18 |
Neviem čo je zle skusili by ste to pozrieť ? :/ function genercisl:integer;
var cisla:integer;
dlzka:string;
index:integer;
begin
clrscr;
textcolor(Lightred);
writeln('Generovanie Cisel');
textcolor(LightGreen);
randomize;
writeln('Zadaj dlzku generovania:');readln(dlzka);
dlzka := '';
for index:= 1 to dlzka do cisla := cisla + random(10);
writeln('Vygenerovane cisla su:');
writeln('',cisla);
readkey;
end;
|
|
Registrovaný: 17.07.11
Prihlásený: 29.12.20
Príspevky: 1516
Témy: 3 | 3 |
A má to robit čo? A problém je v čom? Problém sa patrí opísať čo najlepšie, aby sme pri tom nemuseli stráviť dlhý čas hádaním, o čo ide.
_________________
Na súkromné správy týkajúce sa problémov, ktoré sa riešia vo fóre, neodpovedám! |
|
Registrovaný: 02.06.13
Prihlásený: 07.06.16
Príspevky: 63
Témy: 18 | 18 |
ma to vygenerovat cisla , toľko koľko zadaš toľko ma vygenerovať čisel
|
|
Registrovaný: 17.07.11
Prihlásený: 29.12.20
Príspevky: 1516
Témy: 3 | 3 |
Tak to je problém, lebo to čo si sem poslal je dosť zlé. V prvom rade, ako sa pracuje s datovými typmi? Aký zmysel má string a Integer a aký je medzi nimi rozdiel? Ako sa spájajú reťazce (stringy) v pascale? A čo robí funkcia randomize? Tie prvé tri otázky by si mal vedieť, ak si prešiel akoukoľvek príručkou/článkom/knihou pre začiatočníkov v pascale. Skús si tieto veci poriadne uvedomiť a pozri sa na ten program znovu  Na tú štvrtú ti rád odpoviem: Nie je dobre volať randomize vo funkcii. Zavolaj ju len raz na začiatku programu. Táto vecička totiž inicializuje (nastaví) generátor náhodných čísel a vďaka tomu bude funkcia random vracať vždy náhodné číslo. (Prečo ju volať len raz má hlbší zmysel, ale to zatiaľ nechaj tak)
_________________
Na súkromné správy týkajúce sa problémov, ktoré sa riešia vo fóre, neodpovedám! |
|
Registrovaný: 02.06.13
Prihlásený: 07.06.16
Príspevky: 63
Témy: 18 | 18 |
string su znaky to viem ale ked som to kompiloval tak mi pritom vyhodilo chybu ked som tam mal integer.
|
|
Registrovaný: 17.07.11
Prihlásený: 29.12.20
Príspevky: 1516
Témy: 3 | 3 |
Áno, string sú znaky. Čo ale v tvojom programe robí toto? Kód: dlzka:string; Prečo je dĺžka reťazec? A prečo s ňou pracuješ raz ako s číslom a raz ako s reťazcom? 
Naposledy upravil BX dňa 15.06.2013 22:31, celkovo upravené 1
_________________
Na súkromné správy týkajúce sa problémov, ktoré sa riešia vo fóre, neodpovedám! |
|
Registrovaný: 02.06.13
Prihlásený: 07.06.16
Príspevky: 63
Témy: 18 | 18 |
test.lpr(32,16) Error: Incompatible types: got "Constant String" expected "LongInt" tak som to dal do stringu ale aj tak nepomohlo,
tak ako to mam teda spraviť ? čo tam treba obmeniť ?
|
|
Registrovaný: 17.07.11
Prihlásený: 29.12.20
Príspevky: 1516
Témy: 3 | 3 |
Dĺžka má byť číslo, takže si ju zadeklaruj ako číslo. A aj sa k nej tak chovaj, ja vidím, ako ju nastavuješ na prázdny reťazec, čo je debilina. Číslo nie je reťazec.
Premenná cisla je reťazec predsa.
_________________
Na súkromné správy týkajúce sa problémov, ktoré sa riešia vo fóre, neodpovedám! |
|
Registrovaný: 02.06.13
Prihlásený: 07.06.16
Príspevky: 63
Témy: 18 | 18 |
aj ked som to vymenil tak nič nemohol by si to upraviť ty ? function genercisl:integer;
var cisla:string;
dlzka:integer;
index:integer;
begin
clrscr;
textcolor(Lightred);
writeln('Generovanie Cisel');
textcolor(LightGreen);
writeln('Zadaj dlzku generovania:');readln(dlzka);
randomize;
cisla := ' ';
for index:= 1 to dlzka do
cisla := cisla + random(25);
writeln('Vygenerovane cisla su:');
writeln('',cisla);
readkey;
end;
|
|
Registrovaný: 24.01.08
Prihlásený: 13.09.17
Príspevky: 14572
Témy: 66 | 66
Bydlisko: Žilina |
Čo by si tým získal, keby to urobil za teba? Nič, nenaučíš sa vôbec nič a na ďalší deň si tu zasa s podobným problémom...
Mimochodom, kód nedávaj do spoilera ale ako "code"...
_________________
C#, PHP, ... |
|
Registrovaný: 02.06.13
Prihlásený: 07.06.16
Príspevky: 63
Témy: 18 | 18 |
Vedel by som ako to robiť na buduce , sam si to určite nevyčarujem
|
|
Registrovaný: 17.07.11
Prihlásený: 29.12.20
Príspevky: 1516
Témy: 3 | 3 |
Preto ťa snažím naviesť na riešenie. Keď aj pochopíš prečo ti to nejde, budeš mať nabudúce menej problémov. To že budeš vedieť vyriešiť jednu vec nič neznamená.
Nauč sa čítať chybové hlášky. Aký error ti to hádže a na akom riadku?
_________________
Na súkromné správy týkajúce sa problémov, ktoré sa riešia vo fóre, neodpovedám! |
|
Registrovaný: 02.06.13
Prihlásený: 07.06.16
Príspevky: 63
Témy: 18 | 18 |
Hladal som to na nete ale ked som nemohol najsť tak že sa spytam sem , kompilujem v Lazaruse- test.lpr(34,24) Error: Incompatible types: got "LongInt" expected "AnsiString" a to je riadok-- Kód: cisla := cisla + random(25);
|
|
Registrovaný: 17.07.11
Prihlásený: 29.12.20
Príspevky: 1516
Témy: 3 | 3 |
No vidíš. "got LongInt expected AnsiString" znamená, že je očakávaný (expected) string, ale miesto toho našlo číslo (got LongInt) A dáva to aj zmysel, lebo nemôžeš sčítavať číslo a string, však? Vieš zmeniť číslo na string? Vieš, minule si to myslím používal.
_________________
Na súkromné správy týkajúce sa problémov, ktoré sa riešia vo fóre, neodpovedám! |
|
Registrovaný: 02.06.13
Prihlásený: 07.06.16
Príspevky: 63
Témy: 18 | 18 |
takto som to vyriešil to mi teraz generuje z asci tabuľky len tam dorobim podla nej aby vo volbe 1 boli iba čisla vo voľbe 2 iba pismena a vovolbe 3 iba znaaky volba 4 vsetko dokopi, Ďakujem za pomoc nejako sa stim potrapim iked som neprišiel na StrToInt ale tak pohladam aj to Kód: function genercisl:integer;
var cisla:string;
dlzka:integer;
index:integer;
pomoc:integer;
begin
clrscr;
textcolor(Lightred);
writeln('Generovanie Cisel');
textcolor(LightGreen);
writeln('Zadaj dlzku generovania:');readln(dlzka);
randomize;
cisla := '';
for index:= 1 to dlzka do
cisla := cisla + chr(random(25));
writeln('Vygenerovane cisla su:');
writeln('',cisla);
readkey;
end;
|
|
Registrovaný: 17.07.11
Prihlásený: 29.12.20
Príspevky: 1516
Témy: 3 | 3 |
StrToInt by malo fungovať, ak dáš na začitok programu uses sysutils; Takto to pôjde len pre jednociferné čísla.
_________________
Na súkromné správy týkajúce sa problémov, ktoré sa riešia vo fóre, neodpovedám! |
|
Stránka: 1 z 1
| [ Príspevkov: 16 ] | |
Podobné témy | | Témy | Odpovede | Zobrazenia | Posledný príspevok |
|---|
 | v Assembler, C, C++, Pascal, Java | 10 | 1005 | 06.02.2011 11:37 coldak | | v Assembler, C, C++, Pascal, Java | 11 | 507 | 05.05.2010 14:07 coldak |  | v Assembler, C, C++, Pascal, Java | 0 | 433 | 19.12.2014 13:18 Styracoz | | v Assembler, C, C++, Pascal, Java | 1 | 693 | 10.02.2009 21:20 Fico | | v PHP, ASP | 1 | 678 | 30.08.2008 20:44 p360t | | v PHP, ASP | 12 | 887 | 24.04.2008 18:37 Triminka | | v Assembler, C, C++, Pascal, Java | 3 | 677 | 29.04.2009 20:31 stopa27 |  | v PHP, ASP | 2 | 370 | 25.03.2014 17:42 shaggy | | v PHP, ASP | 6 | 882 | 06.11.2007 15:45 Orwell | | v Krčma | 6 | 648 | 14.10.2011 16:39 Denco1 | | v PHP, ASP | 2 | 494 | 26.09.2008 17:50 m4r14n | | v JavaScript, VBScript, Ajax | 3 | 438 | 19.03.2011 12:31 Ďuri | | v PHP, ASP | 4 | 713 | 10.03.2008 8:23 stenley | | v Databázy | 4 | 899 | 13.09.2008 13:30 m4r14n | | v Assembler, C, C++, Pascal, Java | 12 | 529 | 11.01.2015 21:01 nBXXL | | v Perl, Python, Ruby, CGI | 12 | 755 | 12.11.2014 0:21 Misosvk |
|
