Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Павел12
0 / 0 / 0
Регистрация: 27.11.2013
Сообщений: 19
#1

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

03.04.2014, 17:12. Просмотров 150. Ответов 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):

Замена чисел средним арифметическим - Pascal ABC
Заменить каждый элемент массива средним арифметическим всех элементов, которые расположены до него.(Данные в массив поступают из файла.)

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

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

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

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

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

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

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

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

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

Создать новый файл из входного, заменив элементы главной диагонали средним арифметическим других элементов данной строки - Pascal ABC
Данный файл содержит элементы двухмерного массива. Создать новый файл из входного, заменив элементы главной диагонали средним...


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

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

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