Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Павел12
0 / 0 / 3
Регистрация: 27.11.2013
Сообщений: 19
#1

Заполнить пятый столбик средним арифметическим - Pascal ABC

03.04.2014, 17:12. Просмотров 154. Ответов 0
Метки нет (Все метки)

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
uses op, obr;
begin
 vvod(z);
 vivod(z);
end.
модули 
unit op;
interface
 const s = 5; sp =5;
 type mass = array [ 1..sp] of real;
      mas = array [1..s] of integer;
 var z: mass;
implementation
end.
unit obr;
interface
uses op, schet;
procedure vvod (var z: mass);
procedure vivod (var z: mass);
implementation
procedure vvod (var z: mass);
 var ar: mas;
     i, m: integer;
     oc: real;
 begin
   for i := 1 to sp do begin
                                    writeln('Введите оценки для ', i, ' спортсмена:');
                                     for m := 1 to s do begin
                                                         readln (ar[m]);
                                                         write(ar[m], ' ');
                                                        end;
                                    writeln;
                                    z[i] := ar[m];
                                    writeln ('Оценка в зачет: ', z[i]);
                                   end;
 
  writeln
 end;
 procedure vivod (var z: mass);
 var i, j: integer;
 begin
  writeln ('                                                 ТАБЛИЦА ОЦЕНОК');
  writeln('------------------------------------------------------------------------------------------------------------------------------');
  write('               | ');
  for i := 1 to 4 do write (i:2, 'суд. | ':9);
  writeln;
  writeln('------------------------------------------------------------------------------------------------------------------------------');
  for i := 1 to s do begin
                         write (i:1, '-ое состязание|');
                         for i := 1 to sp do write('    ', z[i]:1:1, '   |');
                         writeln;
                         writeln('------------------------------------------------------------------------------------------------------------------------------');
                        end;
 end;
 end.
unit schet;
interface
uses op;
procedure min (var ar: mas);
procedure max (var ar: mas);
procedure ocenka (var ar: mas; var oc: real);
implementation
procedure min (var ar: mas);
var i, m, Nm: integer;
begin
 m := 10;
 for i := 1 to s do begin
                     if ar[i] <= m then begin
                                           m := ar[i];
                                           Nm := i;
                                          end;
                    end;
  ar[Nm] := 0;
end;
procedure max (var ar: mas);
var i, m, Nm: integer;
begin
 m := 0;
 for i := 1 to s do begin
                     if ar[i] >= m then begin
                                           m := ar[i];
                                           Nm := i;
                                          end;
                    end;
 ar[Nm] := 0;
end;
procedure ocenka (var ar: mas; var oc: real);
var i: integer;
begin
 max(ar);
 min(ar);
 oc := 0;
 for i := 1 to s do begin  oc := oc + ar[i];
 oc := oc / (s-2);
 if i = 5 then writeln(oc);
end;
end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.04.2014, 17:12
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Заполнить пятый столбик средним арифметическим (Pascal ABC):

Замена чисел средним арифметическим
Заменить каждый элемент массива средним арифметическим всех элементов, которые...

Обнулить строку матрицы с наименьшим средним арифметическим
обнулить строку с наименьшим средним арифметическим, помогите пожалуйста, у...

Заменить элемент A[k] средним арифметическим K первых элементов
Помогите пожалуйста с кодом: Задан вещественный массив А размерностью N....

Наименьший член последовательности заменить средним арифметическим всех членов
1. Даны целые числа. Наименьший член последовательности заменить средним...

Вывести на экран номер строки файла с наибольшем средним арифметическим чисел
Текстовый файл содержашие целые числа. Вывести на экран номер строки с...

Заменить в каждом из них максимальный элемент средним арифметическим положительных элементов
Ввести одномерные массивы X1, X2, X3 . Заменить в каждом из них максимальный...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.04.2014, 17:12
Привет! Вот еще темы с решениями:

Заменить в каждом из них максимальный элемент средним арифметическим положительных элементов
Ввести одномерные массивы X1, X2, X3 . Заменить в каждом из них максимальный...

Замените каждый элемент массива средним арифметическим всех предшествующих ему элементов
Замените каждый элемент массива средним арифметическим всех предшествующих ему...

Найти разность между максимальным и средним арифметическим элементами квадратной матрицы, заданной случайным образом
Нужно построить программу для такой задачи: Найти разность между максимальным...

В одномерном массиве заменить все элементы, стоящие на нечетных местах средним арифметическим всех элементов
11. В одномерном массиве заменить все элементы, стоящие на нечетных местах...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru