|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Математические функции Delphi
Незнаю можно ли это назвать матфункциями. Но я уже весь форум облазил, и везде по тупому подписанные темы, извините если кого то оскорбил. Есть код:
Код:
case ir of 1. r:='+'; 2. r:='-'; 3. r:='*'; 4. r:='\'; end; Код:
[Error] Unit1.pas(39): Incompatible types: 'Integer' and 'Extended' Выручайте ребята, пропаду без вас. Последний раз редактировалось udachnik2, 03.09.2012 в 15:22. |
#2
|
||||
|
||||
Цитата:
|
#3
|
|||
|
|||
Как целое число
|
#4
|
||||
|
||||
Код:
var ir: Integer; r: Char; begin case ir of 1: r:='+'; 2: r:='-'; 3: r:='*'; 4: r:='/'; end; end; |
#5
|
|||
|
|||
или так
Код:
var znak: array[0..3] of char = ('+', '-', ...); ... znak[ir]; >woweook< |
#6
|
|||
|
|||
то есть все работать должно?, не охота тут просто весь код программы выкладывать. громозко больно
Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids; type TForm1 = class(TForm) StringGrid1: TStringGrid; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; i,a,b,c,ir: Integer; plus,minus,del,umn:string; r: char; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin for b:=1 to StringGrid1.ColCount do begin for c:=1 to StringGrid1.RowCount do begin Randomize; ir:=Random(3); case ir of 1. r:='+'; 2. r:='-'; 3. r:='*'; 4. r:='\'; end; i:=Random(1000); a:=Random(1000); StringGrid1.Cells[b,c]:=IntToStr(i) + r + a; end; end; end; end. |
#7
|
|||
|
|||
Знаю что там много что не прально, но мне интересно только по этому вопросу помощь.
|
#8
|
|||
|
|||
это исправленный код?
>woweook< |
#9
|
|||
|
|||
нет. это без исправления, но там все нормально, то есть ir типа целочисленного, и r типа символьного, но что то он не хочет присваивать знак строчного типа переменной символьного типа. я нашел ответ?
|
#10
|
||||
|
||||
Цитата:
|
#11
|
|||
|
|||
да нее, вы же там повыше написали тоже самое что и у меня
|
#12
|
|||
|
|||
опоздал .
>woweook< |
#13
|
|||
|
|||
Правда? ща попробую... Извиняюсь за невнимательность.
|
#14
|
|||
|
|||
Все, спасибо. с этим вопрос решен. благодарю за помощь
|
#15
|
|||
|
|||
Блин, видимо вы от меня так просто не отвяжетесь. Теперь там где:
Код:
StringGrid1.Cells[b,c]:=IntToStr(i)+r(a); там он теперь не добавляет))) но я просто не знаю синтаксис этой операции, то как она должна правильно быть написана. Точнее я искал, но вот такого случая я нигде не нашел, где с переменными надо работать. |