Pomocte – Pascal – Fórum – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama
Reklama

Pomocte  – Pascal – Fórum – Programujte.comPomocte – Pascal – Fórum – Programujte.com

 

Hledá se programátor! Plat 1 800 € + bonusy (firma Boxmol.com)
martin
~ Anonymní uživatel
1379 příspěvků
1. 5. 2009   #1
-
0
-

Ahojky.Mám udělat jeden program podle zadání a tabulke,ale vůbec nevím jak na to,hlavně jak kodem to napsat.Potřebuju poradit.Díky
Tady je zadání:
1.Zašifrovaný text naleznete zde.
2.Použita je jednoduchá substituční šifra. Každý znak původní zprávy je nahrazen jiným (ale stále stejným) znakem.
3.Původní zpráva obsahuje znaky 'A' .. 'Z' a mezeru. Tyto znaky jsou nahrazovány. Tečky a čárky zůstaly na místech beze změny.
4.Pomoci vám může tabulka četnosti znaků v průměrném českém textu (bez diakritiky).
5.Šifra by se dala určitě vyřešit i bez programování, ale s programem by to mohlo být rychlejší .

Ten zašifrovaný kod a tabulku četnosti najdete v příloze.

Nahlásit jako SPAM
IP: 78.110.208.–
Reklama
Reklama
pc_manik0
Stálý člen
1. 5. 2009   #2
-
0
-

Máš alespon zkušenost se základem Pascalu?

Nahlásit jako SPAM
IP: 90.179.68.–
Anonymní uživatel
~ Anonymní uživatel
0 příspěvků
1. 5. 2009   #3
-
0
-

To pc_manik : no.trochu jo.Já programuju v pascalu teprve ani ne rok.Já to mám jako předmět ve škole.Pomůžeš mi teda?

Nahlásit jako SPAM
IP: 78.110.208.–
pc_manik0
Stálý člen
1. 5. 2009   #4
-
0
-

To Anonymní uživatel : Budu se snažit.I když úkol zrovna není tak jednoduchý ja dělal v Pascalu asi před 2lety,ale nedávno jsem v něm zase něco zkoušel no zkusím to i když to zrovna není jednoduchý ukol.

Nahlásit jako SPAM
IP: 90.179.68.–
Anonymní uživatel
~ Anonymní uživatel
0 příspěvků
1. 5. 2009   #5
-
0
-

To pc_manik : Tak moc děkuju.Potřebuju to nejdéle do neděle....

Nahlásit jako SPAM
IP: 78.110.208.–
Krychlik
~ Anonymní uživatel
195 příspěvků
1. 5. 2009   #6
-
0
-

Nejcastejsi znak bude urcite mezera, tzn podle nejcastejsiho znaku to rozsekeja jdi od nejkratsich slov tj a, i, u, o, k, s, v, z, pak postupne kratke predlozky, zajmena... Doporucuju kombinovat hlavu a program pro prohazovani pismen. A pokud chces byt jo programator tak si stahni nejaky seznam ceskych slov treba pro scrabble nebo kontrolu chyb pro open office a pokazde si vytvor nahodnou sifru a porovnej vysledek se seznamem slov.

Nahlásit jako SPAM
IP: 212.111.4.–
pc_manik0
Stálý člen
2. 5. 2009   #7
-
0
-

To Anonymní uživatel : Nejdéle do neděle???Hmm tak to srry ale to asi nesthnu!

Nahlásit jako SPAM
IP: 90.179.68.–
Anonymní uživatel
~ Anonymní uživatel
0 příspěvků
2. 5. 2009   #8
-
0
-

To pc_manik : to neva...stačí to teda nejdéle do úterý

Nahlásit jako SPAM
IP: 78.110.208.–
Anonymní uživatel
~ Anonymní uživatel
0 příspěvků
3. 5. 2009   #9
-
0
-

Tady jsem něco vytvořil,ale nejde to tak jak by mělo.Pomocte mi to nějak upravit...

Uses crt;


procedure serad(var vyskyty: array of integer; var znaky: array of char);
var i: integer;
tmp_i: integer;
tmp_c: char;
swapped: boolean;
begin
repeat
swapped:= false;
i := 0;
for i := 0 to High(vyskyty) - 1 do begin
if vyskyty[i] < vyskyty[i+1] then begin
tmp_i := vyskyty[i];
vyskyty[i] := vyskyty[i+1];
vyskyty[i+1] := tmp_i;
tmp_c:=znaky[i];
znaky[i] := znaky[i+1];
znaky[i+1] := tmp_c;
swapped := true;
end;
end;
until swapped = false;
end;


function najdiznak(znak: char; pole: array of char): integer;
var i: integer;
begin
for i:=0 to High(pole)-1 do
if (pole[i] = znak) then begin
najdiZnak := i;
exit;
end;
end;

var soubor_sifra: file of char;
vyskyty: array[0..255] of integer;
znaky: array[0..255] of char;
znak: char;
i: integer;
const klic: array[0..25] of char = ('E','A','O','I','N','T','S','L','R','K','V','D','M','U',
'C','P','Z','Y','H','J','B','G','F','X','Q','W');
begin

assign(soubor_sifra,'C:\Pascal\sifra.txt');
reset(soubor_sifra);

for i := 0 to 255 do begin
vyskyty[i] := 0;
znaky[i] := chr(i);
end;

while not eof(soubor_sifra) do begin
read(soubor_sifra,znak);
if (ord(znak) >= 32) AND (ord(znak) <= 90) then
vyskyty[ord(znak)]:= vyskyty[ord(znak)] + 1;
end;

reset(soubor_sifra);
while not eof(soubor_sifra) do begin
read(soubor_sifra,znak);
if (ord(znak) >= 65) AND (ord(znak) <= 90) then
write(klic[najdiZnak(znak,znaky)])
else
if (ord(znak) >= 32) AND (ord(znak) <= 47) then
write(znak);
end;
writeLn;
close(soubor_sifra);
readLn;
end.

Nahlásit jako SPAM
IP: 78.110.208.–
pc_manik0
Stálý člen
4. 5. 2009   #10
-
0
-

To Anonymní uživatel : Funguje ti to?

Nahlásit jako SPAM
IP: 90.179.68.–
Anonymní uživatel
~ Anonymní uživatel
0 příspěvků
4. 5. 2009   #11
-
0
-

To pc_manik : pojď na icq....nefunguje

Nahlásit jako SPAM
IP: 213.168.179.–
Anonymní uživatel
~ Anonymní uživatel
0 příspěvků
5. 5. 2009   #12
-
0
-

Tady máš nejnovější kod,ale enní stále funkční.Když se to spustí tak by se měl zobrazit nějakej smysluplnej text,ale zobrazujou se mi tam hovadiny.Můžete se na to někdo mrknout...

Uses crt;

procedure serad(var vyskyty: array of integer; var znaky: array of char);
var i: integer;
tmp_i: integer;
tmp_c: char;
swapped: boolean;

begin
repeat
swapped := false;
i := 0;
for i := 0 to High(vyskyty) - 1 do

begin
if vyskyty[i] < vyskyty[i+1] then
begin

tmp_i := vyskyty[i];
vyskyty[i] := vyskyty[i+1];
vyskyty[i+1] := tmp_i;
tmp_c:=znaky[i];
znaky[i] := znaky[i+1];
znaky[i+1] := tmp_c;
swapped := true;
end;
end;
until swapped = false;
end;

function najdiznak(znak: char; pole: array of char): integer;
var i: integer;
begin

for i:=0 to High(pole)-1 do
if (pole[i] = znak) then
begin
najdiZnak := i;
exit;
end;
end;

var soubor_sifra: file of char;
vyskyty: array[0..255] of integer;
znaky: array[0..255] of char;
znak: char;
i: integer;
const klic: array[0..26] of char = (' ','E','A','O','I','N','T','S','L','R','K','V','D','M','U',
'C','P','Z','Y','H','J','B','G','F','X','Q','W');

