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

Ruzana · 18.04.2012, 15:58

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

Vladimir_S · 18.04.2012, 20:30

Цитата:

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

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

Вот. Только уж извините, но с кириллицей возиться не хочу, так что если надо, исправьте сами. В программе предполагается, что фамилии студентов вводятся латинскими буквами и искомые начальные - "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 · 19.12.2012, 20:17

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

Vladimir_S · 19.12.2012, 20:48

Цитата:

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

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

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

Fanky · 19.12.2012, 20:51

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

Vladimir_S · 19.12.2012, 20:54

Цитата:

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

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

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

Vladimir_S · 19.12.2012, 21:03

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

Код:

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 · 19.12.2012, 21:19

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

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

18.04.2012, 15:58
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Не обделяйте вниманием эти ссылки - тут наверняка много полезного Извлечь информацию с погнутого ЖД Снять информацию с винчестера

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

19.12.2012, 20:51	#5 (permalink)
Fanky Новичок Регистрация: 19.12.2012 Сообщений: 3 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	С const я разобрался, на всяких случай написал.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

19.12.2012, 21:19	#8 (permalink)
Fanky Новичок Регистрация: 19.12.2012 Сообщений: 3 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Большое спасибо.