Записи

[Юля 19]

Всем большое спасибо , буду сидеть разбераться что к чему

[Юля 19]

блин ,что-то я не разобралась вообще , если несложно можно полную версию программы ? вообще тяжко

[Naposaram]

Сообщение от Юля 19

блин ,что-то я не разобралась вообще , если несложно можно полную версию программы ? вообще тяжко

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

program lab;
// типа объявляем запись и в ходящие в нее переменные
type rez = record
        fio: string [20];
        gru: integer;
        lab1,lab2,lab3,lab4,lab5,lab6: integer;

end;
var rezult: rez;
    x,i: longint;
begin
    writeln ('vvedite kol-vo studentov');
    readln (x); //вводим количество студентов
    for i:= 1 to x do begin // тут заполняем запись
     writeln ('familiya');
     writeln ('gruppa');
     writeln ('rabota sdana - 1, esli net -0');
     writeln ('lab.1'); readln (rezult.lab1);
     writeln ('lab.2'); readln (rezult.lab2);
     writeln ('lab.3'); readln (rezult.lab3);
     writeln ('lab.4'); readln (rezult.lab4);
     writeln ('lab.5'); readln (rezult.lab5);
     writeln ('lab.6'); readln (rezult.lab6);
    end;

// -->выводим для проверки записалось или нет, это так для себя
    for i:= 1 to x do begin
     writeln (rezult.fio);
     writeln (rezult.gru);
     writeln (rezult.lab1);
     writeln (rezult.lab2);
     writeln (rezult.lab3);
     writeln (rezult.lab4);
     writeln (rezult.lab5);
     writeln (rezult.lab6);
    end;
//<<---
    readln; // что бы не вылетило
end.