Записи

[Юля 19]

Здравствуйте всем! Помоге несовсем ,а хотя совсем неразобравшейся с заданием.Зарание спасибо


Запись содержит сведения о сдаче лабораторных работ. Структура записи:
 Ф.И.О. студента;
 группа;
 Лаб. 1;
 Лаб. 2;
 Лаб. 3;
 Лаб. 4;
 Лаб. 5;
 Лаб. 6.
Если работа сдана, то в графу данной лабораторной работы заносится "1", нет - "0". Выдать список студентов, сдавших определенное количество работ (по запросу пользователя).

[Poma][a]

Юль, а ты сама что-нить сделала? или только мы должны для тебя за тебя пахать?

[Stilet]

Подскажу:
Итак, сама структура может быть объявлена так:

st=record 
 FIO:String;
 group;
 Labs:Array[1..6] of byte;
end;

Далее функция заполнения переменной такого типа:

procedure letta(var s:st); var i:integer;
begin
 writeln;write('ФИО',#9);readln(s.fio);
 writeln;write('Группа',#9);readln(s.group);
 writeln;writeln('Оценки за');
 for i:=1 to 6 do begin writeln;write('Лаба № ',i);readln(s.labs[i]);end;
end;

Функция вывода может иметь такой же вид, но без readln;
В главной программе обьяви переменку std:array[1..10] of st;
И заполняй ее в цикле

for i:=1 to 10 do letta(std[i]);

Функция проверки условия так:

function getta(s:st;n:byte):boolean; var i:boolean;
begin
 for i:=1 to 6 do begin 
   if labs[i]=1 then dec(n);
   if n<=0 then begin getta:=true;exit;end;
 end;
 getta:=false;
end;

Ну и в цикле вывода:

for i:=1 to 10 do if getta(std[i],5) then студент такой-то сдал 5 работ и более

Яснышко?

[Юля 19]

как я поняла ,то что ты написал надо просто поставить на свои места или что-то добовлять надо?

[Stilet]

И так и так. Я к примеру не описывал функцию вывода, потому что она может быть похожа на функцию ввода, и само тело главного блока.

[Юля 19]

ну вывод ладно , как нить соображу ,а что там с главным блокам?

[Stilet]

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

[Юля 19]

ага т.е ты проверку написал? эта походу самое основное что надо?

[Базиля]

Юля 19
Речь идет о головной части программы.
Т.е. это та часть из которой собственно и происходит вызов всех функций и процедур. Вам уже вся головная часть расписана, осталось только все правильно оформить. Ну и также разобраться с объявлением переменных локальных и глобальных.

[Stilet]

т.е ты проверку написал?

Да. function getta. Ну и ее вызов в цикле