массивы записей

[for_tuna]

Соревнования по прыжкам с трамплина. Список содержит фамилии, и результаты по трем попыткам. Вычислить суммарный результат и самый дальний прыжок.

[Grag]

Вот так можно описать тип и массив участников соревнований.

Type
  Person=record
               family:string[20];
               P1,P2,P3:real
             end;
Const
   SpMax=20;
Var
  SportsMan:array[0..SpMax] of Person;

P1,P2,P3 - поля записи, содержащие результаты трех попыток...
Теперь можешь оперировать этими полями записей массива как заблагорассудится...

[for_tuna]

как раз таки эту часть я и сделала...а как дальше посчитать эти результатом чтото не доходит(

[Филантроп]

Вычислить суммарный результат

добавить еще поле Sum в запись и складывать туда p1+p2+p3

самый дальний прыжок.

находишь самый дальний прыжок из всех p1,p2,p3
и запоминаешь индекс спортсмена выводишь его данные

[Grag]

Сумму можно вычислять и отдельной переменной...

for i:=0 to SpMax do
  begin
    with SportsMan[i] do
      SumRes:=P1+P2+P3;
      writeln(family,'Суммарный результат = ',SumRes:5:2)
  end

[Z1daN]

Задайте массив из 10 элементов с помощью датчика случайных чисел. Поменяйте местами наибольший положительный элемент с наибольшим отрицательным. Выведете на экран исходный и полученный массивы.

[mifomen]

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

Соревнования по прыжкам с трамплина. Список содержит фамилии, и результаты по трем попыткам. Вычислить суммарный результат и самый дальний прыжок.

Самый дальний это понятно, 1 из всех.

А суммарный для каждого или только то, что на прыгали они все вообще ?

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

Задайте массив из 10 элементов с помощью датчика случайных чисел. Поменяйте местами наибольший положительный элемент с наибольшим отрицательным. Выведете на экран исходный и полученный массивы.

PHP код:

program use;
uses crt;
var a:array [1..10] of integer;
    t,km,kn,i,max,min:integer;
begin
 clrscr; randomize;
 for i:=1 to 10 do begin a[i]:=random(100)-50; write(a[i],' '); end;
 max:=a[1]; min:=a[1];
  for i:=2 to 10 do
   begin
    if max<a[i] then begin max:=a[i]; km:=i; end;
    if min>a[i] then begin max:=a[i]; kn:=i; end;
   end;
  writeln;writeln;
  writeln('MAX= ',max,' S poziciya ',km,' MIN= ',min,'s poziciya ',kn); writeln;

  t:=a[kn]; a[kn]:=a[km]; a[km]:=t;
  for i:=1 to 10 do
  write(a[i],' ');

 readkey
end. 


Самоё лёгкое.

[for_tuna]

суммарный результат для каждого спортсмена))

[for_tuna]

помогите пожалуйста с этой задачкой))))вобще срочно нужно=))))вы же умные)))))))))

[mifomen]

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

Соревнования по прыжкам с трамплина. Список содержит фамилии, и результаты по трем попыткам. Вычислить суммарный результат и самый дальний прыжок.

program xd;
uses crt;
type sport=record
      fio:string[20];
      r1,r2,r3,sum,dal:integer;
     end;
var a:array [1..10] of sport;
    t,n,i,j:integer; st:string;
begin clrscr;
  repeat
   write('Vvedite kol-vo uchastnikov '); readln(n);
  until (n>0) and (n<=10);
 for i:=1 to n do begin
  write('Vvedite FIO '); readln(a[i].fio);
  write('1 result '); readln(a[i].r1);
  write('2 result '); readln(a[i].r2);
  write('3 result '); readln(a[i].r3);
  a[i].sum:=a[i].r1+a[i].r2+a[i].r3; {Сумма длин всех прыжков I спортсмена}
  if a[i].r1>a[i].r2 then a[i].dal:=a[i].r1 else a[i].dal:=a[i].r2;
  if a[i].r3>a[i].dal then a[i].dal:=a[i].r3; {Находит максимально длинный прыжок}
 end; clrscr;
for i:=1 to n do {Просмотр введенных данных}
writeln(a[i].fio,' ',a[i].r1,' ',a[i].r2,' ',a[i].r3,' ',a[i].sum,' ',a[i].dal);

 for i:=1 to n-1 do {Сортировка для выяснения победителя}
 for j:=i+1 to n do
 if a[j].dal>a[i].dal then begin

 t:=a[j].dal; a[j].dal:=a[i].dal; a[i].dal:=t;
 t:=a[j].r1; a[j].r1:=a[i].r1; a[i].r1:=t;{Не надо если надо только имя и дальность прыжка частника}
 t:=a[j].r2; a[j].r2:=a[i].r2; a[i].r2:=t;{Не надо если надо только имя и дальность прыжка частника}
 t:=a[j].r3; a[j].r3:=a[i].r3; a[i].r3:=t;{Не надо если надо только имя и дальность прыжка частника}
 st:=a[j].fio; a[j].fio:=a[i].fio; a[i].fio:=st;
 end;

 writeln;
{ Просмотр отсортированного списка
writeln;
for i:=1 to n do
writeln(a[i].fio,' ',a[i].r1,' ',a[i].r2,' ',a[i].r3,' ',a[i].sum,' ',a[i].dal);}
                           textcolor(yellow); {Выводит сопртсмена с максимальным прыжком} 
writeln(a[1].fio,' On(ona) prignul na ',a[1].dal);


readkey
end.