Вопросы от Ромарио! Опции

[Romario]

Начинаю серьёзно учить Паскаль и вот решил создать и пихать сюда все неясности, если вы конечно не против
Первые вопросы:

• Как в Паскале менять цвета?
  
• Как  --//-- создать таблицу и что-нить в ней написать.
  
• И может кто-нить меня раздуплит в массивах? ;D

[Dark]

:o
нУ ВОТ ТЕБЕ ЗАМЕЧАНИЯ НА ТЕМУ 1.PAS, ИЗВИНИ ЕСЛИ БУДУТ СЛИШКОМ СУРОВЫМИ...

1.

Код

readln(a[i].surname);
a[i].surname[j]:=UpCase(a[i].surname[j]);

Здесь ты, как я понял, хочешь все имя перевести в верхний регистр.
Но у тебя ничего не выйдет - у тебя j равна 0, а чтобы перешла в верхний регистр, нужно использовать еще один цикл:

Код

readln(a[i].surname);
 for j:=1 to ord(a[i].surname[0]) do
   a[i].surname[j]:=UpCase(a[i].surname[j]);

И все тип топ. И еще, если введено русское имя, то процедура Upcase с ним работать не будет...

2. проверку

Код

if not (a[i].sex='Ж') then
 if not (a[i].sex='M') then
   if not (a[i].sex='м') then
     if not (a[i].sex='ж') then
       begin
         {...}
       end;

можно было заменить на:

Код

if not (a[i].sex in ['Ж', 'ж','М','м']) then
 begin
   {...}
 end;

И в идеале: a[i].sex тоже можно обработать Upcase.
С наилучшими пожеланиями! ;D