задачка, Составление процедуры Опции

[ruslic]

Составить процедуру, результатом работы которой является символ, заданный при обращении к процедуре, если этот символ не является буквой, и соответствующая строчная (малая) буква в противном случае.

[volvo]

Составить процедуру, результатом работы которой

Может все-таки функцию? Процедура результатов не возвращает... Или опять извращаться?

[ruslic]

Вообще-то процедуру, задача из данного списка лаб . Я в этом плохо разбираюсь, мне б хотя бы какое-нибудь решение хоть с функцией, хоть с процедурой без разницы, последняя задача из всех нерешена осталась. Буду признателен любой помощи.

!

нельзя прикреплять doc-файлы

Сообщение отредактировано: мисс_граффити - 25.10.2007 2:03

[ruslic]

Извините конечно, но мне кто-нибудь поможет в решении?

[Malice]

function f(x:char):char;
begin
if x in ['A'..'Z'] then f:=char (ord(x)+32) else f:=x;
end;

А процедурой и для русских букв попробуй сам ;)