|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Incompatible type "Integer" and "Extended"
Код:
procedure TForm1.Button1Click(Sender: TObject); const k=4; Var n,i,j: Integer; a:array[1..4,1..4] of Integer; st:string; begin n:=11; for i:= 0 to 4 do for j:=0 to 4 do a[i,j]:=round(k/2-i+0.3)*(j*k+5*n)*sin(j);//здесь ошибка str(a[i,j],st); StringGrid1.Cells[i,j] := st; end; |
#2
|
||||
|
||||
1. Round не закрывает полностью строку.
2. Массив а описан с 1-цы, а цикл почему-то с 0. Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#3
|
|||
|
|||
спасибо
|