Zadatak glasi ovako:
Napisati proceduru koja mala slova niske X zamenjuje velikim. Ostali znakovi u nisci ostaju nepromenjeni.
Resenje bi trebalo da bude u pascalu.
var
x : string;
i : integer;
begin
write('Unesi tu nisku: ');
readln(x);
for i := 1 to length(x) do
x[i] := upcase(x[i]);
writeln('Evo velikim slovima: ',x);
end.
Ako mu bas treba bez upcase funkcije, onda moze lako da koristi proveravanje ASCII koda znaka (funkcije ord i chr). Treba samo da se proveri da li slovo upada u interval a..z, pa ako upada, da mu oduzme 32, jer a..z idu od 97..122, a A..Z od 65..90.
Verujem da ste vi matori znali ovo i pre, napisao sam zbog decka :)