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

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

22.03.2010, 17:19. Просмотров 365. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Немогу разобратся ошибки в програме (Delphi):

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

Не могу разобратся с задачами
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
55 / 55 / 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,...

исправить ошибкы в програме,я ни как немогу[
Помогите исправить ошибкы в програме,я ни как немогу Профиль · PM ...

Немогу разобратся
Ребят у меня есть прога которая решает кв. уравнение, она написана на Делфях...


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

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

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