ребята помогите пожалуйста нужно на завтра

[Sveta-psv]

10 Описать тип записи - строка зачетной книги ( зачетная сторона ) . Сформируйте массив зачетов , которые вы сдали . Разработайте программу, определяющую дни ​​когда вы сдали по два и более зачетов

[Rififi]

Sveta-psv

10 Описать тип записи - строка зачетной книги ( зачетная сторона ) . Сформируйте массив зачетов , которые вы сдали . Разработайте программу, определяющую дни ​​когда вы сдали по два и более зачетов

из того, что я вижу, как-то так

#include <string>
#include <iostream>

struct Zachet
{
     std::string Predmet;
     unsigned Otsenka;
};

int main()
{
    // Сформируйте массив зачетов , которые вы сдали
    Zachet sessiya[0] = {};

    // программу, определяющую дни ​​когда вы сдали по два и более зачетов 
    std::cout << "У меня ничего не сдано, насяльника!" << std::endl;
    std::cout << "Меня надо отчислять!" << std::endl;

    return 0;
}

[sanji2010]

Могу помочь, но не бесплатно, ибо сроки очень малы, если интересует - пиши в скайп sanji-dim

[WorldMaster]

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

Sveta-psv

10 Описать тип записи - строка зачетной книги ( зачетная сторона ) . Сформируйте массив зачетов , которые вы сдали . Разработайте программу, определяющую дни ​​когда вы сдали по два и более зачетов

из того, что я вижу, как-то так

#include <string>
#include <iostream>

struct Zachet
{
     std::string Predmet;
     unsigned Otsenka;
};

int main()
{
    // Сформируйте массив зачетов , которые вы сдали
    Zachet sessiya[0] = {};

    // программу, определяющую дни ​​когда вы сдали по два и более зачетов 
    std::cout << "У меня ничего не сдано, насяльника!" << std::endl;
    std::cout << "Меня надо отчислять!" << std::endl;

    return 0;
}

Так вроде ж на паскале просят.

[sanji2010]

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

Так вроде ж на паскале просят.

Так это и не код, который просит пользователь =)

[ViktorR]

Описать тип записи - строка зачетной книги ( зачетная сторона ) . Сформируйте массив зачетов , которые вы сдали . Разработайте программу, определяющую дни ​​когда вы сдали по два и более зачетов

Строка зачетной книжки (зачетная сторона), если память не отшибло, состоит из полей: Предмет, по которому зачет, Дата, когда был зачет, ФИО преподавателя, подпись и оценка (зачтено/отл/хор/удовл/...) - это детали.
Надо создать свой тип данных - запись.
Например так:

Type TZachet = record
   Predmet : string[20];
   DataZacheta : string[8]; {YYYYMMDD}
   FIO : string[15];
   Ball : string[10];
end;

Теперь можно в программе описать и массив зачетов. например так:

var MZachet : array[1..10] of TZachet;

Для поиска зачетов, которые сданы в один день можно использовать операцию сравнения вида:

if (MZachet[i].DataZacheta = MZachet[j].DataZacheta) then
 ...

Далее можно ...

Как-то так, ...

[WorldMaster]

Вот готовый код:

uses
  SysUtils;
 type
   Zachet = record
     Disciple : string[30];
     FIO  : string[20];
     Ozenka: Integer;
     Date: TDateTime;
   end;

 type
   pair = record
     date: TDateTime;
     count: Integer;
   end;


   var zch: array [0..9] of Zachet;
       pairs: array [0..100] of pair;
       pairscount : integer;
       idx: Integer;

   function CreateNew(p_disc,p_fio: string; p_oc: integer; p_date: TDateTime): Zachet;
   begin
   with Result do
    begin
    Disciple := p_disc;
    FIO:= p_fio;
    Ozenka:= p_oc;
    Date  := p_date;
    end;
  end;

  function Check(item : Zachet; var PairList: array of pair;var len: Integer): Integer;
  var index: integer;
  begin
   for index := 0 to len do
   begin
     if PairList[index].date = item.Date then
     begin
        PairList[index].count:=PairList[index].count+1;
        Exit;
     end;
   end;

   PairList[len].date := item.Date;
   PairList[len].count := 1;
   len:=len+1;
   Result := len;
  end;


begin
pairscount:=0;

zch[0] := CreateNew('Matematika','Ivanov A.P',3,StrToDate('12'+DateSeparator+'06'+DateSeparator+'2002'));
zch[1] := CreateNew('Fizika','Ivanov A.P',3,StrToDate('12'+DateSeparator+'06'+DateSeparator+'2002'));
zch[2] := CreateNew('Istoria','Ivanov A.P',3,StrToDate('12'+DateSeparator+'06'+DateSeparator+'2002'));
zch[3] := CreateNew('In.yaz.','Ivanov A.P',3,StrToDate('13'+DateSeparator+'06'+DateSeparator+'2002'));
zch[4] := CreateNew('Filosofia','Ivanov A.P',3,StrToDate('14'+DateSeparator+'06'+DateSeparator+'2002'));
zch[5] := CreateNew('Mat.analiz','Ivanov A.P',3,StrToDate('14'+DateSeparator+'06'+DateSeparator+'2002'));
zch[6] := CreateNew('Diskretka','Ivanov A.P',3,StrToDate('17'+DateSeparator+'06'+DateSeparator+'2002'));
zch[7] := CreateNew('Progr. YaVU','Ivanov A.P',3,StrToDate('18'+DateSeparator+'06'+DateSeparator+'2002'));
zch[8] := CreateNew('Psihologia','Ivanov A.P',3,StrToDate('19'+DateSeparator+'06'+DateSeparator+'2002'));
zch[9] := CreateNew('Other...','Ivanov A.P',3,StrToDate('20'+DateSeparator+'06'+DateSeparator+'2002'));

for idx:=0 to 9 do
begin
 Check(zch[idx],pairs,pairscount);
end;

for idx:=0 to pairscount-1 do
begin
if pairs[idx].count>=2 then

 Writeln(DateTimeToStr(pairs[idx].date)+ '   '+ IntToStr(pairs[idx].count));
end;
 Readln;
end.