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

[Карелина Дарья]

Создать массив данных исходя из задания и выполнить требуемые операции. Размерность массива явно не определена. По возможности выполнить динамическое выделение памяти. Данные для обработки должны генерироваться случайным образом.Дана информация об итоговых отметках учащихся по 3-ём предметам. Определить процент учащихся получившие отметки только "хорошо" и "отлично".

[Mandrivnyk]

Могу сделать.
Стучи в аську -- поговорим о сроках и размере оплаты.

[Hacker19_90]

Создать массив данных исходя из задания
Размерность массива явно не определена.

var
    mas: array of YourType;
......................................

SetLength (mas, count);

Данные для обработки должны генерироваться случайным образом

randomize;
cto_to_tam := random (range);

Дана информация об итоговых отметках учащихся по 3-ём предметам

type
    TMyType = record
        first: byte;
        two: byte;
        three: byte;
    end;

Дерзайте!

[Карелина Дарья]

Может лучше в mail agent?

[Hacker19_90]

Стукните! Помогу чем могу!
hacker19_90СОБАКАmail.ru

[Mandrivnyk]

Сообщение от Карелина Дарья

Может лучше в mail agent?

не пользуюсь.
можно на мыло
mandrivnyk (at) gmail (dot) com

[Hacker19_90]

как-то так!

program dd;
uses
    crt;
Type
    TPoint = record
        one, two, three: byte;
    end;
var
    a: array of TPoint;
    count, i: byte;
    pr: byte;
begin
    clrscr;
    Writeln ('Введите количество учащихся:');
    Readln (count);
    SetLength(a, count+1);
    pr := 0;
    randomize;
    for i := 1 to count do
    begin
        Writeln (i, ' учащийся:');
        With a[i] do
        begin
            one := random(5) + 1;
            Writeln ('Первая оценка: ', one);
            two := random(5) + 1;
            Writeln ('Вторая оценка: ', two);
            three := random(5) + 1;
            Writeln ('Третья оценка: ', three);
            if (one in [4,5]) or (two in [4,5]) or (three in [4,5]) then Inc(pr);
        end;
    end;
    Writeln ('Процент учащихся на 4, 5 = ', pr/count*100:4:2);
    ReadKey;
end.

как-то так!

[Карелина Дарья]

А размерность массива какая? a: array of TPoint;

[Hacker19_90]

А размерность массива какая? a: array of TPoint;

ОО ВЫ ТУТ!
не какая! Он динамический
потом станет размером в count элементов

[Serge_Bliznykov]

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

ОО ВЫ ТУТ!
не какая! Он динамический
потом станет размером в count элементов

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

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



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