Zbuduj aplikacje, która wyswietla wszystkie litery alfabetu oraz ich kody ASCII. Do otrzymania kodu danego znaku zastosuj rzutowanie typu Char na Byte oraz funkcje Ord(znak) . Do sterowania pętla zastosuj zmienna typu Char. czy ktos mi pomoze??
0
0
Kiedyś napisałem program kodujący, w jednym polu wpisujesz tekst, w drugim on wyświetla ASCII (jedna z funkcji). Czyli jak pisałeś w jednym "abcdefghijk" to on do drugiego wpisywał "abcdefghijk".
Fragment kodu zamieniającego literki masz tu:
procedure TForm1.Memo1Change(Sender: TObject);
var
i : integer;
cos : string[3];
begin
Memo2.text:='';
for i := 1 to Length(Memo1.Text) do
begin
STR(ord(Memo1.Text[i]),cos);
Memo.text:=Memo2.text+'&#'+cos+';';
end;
end;
czyli że cos to jest string, do ktorego on wczytuje ASCII. No to możesz tak samo zrobić z charem. A gdzie on ma wyświetlać ten alfabet i kody?
0
mike_p: que?
Jak na mój gust, to chodzi o coś takiego:
var c:char;
begin
for c:='A' to 'Z' do
Writeln(c, ': ', Byte(c));
end;
0
literki wyswietlic ma w memo lub na etykiecie
0
To zamień WriteLn na Memo.Add i zamiast c, ': ', Byte(c) zastosuj c+': '+IntToStr(Byte(c));