Программа вводит информацию о 10 студентах

[Ruzana]

Программа вводит информацию о 10 студентах

:tehnari_ru_837::tehnari_ru_837: ПОМОГИТЕ ПОЖАЛУЙСТА РЕШИТЬ ЗАДАЧУ НА ПАСКАЛЕ.
Программа вводит информацию о 10 студентах: фамилию,день,месяц и год рождения,год поступления в институт, оценки двух последних сессий.Результатом работы программы является-(у каждого варианта свой результат).Распечатать оценки в последнюю сессию студентов,фамилии которых начинаются с букв В и Г. :tehnari_ru_837::tehnari_ru_837:

 

[Vladimir_S]

:tehnari_ru_837::tehnari_ru_837: ПОМОГИТЕ ПОЖАЛУЙСТА РЕШИТЬ ЗАДАЧУ НА ПАСКАЛЕ.
Программа вводит информацию о 10 студентах: фамилию,день,месяц и год рождения,год поступления в институт, оценки двух последних сессий.Результатом работы программы является-(у каждого варианта свой результат).Распечатать оценки в последнюю сессию студентов,фамилии которых начинаются с букв В и Г. :tehnari_ru_837::tehnari_ru_837:

Вот. Только уж извините, но с кириллицей возиться не хочу, так что если надо, исправьте сами. В программе предполагается, что фамилии студентов вводятся латинскими буквами и искомые начальные - "V" и "G".

Const
 N=10;
Type
 Stud=Record
       Surname:String;
       Birth:String[10];
       Marks:Array[1..2,1..4] of Byte;
      End;
Var
 Students:Array[1..N] of Stud;
 i,j,k,m:Byte;
 Subject:Array[1..4] of String;

Begin
 Subject[1]:='Alchemy';
 Subject[2]:='Demonology';
 Subject[3]:='Sexology';
 Subject[4]:='Astrology';
 For i:=1 to N do
  With Students[i] do
   begin
    Writeln('Student N',i:2);
    Write('Surname (e.g. Ivanov): ');
    Readln(Surname);
    Write('Birthday dd.mm.yy (e.g. 04.08.1731): ');
    Readln(Birth);
    For j:=1 to 2 do
     begin
      Write('Marks in ');
      if j=1 then write('previous ') else write('last ');
      writeln('session:');
      for k:=1 to 4 do
       begin
        Write(Subject[k]+': ');
        Readln(Marks[j,k]);
       end;
      writeln;
     end;
   end;
 Writeln(' N Surname         Birthday   Alch  Dem  Sex Astr Alch  Dem  Sex Astr');
 For i:=1 to N do
  With Students[i] do
   begin
    Write(i:2,' ',Surname);
    For m:=Length(Surname)+1 to 15 do write(' ');
    Write(Birth);
    For j:=1 to 2 do
     For k:=1 to 4 do
      Write(Marks[j,k]:5);
    Writeln;
   end;
 Writeln;
 Writeln('Last session marks of students having the surnames starting with "V" and "G":');
 For i:=1 to N do
  With Students[i] do
   If (Surname[1]='V') or (Surname[1]='G') then
    begin
     Write(Surname);
     For m:=Length(Surname)+1 to 15 do write(' ');
     For k:=1 to 4 do
      Write(Marks[2,k]:5);
    Writeln;
   end;
 Readln
End.

 

[Fanky]

Здравствуйте, тоже требуется помощь. Задание: Вывести оценки в последнюю сессию студентов, фамилии которых начинаются с букв V и G.
Попытался изменить программу указанную выше, но не получилось. Мне нужно, вводить информацию только последней сессии ( а эта прога просит двух сессий), и вывод мне нужен только людей на V и G ( а программа выводит еще и все, что я вводил про студентов в виде таблицы ), еще нужно вводить не более 4 студентов ( прога просит 10).
Помогите Пожалуйста.

 

[Vladimir_S]

еще нужно вводить не более 4 студентов ( прога просит 10)

Вот это особенно умилительно. А изменить значение константы в самой первой строке с 10 на 4 - без няньки никак? Ладно, посмотрю на днях. Когда (если) время будет.

 

[Fanky]

С const я разобрался, на всяких случай написал.

 

[Vladimir_S]

С const я разобрался, на всяких случай написал.

Ладно, там и всё остальное не сложнее. Попробую сейчас поправить.

 

[Vladimir_S]

Вот, получите. Делов-то на три минуты. Могли бы и сами:

Const
 N=4;
Type
 Stud=Record
       Surname:String;
       Birth:String[10];
       Marks:Array[1..4] of Byte;
      End;
Var
 Students:Array[1..N] of Stud;
 i,j,k,m:Byte;
 Subject:Array[1..4] of String;

Begin
 Subject[1]:='Alchemy';
 Subject[2]:='Demonology';
 Subject[3]:='Sexology';
 Subject[4]:='Astrology';
 For i:=1 to N do
  With Students[i] do
   begin
    Writeln('Student N',i:2);
    Write('Surname (e.g. Ivanov): ');
    Readln(Surname);
    Write('Birthday dd.mm.yy (e.g. 04.08.1731): ');
    Readln(Birth);
    Write('Mark in ');
    for k:=1 to 4 do
     begin
      Write(Subject[k]+': ');
      Readln(Marks[k]);
     end;
      writeln;
   end;
 Writeln('Marks of students having the surnames starting with "V" and "G":');
 For i:=1 to N do
  With Students[i] do
   If (Surname[1]='V') or (Surname[1]='G') then
    begin
     Write(Surname);
     For m:=Length(Surname)+1 to 15 do write(' ');
     For k:=1 to 4 do
      Write(Marks[k]:5);
    Writeln;
   end;
 Readln
End.

 

[Fanky]

Большое спасибо.