Zdravim.
Mam uholu z informatiky:
Vytvorte program pouzitim co najjednoduchsich funkcii pre banku, ktora po zadani mena vypise cislo karty a adresu danej osoby.
Ja som to vytvoril takto:
http://obrazok.eu/viewer.php?file=un9ya ... vjbwuk.jpg
Problem je v tom ze mi to "meno" nezoberie..
Ale ked dam len ... IF x = 'D' THEN .. tak to ide :O
Typujem ze bude problem v riadku VAR. ze nebude Char ale nieco ine.
Za rady dakujem.
p.s. pre neprajnikov: ano, s programovanim zacinam tak mi nemusite vycitat chyby ...
Turbo pascal 7 - jednoduchy problem
Tak neprehladne 
neprehladne?
mno tak... sorry za OT ale tie casy kedy som ja skusal vytvorit samostatny OS v pascali 7.0, a aj to slo... citujem z mojho kodu taku chutovku
... a takto to pokracuje az do konca 
mno tak... sorry za OT ale tie casy kedy som ja skusal vytvorit samostatny OS v pascali 7.0, a aj to slo... citujem z mojho kodu taku chutovku
Kód: Vybrať všetko
...
...
begin
SplashScreen_TEXT;
ClearScreen;
Cursor(1);
TextColor(Yellow);
WriteStr('PortixOS ' + sysver + ' prˇkazov˜ riadok');
WriteStr(CRLF + ' by Jozef Bogin. ');
TextColor(LightRed);
WriteStr('Freeware!');
TextColor(LightMagenta);
WriteStr(CRLF + CRLF + 'Pre pomoc napˇ¨te');
TextColor(LightCyan);
WriteStr(' help');
TextColor(LightMagenta);
WriteStr('.');
Delay(100);
Delay(50);
ShellLoop:
TextColor(LightGray);
TempStr := '';
CmdLin := '';
WriteStr(CRLF + CRLF);
WriteStr('PortixOS >');
ReadStr;
for i := 1 to Length(rdstr) do
rdstr[i] := UpCase(rdstr[i]);
if rdstr = '' then goto shellloop;
if rdstr = ' ' then goto shellloop;
if rdstr = ' ' then goto shellloop;
{ --== je napisane DIR? ==--}
TempStr := Copy(rdstr,1,4);
CmdLin := Copy(rdstr,5,250);
if TempStr = 'DIR' then begin
if CmdLin = '' then begin
if rdstr[3] = 'R' then begin
dircom:
WriteStr(CRLF + CRLF);
(*rsfsstatus := CheckRSFS;*)
Unused := VolumeLabel;
rsfsstatus := VersionRSFS;
WriteStr(#13 + 'Menovka disku: ' + Unused);
WriteStr(CRLF + 'Verzia RSFS: ' + rsfsstatus);
goto ShellLoop;
end;end;end;
if TempStr = 'DIR ' then begin
if CmdLin <> '' then begin
if rdstr[4] = ' ' then begin
Delete(TempStr,4,1);
goto dircom;
end;end;end;
{ --== je napisane VER? ==--}
if TempStr = 'VER ' then begin
...
...