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

Проблема с оператором выбора

29.01.2022, 14:34. Показов 1239. Ответов 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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1ChangeBounds(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  close
end;
 
procedure TForm1.Button1ChangeBounds(Sender: TObject);
begin
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var a, b:real;
begin
  a:=strtofloat(edit1.text);
  a:=(180*a)/pi;
  edit2.text:=floattostr(round(a));
  b:=strtofloat(edit2.text);
  b:=(pi*b)/180;
  edit1.Text:=floattostr(round(b));
end;
 
 
 
procedure TForm1.Edit1Change(Sender: TObject);
begin
 
end;
 
procedure TForm1.Edit2Change(Sender: TObject);
begin
 
end;
 
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.01.2022, 14:34
Ответы с готовыми решениями:

Заменить вложенный условные оператор оператором выбора
if ch='i' then n:=1 else if ch='j' then n:=5 else if ch='k' then n:=10 else if ch='1' then...

Составить программу с использованием оператора выбора и с условным оператором
Составить программу с использованием оператора выбора и с условным оператором. Данные для...

Задание с оператором выбора CASE
Напишите программу, которая по введенному номеру месяца года выводит количество дней в месяце.

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

5
0 / 0 / 0
Регистрация: 29.01.2022
Сообщений: 11
29.01.2022, 15:24  [ТС] 2
Написать программу, содержащую два текстовых поля, надписи: "Градусы",
"Радианы", кнопки: "Перевод", "Выход".
Программа выполняет следующие функции.
✓ При щелчке на текстовые окна они очищаются;
✓ При нажатии на кнопку "Перевод", если в первом текстовом окне
записано число, то во втором появляется соответствующее число в радианах
и наоборот, если во втором текстовом окне записано число, то в первом
появляется соответствующее число в градусах;
✓ При нажатии на кнопку "Выход" программа завершает свою работу.

Буду весьма благодарен за готовый код
0
63 / 56 / 10
Регистрация: 09.02.2016
Сообщений: 735
Записей в блоге: 15
30.01.2022, 08:36 3
я наверное задачу не верно понял... или проблема в чем ?

p.s. кстати, я наверное бы try \ except применил вокруг strtofloat, а то мало ли что там пользователь введет...
p.p.s. в формулах не разбирался, использовал ваши не думая.. - или как раз в них весь вопрос ?!


Кликните здесь для просмотра всего текста
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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit1Enter(Sender: TObject);
    procedure Edit2Enter(Sender: TObject);
  private
    inpRad:boolean;
  public
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Edit1Enter(Sender: TObject);
begin
  Edit1.Text:='';
  Edit2.Text:='';
  inpRad:=true;
end;
 
procedure TForm1.Edit2Enter(Sender: TObject);
begin
  Edit1.Text:='';
  Edit2.Text:='';
  inpRad:=false;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var a:real;
begin
  if inpRad then
    begin
      a:=strtofloat(edit1.text);
      a:=(180*a)/pi;
      edit2.text:=floattostr(round(a));
    end
  else
    begin
      a:=strtofloat(edit2.text);
      a:=(pi*b)/180;
      edit1.Text:=floattostr(round(a));
    end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  close;
end;
 
end.
Вложения
Тип файла: zip 1.zip (106.1 Кб, 10 просмотров)
1
Модератор
2978 / 1655 / 600
Регистрация: 15.11.2015
Сообщений: 6,651
30.01.2022, 09:07 4
Ещё вариант:
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
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
unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
var
  v: double;
begin
  Label3.Caption:= '';
  if (Edit1.Text <> '') and (Edit2.Text = '') then begin
    if TryStrToFloat(Edit1.Text, v) then
      Edit2.Text:= FloatToStr((v*Pi)/180)
    else
      Label3.Caption:= 'Введено некорректное число';
  end
  else
  if (Edit1.Text = '') and (Edit2.Text <> '') then begin
    if TryStrToFloat(Edit2.Text, v) then
      Edit1.Text:= FloatToStr((v*180)/Pi)
    else
      Label3.Caption:= 'Введено некорректное число';
  end
  else
    Label3.Caption:= 'Для перевода должно быть заполнено только одно поле ввода';
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  Close;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  Edit1.Clear;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
  Edit2.Clear;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Label3.Caption:= '';
end;
 
end.
Вложения
Тип файла: rar lazarus thread2940069 RADtoDEG.rar (2.8 Кб, 13 просмотров)
1
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
32151 / 20820 / 8071
Регистрация: 22.10.2011
Сообщений: 36,046
Записей в блоге: 7
30.01.2022, 13:17 5
Лучший ответ Сообщение было отмечено Vined_ как решение

Решение

Предыдущий код условию задачи не удовлетворяет. Как минимум - при клике на Edit никакой очистки не происходит.

Мой вариант:
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
unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
  Math;
 
type
  TEditArr = array of TEdit;
  TFunc = function (v : Float) : Float;
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Edit1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    Arr : TEditArr;
    CurrTag : PtrInt;
    procedure ClearFields;
 
  public
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Edit1Click(Sender: TObject);
begin
  CurrTag := (Sender as TEdit).Tag;
  ClearFields;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Arr := TEditArr.Create(Edit1, Edit2);
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  SetLength(Arr, 0);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  f : array[0 .. 1] of TFunc = (@DegToRad, @RadToDeg);
  Value : Double;
begin
  if TryStrToFloat(Arr[CurrTag].Text, Value) then
    Arr[1 - CurrTag].Text := FloatToStr(f[CurrTag](Value)) // Собственно, решение в одну строку, все остальное - обработка ошибок ввода
  else
  begin
    ShowMessage('Введено некорректное значение');
    ClearFields;
  end;
end;
 
procedure TForm1.ClearFields;
begin
  Edit1.Clear;
  Edit2.Clear;
end;
 
end.
Вложения
Тип файла: 7z thread2940069.7z (101.6 Кб, 8 просмотров)
1
Модератор
2978 / 1655 / 600
Регистрация: 15.11.2015
Сообщений: 6,651
30.01.2022, 14:02 6
Эх, невнимательность.
Зато сделал отдельные кнопки очистки полей. Так удобнее, чем очистка обоих полей сразу.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.01.2022, 14:02
Помогаю со студенческими работами здесь

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

Откладка программ с оператором ветвления и оператором выбора
:drink:

Ошибка с оператором множественного выбора
здравствуйте, форумчане. вот код реализации очереди: #include &lt;conio.h&gt; #include &lt;iostream&gt;...

Записать уравнение с оператором выбора
Как записать уравнение с оператором выбора на языке с#?

Вычислить значение выражения оператором выбора
Вычислить значение выражения с помощью оператора выбора нужно сделать примерно так Sub...

Задача на масти карт с оператором выбора(case)
Всем привет. Так как я начинающий программист,прошу помощи в этой задаче(не могу составить с этим...

Установка связи между оператором выбора и процедурами
Подскажите пожалуйста не могу устранить ошибку в листинге мне вобщем нужно использовать процедуры...


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

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

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