Turbo Pascal
Twoje źródło wiedzy o Turbo Pascalu.
  
Szukanie zaawansowane
    
 
Home Rejestracja FAQ Użytkownicy Grupy Galerie  
  Zaloguj się, by sprawdzić wiadomości Zaloguj  
   
 

Forum Turbo Pascal Strona Główna Pytania formatowanie liczb html w pascalu
Wyświetl posty z ostatnich:   
       
Napisz nowy temat  Odpowiedz do tematu

Pią 13:14, 10 Lis 2006
Autor Wiadomość
Luisa
Pierwszy raz na forum



Dołączył: 24 Paź 2006
Posty: 1
Przeczytał: 0 tematów

Ostrzeżeń: 0/3
Temat postu: formatowanie liczb html w pascalu
Witam!
Mam zadanko częściwo napisane ale mam pewien problem.
W tym zadaniu z wpisanego tekstu z konsoli należy wkleić tylko liczby między znaczniki HTML. Na początek nie wiem jak napisać aby program uwzględniał nie tylko cyfry ale również liczby.
Oto mój częściowy kod:

Kod:
              //Formatowanie z operatorem not//
         
uses crt;
var

 tab:array[0..50] of char;
 tekst:word;
 x:integer;


begin
    clrscr;
    writeln('podaj tekst:');

    readln(tab);
    for x:=0 to 49 do
    begin
     if not((tab[x]>='A') and (tab[x]<='Z')
        or(tab[x]>='a') and (tab[x]<='z')
        or (tab[x]>=' ')and (tab[x]<='/')
        or (tab[x]>=':') and (tab[x] <='@'))then
        end;
     begin
       if (tab[x]>='0') and (tab[x]<='9') then
         write('<b>',tab[x], '</b>');
       end;
    readln;
end.
             // poprawnie skompilowany ale nie odpowiada na podany tekst//


inna wersja:
Kod:
        // Formatowanie  HTML //
uses crt;
var
 tab: array[0..100] of char;
 x:integer;
begin
    clrscr;
    writeln ('Wpisz tekst:');
     readln(tab);
 for x:=0 to 99 do
   if (tab[x]>='0') and (tab[x]<='9') then
   write ('<b>', (tab[x]),'</b>');
   writeln;
   readln;
   end.
       //Program odczytuje tylko cyfry //

Za wskazowke z góry dziękuje

Post został pochwalony 0 razy
 
Zobacz profil autora
      Do góry  
Napisz nowy temat  Odpowiedz do tematu

 
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach

      Do góry  

Strona 1 z 1
Skocz do:  


fora.pl - załóż własne forum dyskusyjne za darmo
Powered by phpBB © 2001, 2002 phpBB Group
Avalanche style by What Is Real © 2004
             
Regulamin
Na skróty:Turbo PascalStrona wwwInnePytaniaKody źródłoweHydeParkPropozycjeBłędyWasze projektyOgłoszeniaNewsy