ošetrenie vstupu

camarovk19 · Napísal **camarovk19**: 12.12.2015 16:14

Robím zadanie v object pascale a neviem ako mám ošetriť nezadanie čísla do editu mohli by ste mi poradiť prosím? Ďakujem vopred

walther · Napísal **walther**: 12.12.2015 16:18

Podľa špecifikácie. Pokiaľ nemáš, podľa vlastného rozumného uváženia.

camarovk19 · Napísal autor témy **camarovk19**: 12.12.2015 16:47

mám že ak zadám kladne číslo tak počíta počet cifier čísla to mám len treba ošetriť aby to záporné čísla to mám a aj to keď nezadám nič a to neviem ako mám ošetriť keď nezadám nič do editu

Miso122 · Napísal **Miso122**: 12.12.2015 17:52

na zaciatok dat podmienku

Kód:

if edit1.text='' then 
else ...

pripadne nastavit primarnu hodnotu na 0

camarovk19 · Napísal autor témy **camarovk19**: 12.12.2015 18:11

nastavil som vlasnosť text na nulu a potom dal if ko a ide to dúfám že to tak môže byť a ešte jedna otázočka ako vymením keď zadám číslo N prvú a poslednú cifru tak že prvá cifra bude posledná a posledná prvá

Miso122 · Napísal **Miso122**: 12.12.2015 18:59

len prvú a poslednú či komplet celé číslo otočiť?

camarovk19 · Napísal autor témy **camarovk19**: 12.12.2015 19:04

len zamenit prvu a poslednú cifru

Miso122 · Napísal **Miso122**: 12.12.2015 19:25

potrebujes k tomu 2 dalsie premenne, na prvu a poslednu cifru

Kód:

var cislo,vymenene:string; prva:char; posledna:integer;
begin
cislo:= edit1.text;
prva:= cislo[1];
posledna:= strtoint(cislo) mod 10;
vymenene:= cislo;
vymenene[length(vymenene)]:= prva;
vymenene[1]:=inttostr(posledna)[1];
end;

camarovk19 · Napísal autor témy **camarovk19**: 12.12.2015 19:37

iba počet cifier to píše neviem prečo

Kód:

procedure TForm1.Button1Click(Sender: TObject);
var
  cisla:Integer;
  cislo,vymenene:string;
  prva:char;
  posledna:integer;
function pocet (vysledok:Integer):Integer;
var
  cislo:Integer;
       begin
          cislo:=StrToInt(Edit1.Text);
          vysledok:=0;
          while cislo>0 do
            begin
               cislo:=cislo div 10;
               vysledok:=vysledok+1;
            end;
          Result := vysledok;
       end;

begin
   cisla:=StrToInt(Edit1.Text);
   if cisla=0 then Label1.Caption:='Nezadal si číslo'
   else if cisla<0 then Label1.Caption:='Nemôžeš zadať záporné číslo'
   else
      begin
        cisla:=pocet(cisla);
        Label1.Caption:=IntToStr(cisla);
      end;
       cislo:= edit1.text;
       prva:= cislo[1];
       posledna:= strtoint(cislo) mod 10;
       vymenene:= cislo;
       vymenene[length(vymenene)]:= prva;
       vymenene[1]:=inttostr(posledna)[1];

end;

end.                                        

Miso122 · Napísal **Miso122**: 12.12.2015 19:40

mas tam 2x premennu cislo

camarovk19 · Napísal autor témy **camarovk19**: 12.12.2015 19:46

to je cislo a cisla

Miso122 · Napísal **Miso122**: 12.12.2015 19:47

a vo funkcii pocet mas co?

camarovk19 · Napísal autor témy **camarovk19**: 12.12.2015 19:50

premenoval som tú premennu a aj tak iba počet cifier píše

Miso122 · Napísal **Miso122**: 12.12.2015 19:58

a vypisujes ktoru premennu?

camarovk19 · Napísal autor témy **camarovk19**: 12.12.2015 20:01

Kód:

procedure TForm1.Button1Click(Sender: TObject);
var
  cisla:Integer;
  cislo,vymenene:string;
  prva:char;
  posledna:integer;
function pocet (vysledok:Integer):Integer;
     var
       cisle:Integer;
       begin
          cisle:=StrToInt(Edit1.Text);
          vysledok:=0;
          while cisle>0 do
            begin
               cisle:=cisle div 10;
               vysledok:=vysledok+1;
            end;
          Result := vysledok;
       end;

begin
   cisla:=StrToInt(Edit1.Text);
   if cisla=0 then Label1.Caption:='Nezadal si číslo'
   else if cisla<0 then Label1.Caption:='Nemôžeš zadať záporné číslo'
   else
      begin
        cisla:=pocet(cisla);
        Label1.Caption:=IntToStr(cisla);
      end;
       cislo:= edit1.text;
       prva:= cislo[1];
       posledna:= StrToInt(cislo) mod 10;
       vymenene:= cislo;
       vymenene[length(vymenene)]:= prva;
       vymenene[1]:=IntToStr(posledna)[1];

end;                                                               

Netuším kde je chyba

Miso122 · Napísal **Miso122**: 12.12.2015 20:13

co tak na konci este vypisat tu premennu 'vymenene'?

camarovk19 · Napísal autor témy **camarovk19**: 12.12.2015 20:17

jooj ďakujem pekne môžem poprosiť ešte o objasnenie ako funguje ten zdroják ktorý to vymieňa?

Miso122 · Napísal **Miso122**: 12.12.2015 20:22

Kód:

prva:= cislo[1];

premennej 'prva' pripadi znak cislo 1 z premennej 'cislo'

Kód:

posledna:= strtoint(cislo) mod 10;

premennej 'posledna' priradi posledne cislo z premennej 'cislo' (zvysok po deleni 10)

Kód:

vymenene:= cislo;

do premennej 'vymenene' nacita hodnotu z premennej 'cislo'

Kód:

vymenene[length(vymenene)]:= prva;

poslednemu znaku premennej 'vymenene' priradi hodnotu premennej 'prva'

Kód:

vymenene[1]:=inttostr(posledna)[1];

prvemu znaku premennej 'vymenene' priradi prvy znak premennej 'posledna'

camarovk19 · Napísal autor témy **camarovk19**: 12.12.2015 20:39

a ešte jedna otázka prečo sú tam v hranatých zátvorkách tie jednotky?

Miso122 · Napísal **Miso122**: 12.12.2015 20:56

tým určuješ poradie v stringu, array. napr jeď je tam 1 tak prvý znak poľa, stringu

camarovk19 · Napísal autor témy **camarovk19**: 12.12.2015 21:09

ahááááá to sú jednorozmerné polia že?

Miso122 · Napísal **Miso122**: 12.12.2015 21:09

hej, ale platí to aj pri stringu

camarovk19 · Napísal autor témy **camarovk19**: 12.12.2015 21:11

joooooj už chápem ďakujem pekne za objasnenie a aj za trpezlivosť ďakujem

ošetrenie vstupu

Podobné témy