Технический форум

Технический форум (http://www.tehnari.ru/)
-   Помощь студентам (http://www.tehnari.ru/f41/)
-   -   Помогите найти литературу FreePascal (http://www.tehnari.ru/f41/t96776/)

PowerOfGods 05.06.2014 06:50

Помогите найти литературу FreePascal
 
Необходима информация о том как делать библиотеки на языке FreePascal, самостоятельный поиск в интернете не дал результатов... Мною была получена задача написать библиотеку с функцией для вычисления n факториала, однако лекционный материал преподавателем выдан небыл, по причине полной безграмотности в предмете. Прошу помощи с поисками материала для самоизучения.

poiu 05.06.2014 10:31

если можно на Lazarus, то покажу ибо

Цитата:

Lazarus — свободная среда разработки программного обеспечения на языке Object Pascal для компилятора Free Pascal (часто используется сокращение FPC — Free Pascal Compiler, свободно распространяемый компилятор языка программирования Pascal).

poiu 05.06.2014 10:46

переписал на FP

библиотека
Код:

library faktorial;


function fak(n: integer): longint; stdcall; export;
var
 i: integer;
 f: longint;
begin
f:= 1;
 for i:= 0 to n-1 do f:= f*(i+1);
 fak:= f;
end;

exports fak;

begin
end.

прога
Код:

program f;

function fak(n: integer): longint; stdcall; external 'fak.dll';

var
 k: integer;
begin
writeln('Input n:');
readln(k);
writeln('Faktorial = ', fak(k));
readln;
end.


AlexZir 05.06.2014 10:47

Цитата:

Сообщение от PowerOfGods (Сообщение 1037869)
однако лекционный материал преподавателем выдан небыл, по причине полной безграмотности в предмете

Не совсем понятно, кто именно из вас двоих обладатель полной безграмотности в предмете - вы или преподаватель?

PowerOfGods 05.06.2014 18:28

Уважаемый AlexZir, я имел ввиду преподавателя). poiu Огромное спасибо за программу, буду разбираться...

PowerOfGods 05.06.2014 18:29

Хотя мои познания тоже крайне малы...

poiu 05.06.2014 22:04

Цитата:

Сообщение от PowerOfGods (Сообщение 1038083)
Хотя мои познания тоже крайне малы...

мои знания в free pascal тоже, но интернет спасает =).

PowerOfGods 06.06.2014 02:54

poiu, ваша программа выдает мне ошибку. Говорит файл библиотеки содержит ошибку или не может работать под виндой, а в паскале ошибка 303.

AlexZir 06.06.2014 03:18

А почему бы вам для начала не обратиться на форум разработчиков этой среды программирования? Уж там то вам стопудово правильно напишут, ведь это их детище.

З.Ы. Определение уровня знаний препоодавателя - не в рамках компетенции студента, это решает только ученый совет. Раз человек работает, значит, он (или она) имеет на это допуск.

poiu 06.06.2014 09:20

Цитата:

Сообщение от PowerOfGods (Сообщение 1038270)
poiu, ваша программа выдает мне ошибку. Говорит файл библиотеки содержит ошибку или не может работать под виндой, а в паскале ошибка 303.

странно, но под виндой я и писал. и оно работает. а среда была fpc-2.6.4.i386-win32.


Часовой пояс GMT +4, время: 19:17.

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.