Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.12.2015, 07:00   #1
Grecu Alexandru
 
Регистрация: 11.12.2015
Сообщений: 8
По умолчанию record

Разработать программу, которая считывает данные с клавиатуры следующую структуру:список студентов, имя, фамилия, без уважительной причины отсутствие, отсутствие из-за, Список студентов, которые не имеют достаточных нотах у двух объектов.

помогите исправить
Код:
Program P4;
 type Студент=record
           nr:integer;
           nm:string;
           pr:string;
           n:array [1..6] of integer;
          end;
 СписокСтудентов=array [1..40] of Студент;
 var e:Студент;le:СписокСтудентов;
 i,j,n:integer;c:0..1;
Begin
 write('n ');readln(n);
 writeln('данные студентов:');
 for i:=1 to n do
 begin
  readln(le[i].nr,le[i].nm,le[i].pr);
  for j:=1 to 6 do read(le[i].n[j]);
 end;
 writeln('Список Студентов у которох ноты меньши 5:');
 for i:=1 to n do
 begin
  e:=le[i]; c:=1;
  for j:=1 to 6 do
  if e.n[j]<>5 then c:=0;
  begin
   write(e.nr,' ',e.nm,' ',e.pr);
   for j:=1 to 6 do write(' ',e.n[j]);
   writeln;
  end;
 end;
 readln;
End.
Grecu Alexandru вне форума Ответить с цитированием
Старый 14.12.2015, 12:49   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

А что в проге не нравится?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Использование record в record Anton911 Общие вопросы Delphi 7 03.05.2012 08:49
Record SasukeUciha Паскаль, Turbo Pascal, PascalABC.NET 0 16.10.2011 12:01
В чём различие записей Record от Packed Record? Terran Общие вопросы Delphi 7 08.06.2010 17:14
Record / Packed Record Alex Cones Общие вопросы Delphi 7 11.11.2009 10:43
my Record subsonic Общие вопросы Delphi 5 09.02.2009 15:20