Записи (структуры), язык программирования Pascal ABC

[Serge_Bliznykov]

а ещё - те, кто учится на 4 и 5 - это означает, что у них НЕТ двоек и троек!

а динамические массивы можно смоделировать таким "хакерским" приёмом:

program dd;
uses crt;
Const MaxStud = 10000;
Type
    TPoint = record
        one, two, three: byte;
    end;
    TR = array[1..MaxStud] of TPoint;
var
    a: ^TR;
    count, i: integer;
    pr: byte;
begin
    clrscr;
    repeat
      Write ('Введите количество учащихся: ');
      Readln (count);
      if (count<1) or (count>MaxStud) then WriteLn('Неверное число! Число должно быть от 1 до ',MaxStud)
    until (count>=1) and (count<=MaxStud);
    GetMem(a, sizeof(TPoint)*count);
    pr := 0;
    randomize;
    WriteLn('+-------------+---------------+---------------+---------------+');
    WriteLn('| N учащегося | Первая оценка | Вторая оценка | Третья оценка |');
    WriteLn('+-------------+---------------+---------------+---------------+');
    for i := 1 to count do
    begin
        Write ('| ',i:11);
        With a^[i] do
        begin
            one := random(4) + 2;
            two := random(4) + 2;
            three := random(4) + 2;
            Write(' |  ', one:12,' | ',two:13,' | ',three:13, ' | ');
            if (one in [4,5]) and (two in [4,5]) and (three in [4,5]) then
              begin Inc(pr);
                   Write('*'); {отметим в таблице звёздочкой тех, кто учится только на 4 и 5}
              end;
            WriteLn;
        end;
    end;
    WriteLn('+-------------+---------------+---------------+---------------+');
    WriteLn;
    
    Writeln ('Процент учащихся на 4, 5 = ', pr/count*100:4:2);
    {освободим занимаемую память}
    FreeMem(a);
    
    ReadKey;
end.

p.s. cтрого говоря- при таком подходе - когда мы заполняем массив и ОДНОВРЕМЕННО обрабатываем записи,
массив ВООБЩЕ НЕ НУЖЕН! И можно смело обойтись вообще без него. Без всех этих хитрых хакерских приёмов...

[Hacker19_90]

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

Да Вы, батенька, ОПТИМИСТ!

дело в том, что если это программа под TurboPascal/Pascal ABC - то в нём нет и никогда не было динамических массивов!



p.s. да, и на будущее - нумерация динамических массивов (ну там, где они есть) всегда начинается от нуля!

А разве плохо быть оптимистом?
То что в Турбо паскале нет дин. массивов я знаю!
Но кто это сказал, что их нет в ABC.Net? интересно было бы узнать!