Program mam napisany w TP ale nie mam kompletnie pojecia jak napisac algorytm do tego programu.
Kod: Zaznacz cały
program Znaki;
uses crt;
var
i:integer;
tekst:string;
function DownCase(litera:char):char;
begin
DownCase:=chr(ord(litera)+32);
end;
begin
clrscr;
readln(tekst);
for i:=1 to length(tekst) do
begin
if (ord(tekst[i])>=65) and (ord(tekst[i])<=90) then
write(downcase(tekst[i]))
else write(upcase(tekst[i]));
end;
readln;
end.
Z gory dzieki za pomoc.