Pascal-program sprawdzającyczy zmienna to liczba lub text


(Marcins2009) #1

Niemam pojecia jak napisac cos takiego

NP:

Program podaj;

Var

pod,lczyt:string;

Writeln('Podaj; ');

Read(pod);

(....)

Co TU umieścić

(....)

If lczyt='t' then Write('Podałes jakis text');

if lczyt='l' then Write('Podałes liczbe');

end.

Mam nadzieje ze zrozumieliscie o co mi chodzi.

Moze on tez sprawdzac czy zmienna to liczba jesli tak to True jesli nie to False

PROSZE O POMOC


(Gina Gina) #2

Przykład dla TP7:

(najprostszy)

Program podaj;

Var

  pod,lczyt:string;

  liczba,kod: integer;

begin

  Writeln('Podaj; ');

  Read(pod);

(*....*)

  Val(pod,liczba,kod);(*próba przetworzenia pod na liczba, gdy liczba wtedy kod=0, gdy text wtedy kod<>0*)

  If kod=0 then lczyt:='l' else lczyt:='t';

(*....*)

  If lczyt='t' then Write('Podałes jakis text');

  if lczyt='l' then Write('Podałes liczbe');

end.

(Marcins2009) #3

Dzieki :lol: problem rozwiazany nawet niemiałem pojecia że w taki sposób można to rozwiązać. :wink:

Zrobiłem sobie z tego funkcje może komuś sie przyda

function Sprawdz(zmienna:string):boolean;

Var

lol1,lol2:integer;

Begin

  Val(zmienna,lol1,lol2);

  If lol2=0 then Sprawdz:=True else Sprawdz:=FALSE;

  end;

urzyć jej mozna np tak :

begin

  Writeln('Podaj; ');

  Read(pod);

  If Sprawdz(pod)=True then Write('liczba') else write('text');

  repeat until keypressed;

end.

ale to już kozdy powinien wiedziec :mrgreen: