Форум программистов, компьютерный форум, киберфорум
Наши страницы
Алгоритмы
Войти
Регистрация
Восстановить пароль
 
Иван.
0 / 0 / 0
Регистрация: 22.03.2011
Сообщений: 12
1

одномерный массив

09.04.2011, 22:35. Просмотров 367. Ответов 0
Метки нет (Все метки)

Нужно составить блок схему

даны массивы
H1..H7 шифры цехов
L1..L7 лимит электроэнергии КВТ час
R1..R7 израсходованная электроэнергия КВТ час
написать список цехов, у которых экономия электроэнергии составила более 5%. указать цех, у которого экономия в процентах максимальна.


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
uses crt;
type
    ceh = record
   shyfr : string[15];
   limit : integer;
     izr : integer;
end;
 
 
var
       x : array[1..10] of ceh;
    i, n : byte;
 max, pc : real;
   max_c : string[15];
 
begin
 
  write('KOlichestvo cehov : '); readln(n);
   writeln('------------------------');
  for i:=1 to n do
     begin
         write('shyfr : '); readln(x[i].shyfr);
         repeat
              write('limit : '); readln(x[i].limit);
              write('izrasx. : '); readln(x[i].izr);
              if x[i].izr > x[i].limit
                 then
                    writeln('Израсходованная энергия не может быть больше лимита!');
        until x[i].izr <= x[i].limit ;
        writeln('-------------------------');
     end;
 
  writeln('Cписок цехов, у которых экономия электроэнергии составила более 5% : ');
  for i:=1  to n do
     with x[i] do
         begin
             pc := 100 / limit;         { сколько процентов припадает на 1 киловат }
             pc := pc * izr;            { сколько процентов припадает на количество израсходованых киловат}
             pc := 100 - pc;            { сколько процентов сэкономлено }
 
             if pc > 5
                then
                    writeln(shyfr,'  ',limit,'  ',izr,'. Ekonomia - ',pc:0:2);
 
             if max < pc then
                begin
                     max := pc;
                   max_c := shyfr;
                end;
         end;
 writeln('------------------');
 writeln('цех, у которого экономия в процентах максимальна : ');
 writeln(max_c,' - ',max:0:2);
 readln
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.04.2011, 22:35
Ответы с готовыми решениями:

Массив двумерный и одномерный
Двумерный массив TAB, содержащий m строк и n столбцов преобразуется в одномерный массив M так, что...

Cформировать одномерный массив из элементов массива {X}, которые не менее чем в L раз превышают значения соседнего справа элемента
Собственно задача: Дан массив {X} размерностью n. Нужно: Cформировать одномерный массив {Y}...

Одномерный массив
помогите!!!!!! Дана последовательность не более 30 ненулевых целых чисел.Введите...

Дан двумерный массив, из него сделать одномерный. В одномерный массив сначала вписат четные строки потом нечетные
Здравствуйте,собственно задача в заголовке темы. никак не получается все это дело слит в одномерный...

Матрица и одномерный массив (Составить одномерный массив, содержащий количество буквенных символов в каждом из ее столбцов, подсчет символов)
Помогите решить задачку: Дана матрица 5х7, элементами которой являются значения символьного типа....

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.04.2011, 22:35

Сформировать одномерный массив из сумм кодов каждой строки и одномерный массив из сумм кодов каждого столбца символьной матрицы
Ввести символьную матрицу 5х7. Сформировать одномерный массив из сумм кодов каждой строки и...

Дан одномерный массив A из N элементов. Переписать положительные элементы массива в массив B, а отрицательные в массив C
Дан одномерный массив A из N элементов. Переписать положительные элементы массива в массив B, а...

Вывести массив а(i, j), одномерный массив b(i) и полученный массив АВ с помощью функции Cells
Задача 1 Написать программу для решения следующей задачи: для числа n вводимого с клавиатуры (с...


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

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

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