6 / 6 / 3
Регистрация: 06.03.2011
Сообщений: 269
1

Типы Extended, String и Comp

05.07.2011, 02:32. Показов 4243. Ответов 1
Метки нет (Все метки)

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

При попытке компиляции выдает ошибку: [Error] Unit1.pas(64): Incompatible types: 'String' and 'Extended'

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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    cbb1: TComboBox;
    EnterF: TLabel;
    Argument: TLabel;
    ArgPole: TEdit;
    Result: TEdit;
    Text: TLabel;
    procedure cbb1Change(Sender: TObject);
    procedure ArgPoleChange(Sender: TObject);
    procedure ResultChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
  Func: String;
  Logical: Integer;
  Argum: String;
  ArgNum: Comp;
  Res: Comp;
 
implementation
 
{$R *.dfm}
 
 
procedure TForm1.cbb1Change(Sender: TObject);
begin
   Func:= cbb1.Items.Strings[cbb1.ItemIndex];
 
    if Func = 'sin' then
      Logical:= 1;
    if Func = 'cos' then
      Logical:= 2;
    if Func = 'tg' then
      Logical:= 3;
    if Func = 'ctg' then
      Logical:= 4;
end;
 
procedure TForm1.ArgPoleChange(Sender: TObject);
begin
    ArgNum:= StrToFloat(ArgPole.Text);
end;
 
procedure TForm1.ResultChange(Sender: TObject);
begin
  if Logical = 1 then
    Result.Text:= Sin (ArgNum);
  if Logical = 2 then
    Result.Text:= Cos (ArgNum);
  if Logical = 3 then
    Result.Text:= Sin (ArgNum)/ Cos (ArgNum);
  if Logical = 4 then
    Result.Text:= Cos (ArgNum)/ Sin (ArgNum);
end;
 
end.

Я в Делфи совсем недавно, поэтому прошу простить за глупые вопросы.

Заранее благодарен.
Вложения
Тип файла: rar New Folder.rar (167.3 Кб, 26 просмотров)
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.07.2011, 02:32
Ответы с готовыми решениями:

Несовместимые типы "String" и "Extended"
Ругается на несовместимые типы "String" и "Extended". Как мне в Memo вывести значение переменной...

Из string в extended?
StrToInt это все знают а вот как быть с extended, real, longint? Заранее Спс

Ошибка в типах данных extended и string
Делаю программку на подобии теста, необходимо считывать тексты из нескольких Edit'ов и если они...

Как активировать Extended и другие типы переменных
Как активировать Extended в Pascal ABC.NET? И другие скрытые типы переменных.

1
28 / 28 / 5
Регистрация: 29.06.2011
Сообщений: 61
05.07.2011, 03:14 2
argnum - sin - это риал, а вам надо стринг - FloatToStr(Sin(Argnum))(строка 62)
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.07.2011, 03:14
Помогаю со студенческими работами здесь

Типы size_t перевести в string
я нашел исходник секундомер вот код size_t millisecondsCounter(0); size_t secondsCounter(0);...

Несовместимые типы TMemo и String
Здравствуйте, Как конвертировать несовместимые типы TMemo и String? Прилагаю код (s,ss: string):...

Чем отличаются типы UnicodeString и String
В теме, собственно, вопрос... Чем отличаются типы UnicodeString и String и каким образом я могу...

Spring и Map с String на типы других Bean's
Здравствуйте! В один момент у меня отвалилось кучи тестов, причём коммитов не было, просто бах и...


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

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

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