Turbo Pascal

[KoLoB]

Это пздц... сколько можно учить этот паскаль..он мне скоро снится начнет(((
Келбас за*бал


у когото есть база данных???
(за отдельную плату)

Что за базы данных?

 

[Redactor]

Такие функции как x:=whereX и gotoXY применяются на дельфи, аналог на Паскале, как?

На Делфе куча функций для определения координат (и вообще для работы с графикой). Читайте книги господа!

 

[Storm_10]

проблемка на абс паскале модуль не компилируется пишет что присвоение значения функции находиться за функцией, хотя, такого нету всё написано вроде правильно

unit komp;

interface
uses crt;
type mas=array [0..50] of integer;
procedure sly(n:integer; var a:mas);
function geo(n:integer; var a:mas):real;


implementation
procedure sly(n:integer; var a:mas) ;
const b=10; c=44;
var j:integer;
begin
for j:=1 to n do a[j]:=b+random(c-b);
end;

function geo(n:integer; var x:mas):real;
var g,s:real; i:integer;
begin
s:=1;
for i:=1 to n do begin
S:=s*x;
if i=n then
g:=exp(i*ln(s));
geo:=g;
end;
end;
end.

 

[Пух]

function geo(n:integer; var x:mas):real;
var g,s:real; i:integer;
begin
s:=1;
for i:=1 to n do begin
S:=s*x;
if i=n then
g:=exp(i*ln(s));
geo:=g;
end;
end;

поменять на

function geo(n:integer; var x:mas):real;
var g,s:real; i:integer;
begin
s:=1;
for i:=1 to n do begin
S:=s*x;
if i=n then
g:=exp(i*ln(s));
end;
geo:=g;
end;

ну и когда (i=n) можно делать break (а может и нет, смотреть по условию нужно).

 

[Пух]

ну и не понятно зачем "var x:mas", если элементы массива не меняются.
не понятно зачем проверка i=n, и так ясно что это последняя итерация цикла. Эта проверка лишняя.

 

[Storm_10]

ну и не понятно зачем "var x:mas", если элементы массива не меняются.
не понятно зачем проверка i=n, и так ясно что это последняя итерация цикла. Эта проверка лишняя.

да, точно лишнего написал =) но єто уже другое дело, я не нащёт работы программы, просто абс паскаль выделывается, а в виндовс 7 турбо паскаль старенький не идёт = / хз как проверить работу модуля, в общем ошибка ниже(надо было мне сразу скрин приложить)

You must be registered for see links

насколько я понимаю абс паскаль слово "begin" в модуле понимает как инициирущую часть =/, и из-за этого выходит ошибка что присвоение за функцией...

описал в самой программе ошибки нету, всё запустилось = /

 

[Storm_10]

ап

 

[Тагрим]

ап

free pascal пробовал? 32х битный паскаль

 

[Storm_10]

free pascal пробовал? 32х битный паскаль

нет, пойдёт на 7 ? у меня х64

 

[Тагрим]

нет, пойдёт на 7 ? у меня х64

You can download the 2.4.2 release for the following cpu and operating systems:

ARM
• Game Boy Advance
• Nintendo DS
• Linux
• Windows CE
Intel/i386
• Dos (GO32v2 extender)
• FreeBSD (FreeBSD 7.x and 8.x)
• Linux
• Mac OS X and several crosscompilers.
• Haiku
• OS/2
• Solaris
• Win32, Win64 and WinCE (Windows 95, Windows 98, ME, NT, 2000, XP, Vista) for Windows 95 please see

You must be registered for see links

.
PowerPC
• Linux
• Mac OS X
PowerPC64
• Linux
• Mac OS X
SPARC
• Linux
• Solaris
AMD64/x86_64
• FreeBSD
• Linux
• Windows 64-bit

You must be registered for see links

UPD:

Download as installer

You must be registered for see links

(35 MB) contains the installer containing the compiler and tools for win32:

Download cross-compilers as installers

You must be registered for see links

(9.9 MB) contains the installer containing the win32 to arm-wince cross-compiler only. :

You must be registered for see links

(17 MB) contains the installer containing the win32 to win64 cross-compiler only. :