Question

W tym programie chodzi aby zamienic duza litere na mala i na odwrot przy wykozystaniu kodu ASCII.Potrzebuje aby ta funkcje zrobic zeby dzialala oraz zeby byla "idioto odporna".dam naj

uses crt;

function liczba(a:char;b:byte):byte;

begin

readln(a);

b:=ord(a);

if b=>65>90then writeln(chr(b+32))

else if b=<97<122 then writeln(chr(b-32));

readln;

end;

var

a:char;

b:byte;

begin

clrscr;

writeln('podaj litere');

writeln(liczba(a,b));

readln;

end.

Answer 1

program ChgCaseProg;

 

  function ChgCase(c : Char) : Char;
  begin
    if c in ['a'..'z','A'..'Z'] then

      {jeśli to jest litera, to zamień bit odpowiadający za wielkość znaku}
      ChgCase := Chr(Ord(c) xor 32)
    else

      {jeśli to nie jest litera to zwróć bez zmian}
      ChgCase := c;
  end;

 

var a : Char;
begin

  while not eof do
    begin
      Read(a);
      Write(ChgCase(a));
    end;

end.

Answer 2

Program litera;

Uses CRT;

Function zmien(lit:char):char;
 Begin
  if (lit<='Z') then lit:=chr((ord(lit)+32))
                else lit:=chr((ord(lit)-32));
 End;

Var lit:char;

Begin
 ClrScr;
 GotoXY(3,3);
 Write('Podaj litere: ');
 Repeat
  ReadLn(lit);
  IF (lit<'A') or ((lit>'Z') and (lit<'a')) or (lit>'z') Then
   Begin
    GotoXY(17,3);
    ClrEol;
   End;
 Until ((lit>='A') and (lit<='Z')) or ((lit<='z') and (lit>='a'));
 GotoXY(3,5);
 Write('Zamieniona litera: ',zmien(lit));
 GotoXY(3,10);
 WriteLn('Nacisnij dowolny klawisz, aby opuscic program!');
 Repeat Until Keypressed;
End.