Witam znalazłem na internecie takie zadanko, dopiero się uczę TP mógłby ktoś naprowadzić jak to wykonać ?
Wpisać do wektora 10 znakowego dane z klawiatury, a następnie pokazać wprowadzone dane w jednym wierszu.
W Pętli sprawdzić wszystkie dane w wektorze czy są cyframi i policzyć je.
Wyświetlić ile cyfr i ile innych znaków znajduje się w wektorze.
Z góry dziękuję za pomoc
Witam, wydaje mi się że chodzi o wczytanie 10 znaków z klawiatury, i zapisanie jej jako tablicę, może się mylę ale jeśli tak to:
*Musisz zdeklarować tablicę 10 elementową:
type
tablica = array [1..10] of word;
var
i:integer;
t:tablica;
*Teraz gdy już masz tablicę, musisz zapisywać do niej wprowadzane przez użytkownika znaki z klawiatury:
BEGIN
clrscr;
for i:=1 to 10 do
begin
write('Wprowadź znak ,'i',: ')
readln(t[i]);
end;
END.
*Teraz zaś musisz sprawdzać czy dany znak to cyfra, czy też litera. To już powinieneś wiedzieć jak zrobić (polecam do tego tablę kodów asci)
Nie wiem czy coś pomogłem, ale serdecznie pozdrawiam.
Dzieki, ale to co podales to przeciez jak tam dam znak inny niz Cyfra to wywala blad ;/
To spróbuj zamienić word na byte albo string.
Proszę!
uses crt;
type
tablica = array [1..10] of string;
var
i:integer;
t:tablica;
BEGIN
clrscr;
for i:=1 to 10 do
begin
write('Wprowadź znak ',i,' : ') ;
readln(t[i]);
end;
write('Twoje znaki to: ');
for i:=1 to 10 do
begin
write(' ',t[i]);
end;
//... tutaj musisz sobie dopisać procedurę sprawdzania czy to liczba czy cyfra, tak jak już wyżej pisałem najlepiej by było gdybyś to zrobił za
//pomocą kodów Asci z tabeli asci.
readln;
END.
a ze znakami Ascii to robie np
if tab[i] < cyfra jedynki < cyfra dziewitki
hmmmm. Jeśli chciałbyś zrobić to sprawdzanie znaków to polecam zmienić:
uses crt;
type
tablica = array [1..10] of string;
na
uses crt;
type
tablica = array [1..10] of char;
A tutaj podaję przykład jak zrobić to odróżnianie znaków od liczb.
begin
for i:=1 to 10 do
begin
readln(t[i]);
if (t[i]>#47) and (t[i]<#58) then writeln('Liczba')
else
writeln('Znak');
end;
readln;
end;
{Wystarczy dopisać funkcję zliczającą litery i liczby, a gdybyś próbował zliczyć sumę cyfr to spróbuj:
Instrukcja ord(t[i]) albo byte(t[i]) albo integer(t[i]) }
Pozdrawiam!