VPF::[Pascal]комбинаторные типі - Форум программистов

kashmir18

Дата 29.11.2009, 23:33 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 89
Регистрация: 16.2.2008

Репутация: нет
Всего: -5

вывести анкетные данные студентов, которые получили за весь период учебы одну оценку- 4,а остальные оценки - 5. Для каждого студента указать дату рождения, год вступления в высшее учебное заведение, курс, группу, оценки за каждую сессию.

мне нужно доделать а то чето там неправильно с балами немоного переделать =(

Код


program z6;
type
    gur=record
        fio:string;
        gr:string[8];
        gp:string[4];
        kurs:integer;
        grup:string;
        ocen:array [1..6,1..15]of integer;
        end;
var
gruppa:array[1..30] of gur;
count,z,kol,i,j:integer;
 
 
procedure input(var i:integer);
var
a,j,p:integer;
begin
Writeln('Vvedite FIO');
readln(gruppa[i].fio);
Writeln('Vvedite god rogdenija');
readln(gruppa[i].gr);
Writeln('Vvedite god postupleniya');
readln(gruppa[i].gr);
Writeln('Vvedite kurs');
readln(gruppa[i].kurs);
Writeln('Vvedite gruppu');
readln(gruppa[i].grup);
writeln('Za srolko kursov vvodite ocenki');
readln(j);
for a:=1 to j do
    begin
    Writeln('Kurs ',a);
           for p:=1 to 15 do
               begin
               writeln('Predmet ',p);
               write ('ocenka ');
               readln(gruppa[i].ocen[a,p]);
               end;
    end;
end;
procedure print(var i:integer);
begin
{Vyvod najdennogo na ekran}
writeln(gruppa[i].fio);
end;
begin
writeln('vvedite kol-vo studentov');
readln(kol);
for z:=1 to kol do
    input(z);
Writeln('Najdenye studenty');
for z:=1 to kol do
    begin
    count:=0;
    for i:=1 to 6 do
        for j:=1 to 15 do
            if (gruppa[z].ocen[i,j]<=4) and (gruppa[z].ocen[i,j]<>0) then count:=count+1;
    if count=1 then
       print(z);
    end
end.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »