Board.KolibriOS.org

Official KolibriOS board
It is currently Sat Jan 29, 2022 7:47 am

All times are UTC+03:00




Post new topic  Reply to topic  [ 15 posts ] 
Author Message
PostPosted: Mon Aug 20, 2018 9:47 pm 
Offline
User avatar

Joined: Wed Mar 18, 2015 8:22 am
Posts: 344
Пожалуйста, помогите! Мне надо ОБЫЧНЫЙ ПАСКАЛЬ НА КОЛИБРИ!

_________________
Я один из тех, кто ещё не программист, но уже не новичок.
Редактор в группе "KolibriOS - официальная группа".


Top
   
PostPosted: Mon Aug 20, 2018 10:07 pm 
Offline

Joined: Tue Mar 08, 2016 11:00 pm
Posts: 440
зачем?


Top
   
PostPosted: Mon Aug 20, 2018 10:10 pm 
Offline
User avatar

Joined: Wed Mar 18, 2015 8:22 am
Posts: 344
Я умею писать ТОЛЬКО НА ПАСКАЛЕ, а меня отправляют либо на Дельфи/Оберон, либо я не могу разобраться, как пользоваться Паскалем

_________________
Я один из тех, кто ещё не программист, но уже не новичок.
Редактор в группе "KolibriOS - официальная группа".


Top
   
PostPosted: Mon Aug 20, 2018 10:12 pm 
Offline
User avatar

Joined: Wed Mar 18, 2015 8:22 am
Posts: 344
И ещё: никто не знает, как пользоваться exetokex!

_________________
Я один из тех, кто ещё не программист, но уже не новичок.
Редактор в группе "KolibriOS - официальная группа".


Top
   
PostPosted: Mon Aug 20, 2018 10:39 pm 
Offline

Joined: Sun Oct 30, 2011 6:43 pm
Posts: 1498
Alex2003 wrote:
Я умею писать ТОЛЬКО НА ПАСКАЛЕ, а меня отправляют либо на Дельфи/Оберон, либо я не могу разобраться, как пользоваться Паскалем

А в чём проблема-то? Возьмём такой пример http://rosettacode.org/wiki/Sierpinski_triangle#Pascal выводящий в консоль такую штуку:
Code:
               *
              * *
             *   *
            * * * *
           *       *
          * *     * *
         *   *   *   *
        * * * * * * * *
       *               *
      * *             * *
     *   *           *   *
    * * * *         * * * *
   *       *       *       *
  * *     * *     * *     * *
 *   *   *   *   *   *   *   *
* * * * * * * * * * * * * * * *
Вот изменённый код для Delphi
Code:
{$APPTYPE CONSOLE}
program Sierpinski;

function ipow(b, n   : Integer) : Integer;
var
   i : Integer;
begin
   ipow := 1;
   for i := 1 to n do
      ipow := Result * b
end;
 
function truth(a : Char) : Boolean;
begin
   if a = '*' then
      truth := true
   else
      truth := false
end;

function rule_90(ev :  String) : String;
var
   l, i   : Integer;
   cp   : String;
   s   : Array[0..1] of Boolean;
begin
   l := length(ev);
   cp := copy(ev, 1, l);
   for i := 1 to l do begin
      if (i-1) < 1 then
    s[0] := false
      else
    s[0] := truth(ev[i-1]);
      if (i+1) > l then
    s[1] := false
      else
    s[1] := truth(ev[i+1]);
      if ( (s[0] and not s[1]) or (s[1] and not s[0]) ) then
    cp[i] := '*'
      else
    cp[i] := ' ';
   end;
   rule_90 := cp
end;
 
procedure triangle(n : Integer);
var
   i, l   : Integer;
   b   : String;
begin
   l := ipow(2, n+1);
   b := ' ';
   for i := 1 to l do
      b := concat(b, ' ');
   b[round(l/2)] := '*';
   writeln(b);
   for i := 1 to (round(l/2)-1) do begin
      b := rule_90(b);
      writeln(b)
   end
end;

begin
   triangle(4);
end.
Было добавлено:
  • Code:
    {$APPTYPE CONSOLE}
    потому что по умолчанию создаются GUI-приложения.
  • Замена внутри функции ipow вместо ipow стало Result
    Code:
    ipow := Result * b
    в справке по этому поводу вот:
    Quote:
    When the function name appears on the left side of an assignment statement, the compiler assumes that it is being used (like Result) to track the return value; when the function name appears anywhere else in the statement block, the compiler interprets it as a recursive call to the function itself.
Что, сильно код отличается? Было бы желание...


Top
   
PostPosted: Sun Aug 26, 2018 9:37 am 
Offline
Designer
User avatar

Joined: Thu Jan 25, 2007 3:33 pm
Posts: 5696
Alex2003
Компили тут http://kolibri-n.org/inf/hll/hll
Но я бы очень советовал смотреть в сторону С--

_________________
Per aspera ad astra


Top
   
PostPosted: Mon Aug 27, 2018 1:38 am 
Offline

