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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 08.01.2008, 09:25   #1
Forro
Пользователь
 
Регистрация: 08.01.2008
Сообщений: 15
Печаль Help (Составить запись, содержащую сведения о сдаче группой студентов экзамена)

Составить запись, содержащую сведения о сдаче группой студентов экзамена (фамилия, имя, отчество, оценка). Определить средний балл студентов фамилии которых начинаются на букву ‘А’.
Кто знает как сделать, помогите плиз.
Forro вне форума Ответить с цитированием
Старый 08.01.2008, 09:58   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Ну не совсем понятно, но может типа такого нужно:

Код:
program Project1;
uses  crt;
 type r=record
   f,i,o:string;
   ocenka:byte;
  end;

var a:array[1..10] of r;i:integer;
 srb,cnt:integer;
begin
 //********* FOR ******************
 srb:=0;cnt:=0;
 for i :=1  to 10  do
 begin
  readln(a[i].f);
  readln(a[i].i);
  readln(a[i].o);
  readln(a[i].ocenka);
  if a[i].f[1]='A' then begin inc(cnt); srb:=srb+a[i].ocenka;end;
 end;
 writeln(srb/cnt);
 //******* END FOR ****************{}
end.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 08.01.2008, 12:15   #3
Forro
Пользователь
 
Регистрация: 08.01.2008
Сообщений: 15
Радость

[QUOTE=Stilet;64152]Ну не совсем понятно, но может типа такого нужно:
[QUOTE]
Респект, оно!
Forro вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как сделать так,чтобы в StatusBar-е отображались некоторые сведения из БД???? Alexij БД в Delphi 1 16.06.2008 07:53
Помощь во время экзамена [Pascal] Crazy Macho Фриланс 4 05.01.2008 13:23
Скопировать строку, содержащую активную ячейку. Iren Microsoft Office Excel 14 10.10.2007 12:19
Общие сведения Microsoft Access 2003. Alar Microsoft Office Access 0 30.10.2006 23:22