Witajcie mam problem nie wiem co gdzie i jak wstawić żeby pokazywało zmienione litery w kodzie, który przygotowałem :
program rozpoznawacz;
uses crt;
var
litera:char;
a:longint;
begin
clrscr;
writeln('Nacisnij przycisk');
readln(litera);
a:=ord(litera);
if ((a>=65) and (a<=90)) then writeln('to jest duza litera');
if ((a>=90) and (a<=122)) then writeln('to jest mala litera');
if ((a>=48) and (a<=57)) then writeln('To cyfra');
if ((a>=58) and (a<=64)) then writeln('To znak');
if ((a>=123) and (a<=126)) then writeln('to znak');
if ((a>=33) and (a<=47)) then writeln('to znak');
readln;
end.
Kilka spraw:
- nie znam składni Pascala, więc nie mam pojęcia co tam się robi, oprócz tego że chyba pobierany jest char który następnie konwertowany jest na long, no i leci seria if która sprawdza czy pobrany long mieści się w ustalonym zakresie, i printuje komunikat,
- mam wrażenie że uczysz się tego programowania od dupy strony, po raz któryś masz skądś jakiś kod którego sam nie rozumiesz (albo banalny błąd typu zła deklaracja/brak średnika), nie prościej poczytać o podstawach zamiast kopiować skrypty z internetu?
- ten kod nie zmieni małej litery na dużą, tylko wyświetli informację jakiego rodzaju to znak,
- jak chcesz zmieniać literę z małej na dużą to musisz dodać (jeżeli chcesz przejść z małego na duży) albo odjąć 31, plus dopisać jakiegoś ifa który sprawdzi czy podany symbol mieści się w zakresie liter (czyli 65-90 LUB 97-122).
edit: masz pseudokod w obrazku, teraz przepisz to na składnię pascalową i powinno działać. W Javie działa (tyle że inta trzeba przerzutować na char).
Chodziło mi o to żeby do tego kodu który napisałem dodać funkcje wyświetlania liter na odwrót z małej na dużą z dużej na małą, nie można oczywiście użyć lowercase upcase