Board.KolibriOS.org

Official KolibriOS board
It is currently Fri Oct 18, 2019 11:54 am

All times are UTC+03:00




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

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

_________________
Hey, mr. Freeman! Where are you? G-man is looking for you! :D


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

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


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

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

_________________
Hey, mr. Freeman! Where are you? G-man is looking for you! :D


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

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

_________________
Hey, mr. Freeman! Where are you? G-man is looking for you! :D


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

Joined: Sun Oct 30, 2011 6:43 pm
Posts: 1499
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: 5062
Alex2003
Компили тут http://kolibri-n.org/inf/hll/hll
Но я бы очень советовал смотреть в сторону С--

_________________
Через тернии к звездам


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

Joined: Sun Oct 30, 2011 6:43 pm
Posts: 1499
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: 213
Понятно, тут все языковые компиляторы кроме FASM'а полуфабрикаты. Ладно, будем учиться жарить тушёнку! :lol:

_________________
Hey, mr. Freeman! Where are you? G-man is looking for you! :D


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

Joined: Wed Apr 15, 2015 11:13 pm
Posts: 253
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: 213
Хм.... Мысль интересная!

_________________
Hey, mr. Freeman! Where are you? G-man is looking for you! :D


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

All times are UTC+03:00


Who is online

Users browsing this forum: No registered users and 1 guest


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:  
Powered by phpBB® Forum Software © phpBB Limited