Напечатайте фамилии участников и их результаты в порядке занятых ими мест

@zen3r · Регистрация: 27.12.2011

Студворк — интернет-сервис помощи студентам

Составьте с использованием вспомогательных процедур и функций программу для решения одной из следующих задач:
В соревнованиях по прыжкам в длину каждому участнику дается три попытки, и все результаты заносятся в массив. При подведении итогов результатом считается лучшая из попыток. Напечатайте фамилии участников и их результаты в порядке занятых ими мест.
(кол-во участников вводиться с клавиатуры)

Заранее очень благодарен!

@WebMax 2.0 · 27.12.2011, 22:11

https://www.cyberforum.ru/turb... 13778.html

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
uses crt;
 
type Sport = record
        Familija   :string[20];
        Rez1  :integer;
        Rez2  :integer;
        Rez3  :integer;
     end;
 
var a:array [1..8] of Sport;
    b:array [1..8] of integer;
i,n,x,j,max,max2,max3:integer;
 
Procedure Swap(x,y:integer);
var t:integer;
    begin
     t:=x;
     x:=y;
     y:=t;
    end;
 
begin
   clrscr;
   Write('Кол-во спортсменов = ');readln(n);
   For i:=1 to n do
   with a[i] do
     begin
     Write('Фамилия ',i,'-го спортсмена: ');readln(Familija);
     Write('1. результат: ');readln(Rez1);
     Write('2. результат: ');readln(Rez2);
     Write('3. результат: ');readln(Rez3);
     if rez1>rez2 then
            if rez1>rez3 then b[i]:=rez1 else b[i]:=rez3 else b[i]:=rez2;
     writeln;writeln;
     end;
   For i:=1 to n do
   Writeln(b[i],' ');
   max:=b[1];
   For i:=1 to n do
      If b[i]>max then begin max:=b[i]; x:=i; end;
   with a[x] do
   Write('1. место: ',Familija,',  ',Rez1,',  ',Rez2,',  ',Rez3);
   max2:=b[1];   writeln;
   For i:=1 to n do
      If (b[i]>=max2) and (b[i]<max) then begin max2:=b[i]; x:=i; end;
   with a[x] do
   Write('2. место: ',Familija,',  ',Rez1,',  ',Rez2,',  ',Rez3);
   max3:=b[1];   writeln;
   For i:=1 to n do
      If (b[i]>=max3) and (b[i]<max2) then begin max3:=b[i]; x:=i; end;
   with a[x] do
   Write('3. место: ',Familija,',  ',Rez1,',  ',Rez2,',  ',Rez3);
   readkey;
end.

@zen3r · 27.12.2011, 22:39 **[ТС]**

WebMax 2.0, а что такое type Sport = record ? и почему выводит он по местам, допустим берём 3+ кол-во спортсменов, то надо напечатать фамилии участников и их результаты в порядке занятых ими мест

@WebMax 2.0 · 27.12.2011, 22:49

Тип запись , которая содержит информацию о каждом спортсмене . Фамилия , и три результата .

Для более подробного понятия советую по гуглить , заглянуть в Википедию .

@zen3r · 27.12.2011, 23:40 **[ТС]**

Напечатайте фамилии участников и их результаты в порядке занятых ими мест

вот что у меня выдаёт, какие то 4 числа и выходит что у меня 2 и 3 место занял один и тот же спортсмен =(

@WebMax 2.0 · 28.12.2011, 00:21

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
uses crt;
 
type Sport = record
        Familija   :string[20];
        Rez1  :integer;
        Rez2  :integer;
        Rez3  :integer;
     end;
 
var a:array [1..8] of Sport;
    b:array [1..8] of integer;
i,n,x,j,max,max2,max3,y,z:integer;
 
Procedure Swap(x,y:integer);
var t:integer;
    begin
     t:=x;
     x:=y;
     y:=t;
    end;
 
begin
   clrscr;
   Write('Кол-во спортсменов = ');readln(n);
   For i:=1 to n do
   with a[i] do
     begin
     Write('Фамилия ',i,'-го спортсмена: ');readln(Familija);
     Write('1. результат: ');readln(Rez1);
     Write('2. результат: ');readln(Rez2);
     Write('3. результат: ');readln(Rez3);
     if (rez1<rez2) and (rez3<rez2) then b[i]:=rez2 else
     if rez1<rez3 then b[i]:=rez3 else b[i]:=rez1;
     writeln;
     end;
   max:=b[1]; x:=1;
   For i:=1 to n do
      If b[i]>max then begin max:=b[i]; x:=i; end;
   with a[x] do
   Write('1. место: ',Familija,',  ',Rez1,',  ',Rez2,',  ',Rez3);
   max2:=b[1]; y:=1;  writeln;
   For i:=1 to n do
      If (b[i]>=max2) and (i<>x) then begin max2:=b[i]; y:=i; end;
   with a[y] do
   Write('2. место: ',Familija,',  ',Rez1,',  ',Rez2,',  ',Rez3);
   max3:=b[1]; z:=1;  writeln;
   For i:=1 to n do
      If (b[i]>=max3) and (i<>y) and (i<>x) then begin max3:=b[i]; z:=i; end;
   with a[z] do
   Write('3. место: ',Familija,',  ',Rez1,',  ',Rez2,',  ',Rez3);
   readkey;
end.

@zen3r · 28.12.2011, 17:42 **[ТС]**

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
{---------- Title of the program --------------}
program primer1;
uses crt;
 
type stroka=array[1..1000] of integer;
     matr=array[1..20] of string;
 
 
var i,n,m:integer;
 b:matr;
    a,q:stroka;
 
{----------- Description of functions ------------------}
function P(x:real):boolean;
begin
    p:=x>0;
end;
{---------------------------------------------}
function summa(m:integer;x:stroka):real;
    var i:integer;  s:real;
begin
    s:=0;
    for i:=1 to m do
        s:=s+x[i];
    summa:=s
end;
{---------------------------------------------}
function summamod(m:integer;x:stroka):real;
    var i:integer;   s:real;
begin
    s:=0;
    for i:=1 to m do
        s:=s+abs(x[i]);
    summamod:=s
end;
{---------------------------------------------}
function quantity(m:integer;x:stroka):integer;
    var i,k:integer;
begin
    k:=0;
    for i:=1 to m do
        if p(x[i]) then k:=k+1;
    quantity:=k
end;
 
{------------- Description of procedures -------------}
procedure input_matr(var n,m:integer; var a:matr);
    var i,j:integer;
begin
    clrscr;
    write('input quantity of rows ');readln(n);
    write('input quantity of columns ');readln(m);
    for i:=1 to n do    begin
        for j:=1 to m do    begin
        write(' A[',i,',',j,']=');
        read(a[i][j])   end;
    writeln;        end;
end;
 
 
 
 
procedure priswaiwanie_stroka(var n:integer; var a:stroka);   // выигрышные номера
begin
n:=8;
    a[1]:=5;
    a[2]:=15;
    a[3]:=34;
    a[4]:=65;
    a[5]:=78;
    a[6]:=100;
    a[7]:=233;
    a[8]:=356;
end;
 
 
 
procedure priswaiwanie_matr(var n:integer; var b:matr);   // выигрышы
begin
n:=8;
    b[1]:='mashina';
    b[2]:='kvartira';
    b[3]:='kino';
    b[4]:='tv';
    b[5]:='sot';
    b[6]:='tv';
    b[7]:='poezdka';
    b[8]:='tv';
 
end;
 
 
 
procedure bileti(var m:integer; var q:stroka);
 begin
read (m);
for i:=1 to m do
read(q[i]);
end;
 
function sravneniya(a:stroka; b:matr; n: integer; x:integer):string;
begin
sravneniya:='';
for i:=1 to n do
if x=a[i] then sravneniya:=b[i]
end;
 
 
 
 
 
 
 
procedure output_matr(n:integer; a:stroka; b:matr);
var i:integer;
begin
    for i:=1 to n do begin
write('  ',a[i],' - ',b[i]);
writeln;
 
             writeln end
end;
 
procedure vivod(n,m:integer;a,q:stroka; b:matr);
var i:integer;
begin
 for i:=1 to m do
 writeln (q[i],' - ', sravneniya(a,b,n,q[i]));
 end;
 
 
 
{--------------- Main program -----------------}
begin
    clrscr;    priswaiwanie_stroka(n,a);
    priswaiwanie_matr(n,b);
      writeln;
    bileti(m,q);
    output_matr(n,a,b);
     vivod(n,m,a,q,b);
 
 
 
end.

вот приблизительно так должна выглядить данная программа... т.е. спортсменов не надо вводить с клавы... перепишите прогу для данной задачи... оч надо..

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

@zen3r 0 / 0 / 0 Регистрация: 27.12.2011 Сообщений: 6

	Напечатайте фамилии участников и их результаты в порядке занятых ими мест 27.12.2011, 21:41. Показов 4877. Ответов 6 Метки нет (Все метки) Составьте с использованием вспомогательных процедур и функций программу для решения одной из следующих задач: В соревнованиях по прыжкам в длину каждому участнику дается три попытки, и все результаты заносятся в массив. При подведении итогов результатом считается лучшая из попыток. Напечатайте фамилии участников и их результаты в порядке занятых ими мест. (кол-во участников вводиться с клавиатуры) Заранее очень благодарен! 0

@zen3r 0 / 0 / 0 Регистрация: 27.12.2011 Сообщений: 6
	27.12.2011, 22:39 [ТС]
	WebMax 2.0, а что такое type Sport = record ? и почему выводит он по местам, допустим берём 3+ кол-во спортсменов, то надо напечатать фамилии участников и их результаты в порядке занятых ими мест 0

@WebMax 2.0 --\.founder./-- 565 / 565 / 392 Регистрация: 20.10.2011 Сообщений: 867
	27.12.2011, 22:49
	Тип запись , которая содержит информацию о каждом спортсмене . Фамилия , и три результата . Для более подробного понятия советую по гуглить , заглянуть в Википедию . 0

@zen3r 0 / 0 / 0 Регистрация: 27.12.2011 Сообщений: 6
	27.12.2011, 23:40 [ТС]
	вот что у меня выдаёт, какие то 4 числа и выходит что у меня 2 и 3 место занял один и тот же спортсмен =( 0

Напечатайте фамилии участников и их результаты в порядке занятых ими мест

Решение