Joined: Sun Oct 30, 2011 6:43 pm
Posts: 1498
Leency wrote:
Компили тут http://kolibri-n.org/inf/hll/hll
Ну ссылку я ему уже давал viewtopic.php?f=28&t=677&start=900#p70937
Там вообще можно немного лулзов поймать :mrgreen:
если вкратце
Spoiler: Show
Alex2003 wrote:
У меня не получилось скомпилировать... :(
Alex2003 wrote:
Дело в том, что я пишу на языке Паскаль Турбо, а не на Обероне. Наверняка поэтому у меня и не получилось скомпилировать.
Комилил, открывая файл с помощью Compiler.kex
Может быть, из-за этого?
Кстати, чем-то он напоминает memberlist.php?mode=viewprofile&u=6786 и тот тоже Alex, только на 20 лет старше(судя по юзернейму) :lol:
И оба они пишут капсом:


Top
   
PostPosted: Wed Aug 29, 2018 8:15 pm 
Offline
User avatar

Joined: Wed Mar 18, 2015 8:22 am
Posts: 344
Понятно, тут все языковые компиляторы кроме FASM'а полуфабрикаты. Ладно, будем учиться жарить тушёнку! :lol:

_________________
Я один из тех, кто ещё не программист, но уже не новичок.
Редактор в группе "KolibriOS - официальная группа".


Top
   
PostPosted: Wed Aug 29, 2018 9:52 pm 
Offline
User avatar

Joined: Wed Apr 15, 2015 11:13 pm
Posts: 266
Alex2003 wrote:
Понятно, тут все языковые компиляторы кроме FASM'а полуфабрикаты. Ладно, будем учиться жарить тушёнку! :lol:

Assembler изучай)


Top
   
PostPosted: Wed Aug 29, 2018 10:12 pm 
Offline
User avatar

Joined: Wed Mar 18, 2015 8:22 am
Posts: 344
Хм.... Мысль интересная!

_________________
Я один из тех, кто ещё не программист, но уже не новичок.
Редактор в группе "KolibriOS - официальная группа".


Top
   
PostPosted: Sat Oct 03, 2020 11:24 am 
Offline

Joined: Mon Sep 07, 2020 7:09 pm
Posts: 411
короче
Pascal Pro
http://kolibri-n.org/inf/hll/hll#ppro
FreePascal
viewtopic.php?t=1020&start=45#p71523
UPD
Увидел что не получалось скомпилировать
У меня получилось в pascal pro
viewtopic.php?f=9&t=2353&start=15#p75029
Возможно потом и в fpc получится, не пробовал еще


Last edited by maxcodehack on Sat Oct 03, 2020 6:50 pm, edited 1 time in total.

Top
   
PostPosted: Sat Oct 03, 2020 11:26 am 
Offline

Joined: Mon Sep 07, 2020 7:09 pm
Posts: 411
Leency wrote:
Alex2003
Компили тут http://kolibri-n.org/inf/hll/hll
Но я бы очень советовал смотреть в сторону С--

А я бы нет
И Ghost тоже:
http://board.kolibrios.org/viewtopic.php?f=2&t=1082#p19147
Лучше уж kos32-gcc


Top
   
PostPosted: Sat Oct 03, 2020 12:05 pm 
Offline
User avatar

Joined: Mon Apr 06, 2020 1:09 pm
Posts: 141
Что понимается под обычным Паскалем? Turbo Pascal или FreePascal ?

_________________
The best way to predict the future is to create it.


Top
   
PostPosted: Sat Oct 03, 2020 12:19 pm 
Offline

Joined: Mon Sep 07, 2020 7:09 pm
Posts: 411
Либо то, либо то
Главное чтобы не делфи и не оберон :lol:


Top
   
PostPosted: Sat Dec 05, 2020 7:40 pm 
Offline
User avatar

Joined: Tue May 08, 2007 12:44 am
Posts: 361
На самом деле с Delphi SDK программы на Delphi являются обычными программами на Паскале.

Консоль:
Code:
program Hello;

uses
  CRT;

begin
  InitConsole('Hello');
  WriteLn('Hello, world!');
end.


GUI:
Code:
program HelloGUI;

uses
  KolibriOS;

var
  WndLeft, WndTop, WndWidth, WndHeight: Integer;

begin
  with GetScreenSize do
  begin
    WndWidth := Width div 4;
    WndHeight := Height div 4;
    WndLeft := (Width - WndWidth) div 2;
    WndTop := (Height - WndHeight) div 2;
  end;

  while True do
    case WaitEvent of
      REDRAW_EVENT:
        begin
          BeginDraw;
          DrawWindow(WndLeft, WndTop, WndWidth, WndHeight, 'Hello!', $00FFFFFF,
            WS_SKINNED_FIXED + WS_CLIENT_COORDS + WS_CAPTION, CAPTION_MOVABLE);
          EndDraw;
        end;
      KEY_EVENT:
        GetKey;
      BUTTON_EVENT:
        if GetButton.ID = 1 then
          Break;
    end;
end.

Компилируется набором инструментов, включенным в состав SDK. Больше примеров — в SDK и на форуме.


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 15 posts ] 

All times are UTC+03:00


Who is online

Users browsing this forum: No registered users and 2 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited