Как правильно компилировать?

@popadiov · Регистрация: 11.03.2011

Студворк — интернет-сервис помощи студентам

Все доброе время суток.
Народ, не подскажете как компилировать программы написанные в Pascal ABC через Delphi 7?
Я открываю свой файл написанный в Pascal ABC в Delphi, он не показывает форму и не хочет запускать, и я не говорю про компиляцию...

@Ev[G]eN · 13.03.2011, 12:32

в Delphi -- File -- New -- Other -- Console Application
вписываете код и компилируете

Добавлено через 2 минуты

Delphi
1
2
3
4
5
6
7
8
9
10
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
begin
  { TODO -oUser -cConsole Main : Insert code here }
end.

будет вот такое...просто вписуете программу между begin
end.

@popadiov · 13.03.2011, 12:32 **[ТС]**

Сообщение от Ev[G

eN;1444973]вписываете код и компилируете

Project1.dpr(1): File not found: 'vcl.dcu'
Вот выдаёт ошибку
Код такой

Pascal
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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
uses vcl;
 
//$VCLDESIGN+
var
  Form1: Form;
  TextLabel1: TextLabel;
  TextLabel2: TextLabel;
  TextLabel3: TextLabel;
  TextLabel4: TextLabel;
  TextLabel5: TextLabel;
  Edit2: Edit;
  Edit3: Edit;
  Button1: Button;
  Edit1: Edit;
  Edit4: Edit;
  Button2: Button;
  Edit5: Edit;
    //$VCLDESIGN-
 
var a,b,c,p:real; //переменные сделаем глобальными вещественного типа
procedure Button1OnClick;
begin
a:=StrtoFloat(edit1.text);
b:=StrtoFloat(edit2.text);
c:=StrtoFloat(edit3.text);
p:=a+b+c;
edit4.text:='Периметр='+ FloatToStr(p);
end;
 
procedure Button2OnClick;
var s:real;
begin
if(a>=b+c)or(b>=a+c)or(c>=a+b) then edit5.text:='Это не треугольник'
else
 begin
  p:=p/2;
  s:=sqrt(p*(p-a)*(p-b)*(p-c));
  edit5.text:='Площадь='+FloatToStr(s);
 end;
end;
 
procedure InitControls;
begin
  Form1:= Form.Create(0,0,878,845);
  Form1.InitControl(True,False,alNone,crDefault,clBtnFace,'Способ Герона','');
  TextLabel1:= TextLabel.Create(Form1,0,0,369,13);
  TextLabel1.InitControl(True,True,alNone,crDefault,clBtnFace,'Для вычисления площади, найдем сначало полупериметр.','');
  TextLabel2:= TextLabel.Create(Form1,0,16,361,13);
  TextLabel2.InitControl(True,True,alNone,crDefault,clBtnFace,'Ведите стороны треугольника','');
  TextLabel3:= TextLabel.Create(Form1,0,40,361,13);
  TextLabel3.InitControl(True,True,alNone,crDefault,clBtnFace,'Первая сторона (a)','');
  TextLabel4:= TextLabel.Create(Form1,0,80,97,13);
  TextLabel4.InitControl(True,True,alNone,crDefault,clBtnFace,'Вторая сторона (b)','');
  TextLabel5:= TextLabel.Create(Form1,0,120,361,13);
  TextLabel5.InitControl(True,True,alNone,crDefault,clBtnFace,'Третья сторона (с)','');
  Edit2:= Edit.Create(Form1,0,96,121,21);
  Edit2.InitControl(True,True,alNone,crDefault,clWindow,'','');
  Edit3:= Edit.Create(Form1,0,136,121,21);
  Edit3.InitControl(True,True,alNone,crDefault,clWindow,'','');
  Button1:= Button.Create(Form1,0,160,121,25);
  Button1.InitControl(True,True,alNone,crDefault,0,'Считать периметр','');
  Edit1:= Edit.Create(Form1,0,56,121,21);
  Edit1.InitControl(True,True,alNone,crDefault,clWindow,'','');
  Edit4:= Edit.Create(Form1,0,192,121,21);
  Edit4.InitControl(False,True,alNone,crDefault,clWindow,'Периметр=','');
  Button2:= Button.Create(Form1,0,224,121,25);
  Button2.InitControl(True,True,alNone,crDefault,0,'Считать площадь','');
  Edit5:= Edit.Create(Form1,0,248,121,21);
  Edit5.InitControl(False,True,alNone,crDefault,clWindow,'Площадь=','');
  Button1.OnClick:=Button1OnClick;
  Button2.OnClick:=Button2OnClick;
  Form1.Position:= poScreenCenter;
  Form1.Show;
end;
 
begin
  InitControls;
 
end.

@Ev[G]eN · 13.03.2011, 12:35

это вы написали на Pascal ABC?

@popadiov · 13.03.2011, 12:35 **[ТС]**

Сообщение от Ev[G

eN;1444986]это вы написали на Pascal ABC?

Да, именно там.

@Ev[G]eN · 13.03.2011, 12:37

тогда при запуске Delphi создайте все используемые в программе компоненты на форму..

@popadiov · 13.03.2011, 12:37 **[ТС]**

Сообщение от Ev[G]eN

тогда при запуске Delphi создайте все используемые в программе компоненты на форму..

Эт как?

@Ev[G]eN · 13.03.2011, 12:39

у вас при запуске форма создается? когда вы в Delphi входите

@popadiov · 13.03.2011, 12:41 **[ТС]**

Сообщение от Ev[G

eN;1445009]у вас при запуске форма создается? когда вы в Delphi входите

Нет, как это исправить?

@Ev[G]eN · 13.03.2011, 12:44

Не по теме:

Стукните в асю 637798529

@Puporev · 13.03.2011, 17:50

popadiov, Проект, написанный в АВС, не будет просто так компилироваться в Делфи, его нужно переписать.

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

@popadiov 1 / 1 / 0 Регистрация: 11.03.2011 Сообщений: 107

	Как правильно компилировать? 13.03.2011, 12:27. Показов 2479. Ответов 10 Метки нет (Все метки) Все доброе время суток. Народ, не подскажете как компилировать программы написанные в Pascal ABC через Delphi 7? Я открываю свой файл написанный в Pascal ABC в Delphi, он не показывает форму и не хочет запускать, и я не говорю про компиляцию... 0

@Ev[G]eN Mobile Software Engineer 5381 / 1585 / 956 Регистрация: 23.01.2011 Сообщений: 3,214
	13.03.2011, 12:35
	это вы написали на Pascal ABC? 1

@Ev[G]eN Mobile Software Engineer 5381 / 1585 / 956 Регистрация: 23.01.2011 Сообщений: 3,214
	13.03.2011, 12:37
	тогда при запуске Delphi создайте все используемые в программе компоненты на форму.. 1

@Ev[G]eN Mobile Software Engineer 5381 / 1585 / 956 Регистрация: 23.01.2011 Сообщений: 3,214
	13.03.2011, 12:39
	у вас при запуске форма создается? когда вы в Delphi входите 1

@Ev[G]eN
	13.03.2011, 12:44
	Не по теме: Стукните в асю 637798529 1

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	13.03.2011, 17:50
	popadiov, Проект, написанный в АВС, не будет просто так компилироваться в Делфи, его нужно переписать. 0