«Динамические переменные языка Паскаль. Указатели»

[Anton94.by]

Программа должна содержать полность задания которые выделенные чёрным и красным. Данная программа написанна для задания выделенного чёрным. Нужно дополнить программу заданием выделенным красным. ( Т. е. чтобы программа совмещала и чёрное и красное задание).

Тема: «Динамические переменные языка Паскаль. Указатели»

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

Создание Дополнение Удаление элемента Печать Выход

Задание:
Запись содержит сведения о сдаче экзаменов. Структура записи:
- Номер группы;
- Ф.И.О.;
- Шифр;
- Оценки сдачи трех экзаменов.
Выдать сведения о студентах, успешно сдавших экзамены.

program st;
type
  Tabiturient=Record
    Nomer_gruppy:string[10];
    FIO:string[200];
    Shifr:string[100];
    Ocenka:array[1..3] of integer;
    end;
var
  zap:array of Tabiturient;
  abiturient:Tabiturient;
  kolvo, i:integer;
begin
  writeln('vvedite kolichestvo abiturientov');
  readln(kolvo);
  SetLength(zap, kolvo);
  writeln('vvedite dannye abiturientov');
  for i:=0 to kolvo-1 do
    begin
      writeln('abiturient N* ',i+1);
      write(' nomer gruppy -->  ');
      readln( abiturient. Nomer_gruppy);
      write( ' F.I.O -->  ');
      readln(abiturient.FIO);
      write(' Shifr -->  ');
      readln(abiturient.Shifr);
      write(' Ocenka po matematike -->  ');
      readln(abiturient.ocenka[1]);
      write(' Ocenka po fizike -->  ');
      readln(abiturient.ocenka[2]);
      write(' Ocenka po russkomy -->  ');
      readln(abiturient.ocenka[3]);
      zap[i]:=abiturient;
    end;
  writeln(' uspeshno sdali ekzameny');
  for i:=0 to kolvo-1 do
    begin
      if zap[i].Ocenka[1]>=4 then
      if zap[i].Ocenka[2]>=4 then
      if zap[i].Ocenka[3]>=4 then
        begin
          writeln;
          writeln(' F.I.O. ',zap[i]. FIO);
          writeln(' Nomer gruppy ',zap[i].Nomer_gruppy);
          writeln('Shifr ',zap[i].Shifr);
          writeln;
        end;
    end;
  readln;
end.

[Anton94.by]

Нужно немного изменить программу.

[rubius2008]

Тут не немножко получиться изменить. Во 1-ых структура данных поменяется + нужно написать "Создание ДополнениеУдаление элемента Печать" это совсем другую прогу надо писать из вашей программы разве что

type
  Tabiturient=Record
    Nomer_gruppy:string[10];
    FIO:string[200];
    Shifr:string[100];
    Ocenka:array[1..3] of integer;
    end;

можно взять и все, и то тут надо кое-что подправить

[Stilet]

Во 1-ых структура данных поменяется

Почему? Что там менять?

[Serge_Bliznykov]

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

Почему? Что там менять?

так речь же о динамических структурах идёт. Если не брать во внимание хакерский приём с указателем на массив из одного элемента, то, думаю, что, по хорошему, надо делать связный список. А для этого в структуру нужно добавлять ссылку(ки) на следующий элемент списка...

[Anton94.by]

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

так речь же о динамических структурах идёт. Если не брать во внимание хакерский приём с указателем на массив из одного элемента, то, думаю, что, по хорошему, надо делать связный список. А для этого в структуру нужно добавлять ссылку(ки) на следующий элемент списка...

А вы могли бы написать программу если знаете как её делать?

[Владисла8]

масивов быть вообще не должно