Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi
Войти
Регистрация
Восстановить пароль
 
TP7
1 / 1 / 0
Регистрация: 23.12.2009
Сообщений: 93
1

Немогу разобратся ошибки в програме

22.03.2010, 17:19. Просмотров 374. Ответов 2
Метки нет (Все метки)

Обислить: y=Cosx*Cos2x*...*Cos10x.

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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, math;
 
type
  TForm1 = class(TForm)
    LabeledEdit1: TLabeledEdit;
    Button1: TButton;
    LabeledEdit2: TLabeledEdit;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 
 
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i,x:integer; y:real;
begin
 x:=StrToInt(LabeledEdit1.Text);
 y:=x;
 for i:=cos(x) to cos(10*x) do y:=y*i;
 LabeledEdit2.Text:=FloatToStrF(p1,ffFixed,5,3);
end;
 
end.
Если возможно подпишите в каких фрагментах основные ошибки. Заранее спасибо.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.03.2010, 17:19
Ответы с готовыми решениями:

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

Не могу разобратся с задачами
1. Определить функцию, которая возвращает сумму цифр натурального числа....

Немогу сделать задание !
Входные данные Заданы целые x1, y1, z1, x2, y2, z2, x, y, z. Координаты по...

Немогу собрать проэкт!
unit main; interface uses Windows, Messages, Controls, Forms, Dialogs,...

Немогу изменить Иконку программы
Проект основан на NetRadio библиотеки bass.dll. Проверил, на чистом проекте...

2
kukuruku310
197 / 184 / 26
Регистрация: 14.02.2010
Сообщений: 539
22.03.2010, 20:59 2
Вам же компилятор совсем недвусмысленно отвечает: Incompatible types:Integer and Extended.
И посмотрите справку для for.
0
_pva
56 / 56 / 10
Регистрация: 27.02.2010
Сообщений: 282
23.03.2010, 02:25 3
косинус явно не будет целым числом...
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.03.2010, 02:25

Пользователи в програме с разными правами
Добрый день ув. форумчане, подскажите как правильно организовать раздел...

Не могу разобратся
Прога работающий аксес базами, не хочет работать в клиентским машине... Поняти...

Кто поможет разобратся
unit Unit31; interface uses Windows, Messages, SysUtils, Classes,...


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

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

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