задача на записи

[schibeki]

Известны данные о росте 15 юношей класса, упорядоченные по убыванию. Нет ни одной пары учеников одинакового роста. В начале

учебного года в класс поступил новый ученик.Известно, что его рост не совпадает с ростом ни одного из учеников класса, превышает

рост самого низкого ученика и меньше роста самого высокого. Определить фамилию ученика,после которого следует записать фамилию

'новенького', чтобы упорядоченность не нарушилась. Задача на записи. Прошу помощи,ибо вообще практически не знаю как решать. Делфи

[PathTheir]

Проверяй

program ages;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  Pupil = record
    age: Integer;
    secondName: string[45];
  end;

var
  i : Integer;
  pupils: array [1..15] of Pupil;
  newPupil : Pupil;
begin
  for i := 1 to 15 do begin
    ReadLn(pupils[i].secondName);
    ReadLn(pupils[i].age);
  end;

  ReadLn(newPupil.secondName);
  ReadLn(newPupil.age);

  i := 1;
  while pupils[i].age > newPupil.age do
      Inc(i);

  WriteLn(pupils[i - 1].secondName)
end.

http://ideone.com/lUFaaO

[schibeki]

Блин,забыл,на делфи нужно

попробую переделать под делфи

Подробнее можете расписать все,а то не понимаю,что и куда вводить

[Vanta11a]

Приведенный код в Delphi замечательно скомпилируется.
Если ты не можешь заменить read(write)ln`ы на чтение из компонентов Delphi - тебе нечего делать в программировании.

[schibeki]

Сообщение от Vanta11a

Приведенный код в Delphi замечательно скомпилируется.
Если ты не можешь заменить read(write)ln`ы на чтение из компонентов Delphi - тебе нечего делать в программировании.

заменить без проблем могу. я так ведь и делаю,нахожу куски поскалевского кода,адаптирую под делфт,что-то подредактирую и все. в данном случае я прошу на этот код добавить writeln('Введите фамилию ученика')
и т.д.

[Vanta11a]

Т.е. ты не знаешь, куда надо добавить эту строчку? Если да - иди во фриланс.

[schibeki]

при заполнении всего компилятор рагуятся,что происходит выход за границу. Хотя пробовал резервировать одну я чейку памяти для нового ученика,но не работает все равно.

Сообщение от Vanta11a

Т.е. ты не знаешь, куда надо добавить эту строчку? Если да - иди во фриланс.

строчку добавить в консоль,я знаю

Сообщение от Vanta11a

Т.е. ты не знаешь, куда надо добавить эту строчку? Если да - иди во фриланс.

в консоль надо

[Stilet]

Давай лучше ты покажешь куда пробуешь добавить.
Иначе тебя непонятно.

[Vanta11a]

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

в консоль надо

И в чем проблема? Воткни её в нужное место приведенного исходного кода. Или ты надеешься, что даже эту мелочь за тебя кто-то сделает, чтобы можно было бездумно копипастить код?

[schibeki]

Сообщение от Vanta11a

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

И в чем проблема? Воткни её в нужное место приведенного исходного кода. Или ты надеешься, что даже эту мелочь за тебя кто-то сделает, чтобы можно было бездумно копипастить код?

код проверял в паскале. А твой код можно как в консоль вставить,так и непосредственно на форму. код для меня поставить не беда. а за границы почему-то выходит. вот твой,немного подредачил

program ages;
 
type
  Pupil = record
    age: Integer;
    secondName: string[45];
  end;
 
var
  i : Integer;
  pupils: array [1..15] of Pupil;
  newPupil : Pupil;
begin
  for i := 1 to 15 do begin
  Writeln('Имя  ',i,'-го ученика:');
    ReadLn(pupils[i].secondName);
      Writeln('Рост ',i,'-го ученика:');
    ReadLn(pupils[i].age);
  end;
 Writeln('Имя новенького:');
  ReadLn(newPupil.secondName);
   Writeln('Рост новенького:');
  ReadLn(newPupil.age);
 
  i := 1;
  while pupils[i].age > newPupil.age do
      Inc(i);
 
  WriteLn(pupils[i - 1].secondName)
end.

на паскале проверял