Ĺadny brzuch
Jak sprawdzić czy jakaś liczba zawiera daną cyfrę? Np. przy wypisaniu wszystkich liczb z przedziału, które zawieraja daną cyfrę...
z tego co zrozumiałem to musisz zamieniać liczbę na tekst i sprawdzać czy znak się znajduje funkcją Pos
Prosisz o gotowca mimo, że dostales warna...zlituje sie i dam cos co napisałem zanjąc tyle pascala ile jest podobny do C++(czyli nic :P).
uses crt; var liczba : longint; i :integer; szukana :integer; temp : string; begin clrscr; readln(liczba); readln(szukana); str(liczba, temp); for i:=0 to length(temp) do begin if(ord(temp[i]) = szukana+48) then begin writeln('JEEEST');end; end; readln; end.
Jak coś nie działa(powinno dzialac) to pisz...
Użytkownik arcktos edytował ten post 08 październik 2006, 16:17
z tego co zrozumiałem to musisz zamieniać liczbę na tekst i sprawdzać czy znak się znajduje funkcją Pos Niekoniecznie :)function sprawdz(liczba:integer; cyfra:byte):boolean; var wynik: boolean; temp: integer; begin wynik:=false; while liczba<>0 do begin temp:=liczba; liczba:=liczba div 10; temp:= temp mod 10; if temp=cyfra then wynik:=true; end; sprawdz:=wynik; end;
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
z tego co zrozumiałem to musisz zamieniać liczbę na tekst i sprawdzać czy znak się znajduje funkcją Pos
Prosisz o gotowca mimo, że dostales warna...zlituje sie i dam cos co napisałem zanjąc tyle pascala ile jest podobny do C++(czyli nic :P).
uses crt; var liczba : longint; i :integer; szukana :integer; temp : string; begin clrscr; readln(liczba); readln(szukana); str(liczba, temp); for i:=0 to length(temp) do begin if(ord(temp[i]) = szukana+48) then begin writeln('JEEEST');end; end; readln; end.
Jak coś nie działa(powinno dzialac) to pisz...
Użytkownik arcktos edytował ten post 08 październik 2006, 16:17
z tego co zrozumiałem to musisz zamieniać liczbę na tekst i sprawdzać czy znak się znajduje funkcją Pos Niekoniecznie :)function sprawdz(liczba:integer; cyfra:byte):boolean; var wynik: boolean; temp: integer; begin wynik:=false; while liczba<>0 do begin temp:=liczba; liczba:=liczba div 10; temp:= temp mod 10; if temp=cyfra then wynik:=true; end; sprawdz:=wynik; end;