begin
assign(soubor_sifra,'sifra.txt');
reset(soubor_sifra);
for i := 0 to 255 do
begin
vyskyty[i] := 0;
znaky[i] := chr(i);
end;

while not eof(soubor_sifra) do
begin
read(soubor_sifra,znak);
if (ord(znak) = 32) OR
((ord(znak) >= 48) AND (ord(znak) <= 57)) OR
((ord(znak) >= 65) AND (ord(znak) <= 90)) then

vyskyty[ord(znak)] := vyskyty[ord(znak)] + 1;
end;
serad(vyskyty, znaky);

{debug tracing}
{for i:=0 to 255 do writeLn(znaky[i],'(',ord(znaky[i]),') ',vyskyty[i]); }

reset(soubor_sifra);
while not eof(soubor_sifra) do
begin
read(soubor_sifra,znak);
if (ord(znak) = 32) OR
((ord(znak) >= 48) AND (ord(znak) <= 57)) OR
((ord(znak) >= 65) AND (ord(znak) <= 90)) then

write(klic[najdiZnak(znak,znaky)])
else
if (ord(znak) >= 33) AND (ord(znak) <= 47) then
write(znak);
end;
writeLn;
close(soubor_sifra);
readLn;
end.

Nahlásit jako SPAM
IP: 213.168.181.–
joudicek0
Návštěvník
5. 5. 2009   #13
-
0
-

Koukam ze malirka zmenila pohlavi na martina....
Tady porad nekdo nechape, ze to ten program sam neudela...
Pokud vim tak v zadani je neco jako "sifra se da rozlustit i bez programu,ale s programem by to mohlo byt rychlejsi...."
Z toho jsem vyvodil, ze program nebude ve stylu zadani vstupniho souboru a vyplivnuti spravneho textu....
Jak jiz napsal krychlik, je nutne kombinovat hlavu a programovani.
Dalsi jeho pripominka je, ze nejcastejsi znak bude mezera, coz je taky spravne... Pozn. Pokud je text v souboru podle ceske typografie, tak si troufam tvrdit, ze mezera je na 99% 'velke i', jelikoz nasleduje za teckami a carkami, ktere nejsou sifrovany. A i pokud se podivate na rozlozeni textu, tak by to tak i mohlo odpovidat... Ja jsem se samozrejme vydal stejnou cestou...spocital jsem si vyskyty a zjistil histogram pismen, ktere jsem se pokusil nahradit z tabulky cetnosti... ouha, oni vychazeji nesmysly....jenze chyba neni v programu...

Dalsi muj postup: vychazim z toho, ze mezera je velke i, takze si najdu celkem kratke slovo (cca 4 znaky) s vyskytem pismen v horni casti histogramu (nejlepe prvniho). Toto pismeno(a) nahradim znaky z tabulky a zbyla pismena se pokusim vygenerovat... pokud vygenerovane slovo dava smysl, zkusim dosadit vygenerovana do jineho slova.... Pokud ne, zkusim dosadi pismeno ktere je v cetnosti vedle apod....

Predpokladam,ze rychle reseni ulohy bude v tomto smeru.... a v tomto smeru je napsane i zadani... neni v nem napsat program, ktery by to rozlustil, ale program, ktery by POMOHL rozlustit.....
Napsat program do dvou mesicu, ktery by toto dokazal sam, nestihne student 3 rocniku SPS, ktery ma pascal prvni rok ani kdyby se rozkrajel.....muj nazor...

Nahlásit jako SPAM
IP: 212.20.106.–
Mircosoft+1
Věrný člen
5. 5. 2009   #14
-
0
-

To joudicek : To zni jako velice jednoduse proveditelny napad, a pritom docela efektni a ucinny:

- Program spocita cetnosti znaku v sifrovanem textu a zobrazi je formou tabulky nebo histogramu.
- K tomu pro porovnani stejnym zpusobem zobrazi "oficialni" tabulku cetnosti pismen v ceskem textu.
- K tomu zobrazi zacatek zasifrovaneho textu (kolik se vejde na obrazovku).
- Uzivatel se na to podiva a zkusi priradit nejaky znak sifry k nejakemu pismenu. Program mu vypise sifru (nebo aspon zacatek) s tim jednim dosazenym znakem (nejlepe zvyraznenym) a oznaci ho i v tabulkach.
- Kdyz se to uzivateli nelibi, dosazeni znaku muze zrusit.
- Tak postupne dosazuje dalsi a dalsi znaky, dokud mu to nevyjde.

Cili: program nemysli; mysli uzivatel a program mu jenom nazorne predvadi, co vymyslel :-).

V textovem rezimu by to melo jit bez problemu, dosazena pismenka se daji pohodlne zvyraznovat Textcolorem (v grafice by byl efektnejsi ten histogram, ale to by zase bylo o hodne pracnejsi). Cely vstupni text se da ulozit do pole znaku (array[1..hodne] of char), aby se nemusel porad cist ten soubor. Dale dosazovaci pole: za indexy se budou dosazovat znaky ze sifry a budou se do nej ukladat pismena, ktera za ty znaky dosazujeme (pripadne nejaky specialni znak, ktery rekne "tady jeste neni dosazeno nic", treba #0). V grafice by se daly obe tabulky znaku propojovat carami, aby bylo na prvni pohled jasne, kam je ktery znak dosazeny; v textaku by to slo resit bud ruznymi barvami zvyrazneni nebo nejakou pohyblivou znackou.

Ukoly k vyreseni:
1) Nacteni vstupniho textu do pole.
2) Spocitani cetnosti jednotlivych znaku ve vstupnim textu, jejich ulozeni do pole (stejny format jako konstanta Klic v minulem zdrojaku) a serazeni podle velikosti.
3) Vypsani obou tabulek cetnosti na obrazovku se zvyraznenim dosud dosazenych znaku.
4) Zobrazeni kusu sifrovaneho textu na obrazovku s nahrazenim a zvyraznenim dosazenych znaku.
5) Precteni vstupu od uzivatele (povely k dosazeni a zruseni znaku) a prislusna akce v dosazovacim poli.

Takhle nakouskovane uz to vypada jako celkem trivialni zalezitost :-).

Nahlásit jako SPAM
IP: 130.119.248.–
Chceš-li lepší odpověď, polož lepší otázku.
Moje stránka.
joudicek0
Návštěvník
5. 5. 2009   #15
-
0
-

To Mircosoft : V jednoduchosti je sila...... kdyby to mel delat program automaticky bez pomoci, trvalo by to strasne dlouho..... Ja uz to celkem mam hotovy, je to sice dost bojova verze (nejak se mi nedari ukoncit jednu podminku cyklu:) ) ale zkouseni pismenek uz mi funguje....takze jen nebejt linej a projit to... :)

Nahlásit jako SPAM
IP: 212.20.106.–
o-lox0
Super člen
5. 5. 2009   #16
-
0
-

Noční šichta, má to někdo hotové?? (jak to mate rychly, na kolik kroku vysledek..?)
Mám tam pár bugů.
Chce to - zív - soubor sifra.txt jako zdroj
http://olox.chytrak.cz/download/SIFRA.TXT
slovnik2.txt pro rychly prevod
http://olox.chytrak.cz/download/SLOVNIK2.TXT
davam sem vlastni ale klidne funguje i s jakymkoliv kompaktnim
jen se dele ceka... (samozrejme cestina, diakritika NE)

Vychazim z toho ze slovnik neni nikdy dost presny a 10MB bych
do Pascalu ani neladoval takze to obcas vyjede obrazovku a chce
potvrdit prubezny vysledek.

Vytvari to toho casu nejakej OUTPUT soubor toho jmena s dekryptem.
Klavesy ovladani neprilis uzivatelsky privetive:
Po zobrazeni listu Prvni STISK klavesy je ZNAK na zmenu
a druhy STISK je nahrazovane pismeno (pr. DS udela zmenu nejen v tomto slove DMRT - > SMRT)
Kdyz se misto znaku zada 00 tak program pokracuje v iteraci slov
ze slovniku pro presnejsi prevod. Tozn. ze se uz nemusi znova
bohuzel zobrazit list adiooos.
Enter Ulozi do vyse zmineneho Output souboru prubezny vysledek
a dale to doplni znaky ktere nebyly ve slovniku treba WQX atd.
http://olox.chytrak.cz/download/FORUM6.EXE
Jdu spat.

Nahlásit jako SPAM
IP: 85.71.152.–
Anonymní uživatel
~ Anonymní uživatel
0 příspěvků
6. 5. 2009   #17
-
0
-

To o-lox : Tady mám jeden kod,ale nejde spustit a potřebovala bych ho nějak zjednodušit.

Uses crt;

const klic: array[0..26] of char = (' ','E','A','O','I','N','T','S','L','R','K','V','D','M','U',
'C','P','Z','Y','H','J','B','G','F','X','Q','W');
Label
znova1,znova2,nav1,nav2;

Type titer=record
a:integer;
i1:integer;
ok:boolean;
preskoc:boolean;
pru:integer;
presah:boolean;
end;
tt1=array[0..255]of char;
const
znaky:array[1..3]of char=(' ','.',',');

Var i,j,a,b:integer;
slova:array[1..450]of string[20];
slov:integer;
slovnik:array[1..1500]of string[20];
pslov:integer;
f:File;
prevod:tt1;
cele : array[1..3000]of char;
cteno:integer;
iter : array[1..1501]of titer;
z:char;
ret:string;
poslslovo:integer;
test1,test2:boolean;
ft:text;
nalezeno:integer;
pocetpism : array[0..55]of integer;
rezim:byte;
z1,z2:char;
pevne:tt1;
pouzite:array[0..255]of Byte;
pouzitepole:array[0..255] of byte;
poslpouz:Byte;
zbylo:integer;

procedure intro;
begin
while not(eof(ft)) do
begin readln(ft,ret);
i:=1;
repeat
a:=i;
test1:=true;
While (i<=length(ret))and(ret[i]<>' ') do begin
ret[i]:=upcase(ret[i]);
If (ret[i]>'Z')or(ret[i]<'A') then test1:=false;
inc(i);
end;
If (i<>a) and test1 then begin
slovnik[j]:=copy(ret,a,i-a);
inc(j);
end;
inc(i);
until i>length(ret);
end;
End;

Function najdiznak(a:char):byte;
Var i:integer;
Begin
i:=0;
while prevod[i]<>a do inc(i);
najdiznak:=i;
End;

BEGIN
clrscr;
writeln('Lusteni sifrovaneho souboru sifra.txt');
prevod[ord('I')]:=' ';
slovnik[1]:='NEBO';
slovnik[2]:='ZE';
slovnik[3]:='KDYZ';
slovnik[4]:='ALE';
slovnik[5]:='SE';
slovnik[6]:='TO';
slovnik[7]:='BYL';
slovnik[8]:='BUDE';
slovnik[9]:='RYCHLE';
slovnik[10]:='UDELA';
pslov:=10;
assign(ft,'C:Pascal\slovnik2.txt');
reset(ft);
j:=pslov;
intro;
pslov:=j-1;
close(ft);

Assign(f,'C:Pascal\sifra.txt');
Reset(f,1);
blockread(f,cele,3000,cteno);
pevne[ord('.')]:='.';
pevne[ord(',')]:=',';
pevne[ord('I')]:=' ';
pevne[ord('X')]:='A';
for i:=1 to cteno do
begin
test1:=true;
for j:=1 to poslpouz do
If pouzite[j]=ord(cele[i]) then test1:=false;
If pevne[ord(cele[i])]<>#0 then test1:=false;
If test1 then
begin
inc(poslpouz);
pouzite[poslpouz]:=ord(cele[i]);
end;
end;

