Показать сообщение отдельно
  #3  
Старый 10.01.2011, 05:25
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,100
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Про готовый код тебе сказали. А идеи вот они:
1а. Перевод числа в строку и получение длинны полученного значения - собственно это и есть кол-во цифр.
1б. Написать функцию вида:
Код:
function GetNumberLength(N : Integer) : Integer;
begin
  Result := 0;
  While N > 0 Do
    Begin
      N := N Div 10;
      Inc(Result);
    End;
end;
Дальше, как и в первом случае.

2. Все зависит от того, как эта информация хранится.
Если хранится в виде записи, в которой есть поля имя, пол и соотв. оценка, то это цикл с соотв. условием:
Код:
Type
  TStudent = record
    Name : String;
    Sex : Char;
    mInformatica : Byte;
    ...
  end;

var
  R : Array [1..100] of TStudent;


if (R[i].Sex = 'F') And { F - Female (жениский) }
   (R[i].mInformatika = 5) Then WriteLn(R[i].Name);

3. Тут сложнее. Все зависит от того, надо ли выводить повторы. Если надо, то придется делать через некоторый накопительный массив. Если не надо, то можно работать на прямую.
Суть кода - в счетчиках. Надо идти по строке и считать кол-во присутствующих букв. Далее анализируем значения счетчиков и принимаем решение - выводить или нет текущую букву.
Ответить с цитированием