Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Орест Бараненко
0 / 0 / 0
Регистрация: 15.03.2018
Сообщений: 12
1

"("expected but ")"found DELPHI 7

15.03.2018, 15:05. Просмотров 408. Ответов 2
Метки нет (Все метки)

ВОт эту формулу нужно перетворить код, но что то не получаеться, дает ошибку
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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls;
 
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure N3Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.N3Click(Sender: TObject);
begin
close;
end;
 
procedure TForm1.N2Click(Sender: TObject);
var
    t:real;                 // вихідні дані
  code,n:integer;               // для перетворення тексту в число
  a,b: real;
    st1:string[10];
begin           // ввід вихідних даних в поле редагування
    val(Edit1.text,a,code); // перетворення тексту в число
    val(Edit2.text,b,code);
    t:=1;   // Обнуління суми
  for n:=2 to 5 do t:=t+sqr(cos)*(n*a); // накопичення суми
    str(t:10:5,st1);
 
    Label3.Caption:='Розвязок виразу:'+ chr(13)+'a='+st1;
 
end;
end.
http://www.cyberforum.ru/attachment....1&d=1521115403
http://www.cyberforum.ru/attachment....1&d=1521115403
0
Изображения
  
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.03.2018, 15:05
Ответы с готовыми решениями:

Delphi выводит ошибку "';' expected but '.' found"
';' expected but '.' found в самой последней строке файла... Что не так? Вроде все пары begin, end...

Ошибка: "." expected but"]" found
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...

В каждом слове текста замените "а" на букву "е", если "а" стоит на четном месте, и заменить букву "б" на сочетание "ак",
В каждом слове текста замените "а" на букву "е", если "а" стоит на четном месте, и заменить букву...

Из слов "Работа", "крест", "тон" составить фразу "Кто не работает, тот не ест" и определить ее длину
Из слова "Работа","крест","тон" составить фразу:"Кто не работает, тот не ест" и определить ее длину.

На форме располагаются компоненты: редактор Edit; линейка ScrollBar; радионабор с опциями "Цветы", "Деревья", "Рыбы", "Звери"
Доброго времени суток, 2 курс 2 семестр, пришли, препод раздал задачи, сказал качайте дома и...

2
Орест Бараненко
0 / 0 / 0
Регистрация: 15.03.2018
Сообщений: 12
15.03.2018, 15:10  [ТС] 2
http://www.cyberforum.ru/attachment....1&d=1521115793
0
Миниатюры
"("expected but ")"found DELPHI 7  
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
5072 / 3524 / 4103
Регистрация: 05.06.2014
Сообщений: 17,803
15.03.2018, 15:10 3
Delphi
1
sqr(cos(n*a))
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.03.2018, 15:10

выдаёт ошибку: Error: Incompatible type for arg no. 3: Got "Extended", expected "AnsiString"
a:=a/i; не получается переделать под делфи. нужно,чтобы изменённый массив вывел в stringgrid2. ...

Ошибка: Statement expected but expression of type "TBitBtn" found
В программе используется нижеследующий код, но он почему то ругается на строку Exit. Ошибка:...

Что означает ошибка "'' expected but 'begin' found"?
Код выбивает ошибку "Variable S is deslared but never used in Tform.Button.1Click" ...


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

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

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