i:=1; j:=1;
prevod[ord('.')]:='.';
prevod[ord(',')]:=',';
while i<cteno do begin
a:=i;
while not (prevod[ord(cele[i])] in [' ','.',',']) do
begin
slova[j]:=slova[j]+cele[i];
inc(i);
end;
inc(i);
If (cele[i]=',')or(cele[i]='.') then inc(i);
if slova[j]<>'' then inc(j);
end;
slov:=j;
For i:=1 to slov do
inc(pocetpism[length(slova[i])]);

a:=1;
{ iter[a].i1:=1;}
for i:=1 to 300 do iter[i].ok:=false;
test1:=false;
zbylo:=poslpouz;

Repeat
znova1:
for i:=0 to 255 do
If pevne[i]<>#0 then prevod[i]:=pevne[i];

a:=1;
while iter[a].ok or iter[a].preskoc do inc(a);

If slovnik[a]='' then
begin
If (nalezeno>10)and(zbylo<11{9}) then begin
Repeat
clrscr; if keypressed then readkey;
for i:=1 to 80*23 do
If prevod[ord(cele[i])]>#0 then
write(prevod[ord(cele[i])])
else write('_');
Writeln; write('zadej potvrzeni / 0 = konec');
z1:=readkey;
z2:=readkey;
z1:=upcase(z1);
z2:=upcase(z2); write(z1,z2); delay(600);
If z1=#13 then
begin
for z1:='A' to 'Z' do
begin
test1:=false;
for a:=0 to 255 do
If prevod[a]=z1 then test1:=true;
If not test1 then begin
a:=1;
while pouzitepole[a]>0 do inc(a);
pouzitepole[a]:=1;
prevod[pouzite[a]]:=z1;
end;
end;
end else begin
If (z1='0')or(z2='0') then break;
If z2<>'*' then
pevne[Najdiznak(z1)]:=z2 else
pevne[Najdiznak(z1)]:=#0;
for i:=0 to 255 do
If pevne[i]<>#0 then prevod[i]:=pevne[i];
end;
Until false;
writeln('bezim...');
delay(800);
{ If nalezeno>16 then begin textcolor(RED); write(' ENTER'); textcolor(7); readkey; end;}
end;
nalezeno:=1;
for i:=1 to pslov do
begin iter[i].ok:=false;
iter[i].preskoc:=false;
iter[i].i1:=0;
end;
i:=1;
{ If iter[i].presah then begin
iter[i].presah:=false;
iter[i].pru:=0;
inc(i);
end;}
repeat
inc(iter[i].pru);
If pocetpism[length(slovnik[i])]<=iter[i].pru
then begin
iter[i].pru:=0;
inc(i);
end else break;
until false;

for i:=0 to 255 do prevod[i]:=#0;
for i:=0 to 255 do pouzitepole[i]:=0;
zbylo:=poslpouz;
goto znova1;
end;

For j:=0 to iter[a].pru do
begin
Repeat
inc(iter[a].i1);
while (iter[a].i1<slov)and(length(slova[iter[a].i1])<>length(slovnik[a])) do inc(iter[a].i1);
i:=1;
While prevod[ord(slova[iter[a].i1,i])]<>#0 do inc(i);
Until i<=length(slovnik[a]);
If iter[a].i1=slov then break;
end;

If iter[a].i1=slov then begin
iter[a].presah:=true;
iter[a].i1:=1;
poslslovo:=a;
If rezim=1 then begin
slovnik[a]:=slovnik[pslov];
dec(pslov);
end else
begin
test1:=true;
{ for j:=1 to length(slovnik[a]) do
chyba[ord(slovnik[a,j])]:=1;}
{ a:=poslslovo;}
{ slovnik[a]:=slovnik[pslov];
dec(pslov); }
iter[a].preskoc:=true;
test1:=false;
end;
{ dec(a);
goto znova1;}
end else begin
iter[a].ok:=true;
for j:=1 to length(slova[iter[a].i1]) do
begin
z1:=slova[iter[a].i1,j];
For b:=32 to 96 do
If (ord(z1)<>b)and(prevod=slovnik[a,j]) then begin
iter[a].ok:=false;
goto znova1;
end;
If (prevod[ord(slova[iter[a].i1,j])]<>#0)and
(prevod[ord(slova[iter[a].i1,j])]<>slovnik[a,j])
then begin
iter[a].ok:=false;
goto znova1;
end;
for b:=j+1 to length(slova[iter[a].i1]) do
If (((slova[iter[a].i1,j]=slova[iter[a].i1,b])
and(slovnik[a,j]<>slovnik[a,b]))
or
((slovnik[a,j]=slovnik[a,b])
and(slova[iter[a].i1,j]<>slova[iter[a].i1,b])))
then begin
iter[a].ok:=false;
goto znova1;
end;
end;
for j:=1 to length(slova[iter[a].i1]) do
begin
prevod[ord(slova[iter[a].i1,j])]:=slovnik[a,j];
for b:=1 to poslpouz do
If pouzite=ord(slova[iter[a].i1,j]) then
begin
{ pouzite:=pouzite[poslpouz];
dec(poslpouz);}
If pouzitepole=0 then dec(zbylo);
pouzitepole:=1;
break;
end;
end;
end;
If iter[a].ok then inc(nalezeno);
Until false;
close(f);
END.

Nahlásit jako SPAM
IP: 213.168.179.–
o-lox0
Super člen
7. 5. 2009   #18
-
0
-

Ovšem ovšem icq, Má-li člověk v srdci zelenou ratolest, ptáček zpěváček na ni sedne. :D

Nahlásit jako SPAM
IP: 85.71.152.–
12. 5. 2009   #19
-
0
-

potrebujem helpnut...vytvorim si program v dev pascale ale po spusteni mi ho hned aj zavrie...daval som aj readln nakoniec a aj tak
sa mi zatvori....co mam zadat aby mi okno ostalo otvorene???....pleaseee matury

Nahlásit jako SPAM
IP: 91.127.42.–
Mircosoft+1
Věrný člen
13. 5. 2009   #20
-
0
-

Hod sem kod, jinak ti tezko poradime...

Nahlásit jako SPAM
IP: 130.119.248.–
Chceš-li lepší odpověď, polož lepší otázku.
Moje stránka.
Grungy0
Super člen
17. 5. 2009   #21
-
0
-

Niekedy treba dať readln dvakrát, preto ja radšej používam readkey z unitu crt. Potom stačí stlačiť ľubovolnú klávesu a funguje vždy.

Nahlásit jako SPAM
IP: 213.215.118.–
Prvý náznak hlúposti, je pocit geniality.
Zjistit počet nových příspěvků

Přidej příspěvek

Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!

Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku

×Vložení zdrojáku

×Vložení obrázku

Vložit URL obrázku Vybrat obrázek na disku
Vlož URL adresu obrázku:
Klikni a vyber obrázek z počítače:

×Vložení videa

Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
 
Podporujeme Gravatara.
Zadej URL adresu Avatara (40 x 40 px) nebo emailovou adresu pro použití Gravatara.
Email nikam neukládáme, po získání Gravatara je zahozen.
-
Pravidla pro psaní příspěvků, používej diakritiku. ENTER pro nový odstavec, SHIFT + ENTER pro nový řádek.
Sledovat nové příspěvky (pouze pro přihlášené)
Sleduj vlákno a v případě přidání nového příspěvku o tom budeš vědět mezi prvními.
Reaguješ na příspěvek:

Uživatelé prohlížející si toto vlákno

Uživatelé on-line: 0 registrovaných, 21 hostů

Podobná vlákna

Pomocte — založil Malirka

Prosím pomocte...... — založil lukik

Moderátoři diskuze

 

loadingtransparent (function() { var po = document.createElement('script'); po.type = 'text/javascript'; po.async = true; po.src = 'https://apis.google.com/js/plusone.js'; var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(po, s); })();
Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032016 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý