0 / 0 / 0
Регистрация: 27.02.2012
Сообщений: 28
1

Напечатать список цехов , у которых экономия электроэнергии составила более 5 %.

02.03.2012, 12:24. Показов 1406. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Даны массивы h1,..,h7 -шифры цехов; l1,..,l7-лимит электро энергии,кВт.ч ;r1,..,r7-израсходованная электроэнергия ,кВт.ч ; напечатать список цехов ,у которых экономия электроэнергии составила более 5%.указать цех у которого экономия в процентах максимальна .
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.03.2012, 12:24
Ответы с готовыми решениями:

Напечатать список цехов ,у которых экономия электроэнергии составила более 5%.(массивы)
Даны массивы h1,..,h7 -шифры цехов; l1,..,l7-лимит электро энергии,кВт.ч ;r1,..,r7-израсходованная...

Напечатать список заводов, у которых экономия электроэнергии составила более 5%
Даны массивы: PR1.....PR9 - наименования заводов; L1.....L9 - лимит электроэнергии, кВт.ч;...

Напечать список заводов, у которых экономия электроинергии составила более 5%
Даны массивы: PR1,..PR9 - наименования заводов; L1,..,L9 - лимит электроинергии кВт/ч; R1,..,R9...

Вывести список заводов, у которых экономия электроэнергии составила более 5%. Найти завод с наибольшим процентом экономии электроэнергии.
Решите пожалуйста через внешний файл. Даны массивы PR1, ... , PR9 - наименования заводов; L1,...

2
1 / 1 / 0
Регистрация: 25.01.2012
Сообщений: 30
05.03.2012, 12:23 2
up Такаяже задача
0
любитель покушать
687 / 641 / 248
Регистрация: 25.09.2011
Сообщений: 1,313
05.03.2012, 13:25 3
Лучший ответ Сообщение было отмечено m1lk как решение

Решение

m1lk,
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
uses crt;
var
h: array[1..5] of string;
l,r: array[1..5] of integer;
e: array[1..5] of real;
i,k: integer;
max: real;
begin
max:=0;
for i:=1 to 5 do begin
write(i ,' цех');
writeln;
write('Введите шифр : ');
read(h[i]);
repeat
write('Введите лимит электроэнергии: ');
read(l[i]);
write('Введите кол-во израсходованной электроэнергии: ');
read(r[i]);
until l[i]>=r[i];
e[i]:=((l[i]-r[i])/l[i])*100;
if e[i]>max then max:=e[i];
k:=i;
end;
writeln('Шифры цехов, экономия электроэнергии в которых больше 5%: ');
for i:=1 to 5 do begin
if e[i]>5 then
write(h[i],' ');
end;
writeln;
write('Экономия электроэнергии максимальна в цехе c шифром ',h[k],' и составляет ',max:1:1,'%!');
end.
1
05.03.2012, 13:25
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.03.2012, 13:25
Помогаю со студенческими работами здесь

Напечатать списки цехов, в которых соотношение рабочих и инженерно-технических работников более 1,5 и менее 2
Нужно сделать с помощью(используя) записей. Даны шифры десяти цехов, численности рабочих и...

Массив: Вывести список цехов, в которых величина заработной платы на одного рабочего более ZR руб.
Пожалуйста помогите решить!!! Задание 6 Дан массив t1, ... , t20. Заменить отрицательные ti ...

Вывести список цехов, в которых величина заработной платы на одного рабочего более ZR руб. при премиальном фон
Даны массивы ZEX1, ... , ZEX8 - шифры цехов автотранспортного предприятия; K1, ... , K8 -...

Вывести списки цехов, в которых соотношение рабочих и ИТР более 1,5 и менее 2-х
Даны цифры 10-и цехов, численность рабочих и инженерно-технических работников в каждом.Вывести...

Напечатать список сотрудников, стаж работы которых более 25 лет
Прошу помогите разобрать задачу 1. Создать набор данных, в котором записи имеют структуру: ОТДЕЛ,...

Отдельно напечатать список водителей у которых расход топлива более 10 л на 100 км
Даны массивы F1....F20 - фамилия водителей NF1....NF20 -номерные знаки автомашины S1.....S20...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru