Форум программистов, компьютерный форум, киберфорум
C++ Builder
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 09.04.2020
Сообщений: 4
1

Создать программу, которая переводит значение температуры по Цельсию в значения температуры по Фаренгейту

09.04.2020, 16:47. Просмотров 392. Ответов 2
Метки нет (Все метки)

Я нашёл похожую программу написанную на Delphi и попробовал переписать её в C++. Программа работает, но вот с расчётами явно что-то не так, помогите плез.
Вот код:
C++
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
99
100
101
102
103
104
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    Label1->Caption= "";
    Label2->Caption= "";
    Image1->Canvas->Pen->Color=clRed;
    Image1->Canvas->Brush->Color=clWhite;
    Image1->Canvas->Rectangle(10,1,23,360);
    Image2->Canvas->Pen->Color=clBlue;
    Image2->Canvas->Brush->Color=clWhite;
    Image2->Canvas->Rectangle(10,1,23,360);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int a, b, c;
a= StrToFloat(Edit1->Text);
    if (a > 0 || a < 100)  {b = 1.8 * a + 32;}
         else {
    }
    if (a > 100) {
        } else { (b= 212);
        }
    if (a < 0) {
    } else { (b= 32);
    }
        Label2->Caption= FloatToStr(b);
        Button2->Visible= false;
        Image1->Canvas->Pen->Color= clRed;
        Image1->Canvas->Brush->Color= clWhite;
        Image1->Canvas->Rectangle(10,1,23,360);
        Image1->Canvas->Pen->Color= clRed;
        Image1->Canvas->Brush->Color= clRed;
        Image1->Canvas->Rectangle(10,round(360-a),23,360);
        Image2->Canvas->Pen->Color= clBlue;
        Image2->Canvas->Brush->Color= clWhite;
        Image2->Canvas->Rectangle(10,1,23,360);
        Image2->Canvas->Pen->Color= clBlue;
        Image2->Canvas->Brush->Color= clBlue;
        Image2->Canvas->Rectangle(10,round(360-b),23,360);
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
int a, c, d;
c= StrToFloat(Edit2->Text);
    if (c > 32 || c < 212) {d= ( c - 32)/1.8;}
    if (c < 32){
        } else { (d= 0);
        }
    if (c > 212) {
        } else { (d= 100);
        }
        Label1->Caption= FloatToStr(d);
        Button1->Visible= false;
        Image2->Canvas->Pen->Color= clBlue;
        Image2->Canvas->Brush->Color= clWhite;
        Image2->Canvas->Rectangle(10,1,23,360);
        Image2->Canvas->Pen->Color= clBlue;
        Image2->Canvas->Brush->Color= clBlue;
        Image2->Canvas->Rectangle(10,round(360-c),23,360);
        Image1->Canvas->Pen->Color= clRed;
        Image1->Canvas->Brush->Color= clWhite;
        Image1->Canvas->Rectangle(10,1,23,360);
        Image1->Canvas->Pen->Color= clRed;
        Image1->Canvas->Brush->Color= clRed;
        Image1->Canvas->Rectangle(10,round(360-d),23,360);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
    Label1->Caption= "";
    Label2->Caption= "";
    Edit1->Text= "";
    Edit2->Text= "";
    Image1->Canvas->Pen->Color= clRed;
    Image1->Canvas->Brush->Color= clWhite;
    Image1->Canvas->Rectangle(10,1,23,360);
    Image2->Canvas->Pen->Color= clBlue;
    Image2->Canvas->Brush->Color= clWhite;
    Image2->Canvas->Rectangle(10,1,23,360);
    Button1->Visible= true;
    Button2->Visible= true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
    Form1->Close();
}
//---------------------------------------------------------------------------
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.04.2020, 16:47
Ответы с готовыми решениями:

Программа вывода таблицы зависимости температуры по Фаренгейту от температуры по Цельсию
1. Программа вывода таблицы зависимости температуры по Фаренгейту от температуры по Цельсию. F = 32...

Перевод температуры по Цельсию в температуру по Фаренгейту
Напишите программу, с помощью которой пользователь согласно инструкциям вводил трех действительных...

Градусник. Перевод температуры по Цельсию в температуру по Фаренгейту
Создать программу, которая переводит значение температуры по Цельсию в значения температуры по...

Перевод температуры по Цельсию в температуру по Фаренгейту или Кельвину
с помощью перечня компонентов Страница Standard - RadioButton, Label Страница Additional - BitBtn...

2
0 / 0 / 0
Регистрация: 09.04.2020
Сообщений: 4
09.04.2020, 16:49  [ТС] 2
Вот как выглядит программа
Создать программу, которая переводит значение температуры по Цельсию в значения температуры по Фаренгейту
0
случайный прохожий
1489 / 970 / 372
Регистрация: 20.07.2013
Сообщений: 2,839
10.04.2020, 01:04 3
https://ru.wikipedia.org/wiki/... 1%82%D0%B0
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.04.2020, 01:04

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

Cоздать 3 класса, описывающие единицы измерения температуры по Цельсию, Фаренгейту и Кельвину
2) Cоздать 3 класса, описывающие единицы измерения температуры по Цельсию, Фаренгейту и Кельвиномю...

Определить значение температуры по Фаренгейту в градусах Цельсия
Народ, помогите с написанием програмки, которая решала бы такую задачу(условие я вложил) Заранее...

Для температуры от -5 до +5 °C с шагом 1.25 °C вывести соответствующие значения по Фаренгейту и Реомюру
Народ помогите пожалуйста с заданиями,буду очень благодарен. Сам не силен в программировании,но это...

Составьте программу, выводящую на экран таблицу соответствия значений температуры по Цельсию
Составьте программу, выводящую на экран таблицу соответствия значений температуры по Цельсию Тс и...

Составить программу, которая выводит на экран сообщение в зависимости от введенного значения температуры
:P Всем привет! Есть на этом свете добрые люди или нет? Надо решить простейшую задачу, а я не могу....

Составить алгоритм и программу для перевода значения температуры, заданной в шкале Цельсия, в значения, соответствующие
Помогите пожалуйста) Составить алгоритм и программу для перевода значения температуры, заданной в...


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

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

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