Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 15.01.2013, 18:06   #1 (permalink)
Юля_86
Новичок
 
Регистрация: 15.01.2013
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите решить задачу

Помогите пожалуйста решить задачу.Очень срочно нужно...
Миниатюры
fgiz1wpyphg.jpg  
Юля_86 вне форума   Ответить с цитированием

Старый 15.01.2013, 18:06
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Данная тема уже обсуждалась ранее и возможно решена

Помогите решить задачу
Помогите решить задачу
Помогите решить задачу
Помогите решить задачу
Помогите решить задачу)
Помогите решить задачу

Старый 15.01.2013, 18:07   #2 (permalink)
Юля_86
Новичок
 
Регистрация: 15.01.2013
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

нужно решить 1 номер!
Юля_86 вне форума   Ответить с цитированием
Старый 15.01.2013, 18:32   #3 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
По умолчанию

Было бы неплохо, если бы вы еще указали язык программирования
AlexZir вне форума   Ответить с цитированием
Старый 15.01.2013, 18:53   #4 (permalink)
Юля_86
Новичок
 
Регистрация: 15.01.2013
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Паскаль...
Юля_86 вне форума   Ответить с цитированием
Старый 16.01.2013, 10:50   #5 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Юля_86 Посмотреть сообщение
нужно решить 1 номер!
Нужно, так нужно, что уж тут поделаешь...

Код:
Type
 School=Record
         Fam:String[10];
         Class:Byte;
         Mark:Byte;
        End;
Const
 Pup:Array[1..10] of School=((Fam:'Bull';  Class:10; Mark:5),
                             (Fam:'Virt';  Class: 9; Mark:4),
                             (Fam:'Geits'; Class:11; Mark:3),
                             (Fam:'Knut';  Class:11; Mark:5),
                             (Fam:'Kitty'; Class: 9; Mark:2),
                             (Fam:'Barby'; Class:10; Mark:4),
                             (Fam:'Blin';  Class:10; Mark:3),
                             (Fam:'Axis';  Class: 9; Mark:5),
                             (Fam:'Trus';  Class:10; Mark:4),
                             (Fam:'John';  Class:11; Mark:2));
Var
 i,j,Max:Byte;
 n,Aver:Array[1..3] of Byte;

Begin
 For i:=1 to 3 do
  begin
   n[i]:=0;
   Aver[i]:=0;
  end;
 Max:=0;
 For i:=1 to 10 do
  With Pup[i] do
   If Mark>Max then Max:=Mark;
 For i:=1 to 10 do
  If Pup[i].Class=9 then
   begin
    Inc(n[1]);
    Inc(Aver[1],Pup[i].Mark);
   end
  else
  If Pup[i].Class=10 then
   begin
    Inc(n[2]);
    Inc(Aver[2],Pup[i].Mark);
   end
  else
  begin
   Inc(n[3]);
   Inc(Aver[3],Pup[i].Mark);
  end;
 Write('Averaged:');
 For i:=1 to 3 do
  begin
   Aver[i]:=Round(Aver[i]/n[i]);
   write('   ',i+8,' - ',Aver[i]);
  end;
 Writeln;
 Writeln;
 For j:=1 to 3 do
  begin
   For i:=1 to 10 do
    With Pup[i] do
     If Class=j+8 then Writeln(Class:2,Fam:10,Mark:5);
   Writeln;
  end;
 Writeln('Best:');
 For i:=1 to 10 do
  With Pup[i] do
   If Mark=Max then Writeln(Fam:10,Class:5,Mark:5);
 Readln;
End.
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

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

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 13:19.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.