Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Катерина Пугач
0 / 0 / 3
Регистрация: 14.01.2017
Сообщений: 9
#1

Написать программу для определения расхода угля тепловой станцией - Delphi

27.03.2017, 18:35. Просмотров 140. Ответов 2
Метки нет (Все метки)

Было задано задание но когда я его решила преподаватель сказал что это не правильно. Помогите исправить ошибку. Вот условие и Код программы.

Условие:
В массиве Р (7) записаны показания температуры воздуха по дням. При температуре воздуха зимой до 0 потребления угля тепловой станцией составляет К тонн в день. При температуре от 0 до -10 дневное потребление увеличивается на 5 тонн; если температура воздуха ниже -10, то потребление увеличивается еще на 7 тонн. Написать программу для определения расхода угля тепловой станцией через неделю.

Код программы:
Delphi
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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, Buttons;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
      procedure Button1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 P : array [0..7] of integer;
  k,i:Integer;
implementation
 
{$R *.dfm}
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  k:=0;
 
for i:= 0 to 6 do
    P[i]:=Random(20);
    for i:= 0 to 6 do
    if P[i]<(-10) then k:=k+17
    else  if (P[i]>=10) and (P[i]<=0) then k:=k+15
    else   k:=k+10;
    Edit1.Text:=IntToStr(k);
        end;
 
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Edit1.Clear;
end;
 
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.03.2017, 18:35
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Написать программу для определения расхода угля тепловой станцией (Delphi):

Написать программу для определения заданной величины
Ребят, нужно оконное приложение &quot;В массиве Р (12) записаны показатели...

Написать программу для определения взаимного расположения точек с координатами X1, Y1 и X2, Y2
Написать программу для определения взаимного расположения точек с координатами...

Написать программу для определения площади заданной геометрической фигуры
Написать программу для определения площади геометрической фигуры, которая...

Написать программу для определения соотношения U(cos(a)), используя рекуррентную формулу U(x)
Помогите написать программу для определения соотношения U(cos(a)), используя...

Написать программу "Расчет нормы расхода топлива"
нужно написать программу &quot;Расчет нормы расхода топлива&quot;

Составить программу для определения указанных ниже параметров треугольника. Выполнить программу для конкретных значений
Заданы сторона треугольника и два прилежащих к ней угла. Найти углы и стороны.(...

2
Puporev
Модератор
54149 / 41782 / 28889
Регистрация: 18.05.2008
Сообщений: 98,331
27.03.2017, 19:21 #2
Delphi
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
var
  Form1: TForm1;
  const n=7;
implementation
 
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var i:byte;
begin
with StringGrid1 do
 begin
  fixedrows:=1;
  fixedcols:=1;
  colcount:=n+1;
  rowcount:=3;
  for i:=1 to n do
  cells[i,0]:=inttostr(i);
  cells[0,0]:='День';
  cells[0,1]:='Температура';
  cells[0,2]:='Уголь';
 end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var p:array[1..n] of integer;
    i,k,r,s:integer;
begin
randomize;
for i:=1 to n do
 begin
  p[i]:=-15+random(20);
  StringGrid1.Cells[i,1]:=inttostr(p[i]);
 end;
k:=strtoint(Edit1.Text);
s:=0;
for i:=1 to n do
 begin
  if p[i]>0 then r:=k
  else if p[i]>=-10 then r:=k+5
  else r:=k+12;
  StringGrid1.Cells[i,2]:=inttostr(r);
  s:=s+r;
 end;
Label1.Caption:='Общий расход угля за неделю='+inttostr(s)  
end;
1
Вложения
Тип файла: rar 8888.rar (3.3 Кб, 1 просмотров)
Катерина Пугач
0 / 0 / 3
Регистрация: 14.01.2017
Сообщений: 9
27.03.2017, 21:36  [ТС] #3
Puporev, большое спасибо) вы меня спасли)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.03.2017, 21:36
Привет! Вот еще темы с решениями:

Составить программу для определения подходящего возраста кандидатуры для вступления в брак.
Как реализовать данную задачу? Составить программу для определения подходящего...

Составить программу для определения значения функции
Составить программу для определения значения функции у(x). Предусмотреть вывод...

Создать программу для определения дня недели
Помогите пожалуйста решить задачу Создать программу для определения дня недели...

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


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

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

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