Board.KolibriOS.org

Официальный форум KolibriOS
Текущее время: Пт сен 21, 2018 1:46 am

Часовой пояс: UTC+03:00




Начать новую тему  Ответить на тему  [ 12 сообщений ] 
Автор Сообщение
СообщениеДобавлено: Пн авг 20, 2018 9:47 pm 
Не в сети
Аватара пользователя

Зарегистрирован: Ср мар 18, 2015 8:22 am
Сообщения: 105
Пожалуйста, помогите! Мне надо ОБЫЧНЫЙ ПАСКАЛЬ НА КОЛИБРИ!

_________________
Зачем кому-то подражать, если можно сделать что-то новое? Необычное. Захватывающее. Свое!

Развивай мышление, мысли ни как все! Разве не этому нас учил Стив Джобс?
Попробуй сесть и сделать что-то такое, чего еще нету нигде!


Вернуться к началу
СообщениеДобавлено: Пн авг 20, 2018 10:07 pm 
Не в сети

Зарегистрирован: Вт мар 08, 2016 11:00 pm
Сообщения: 325
зачем?


Вернуться к началу
СообщениеДобавлено: Пн авг 20, 2018 10:10 pm 
Не в сети
Аватара пользователя

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

_________________
Зачем кому-то подражать, если можно сделать что-то новое? Необычное. Захватывающее. Свое!

Развивай мышление, мысли ни как все! Разве не этому нас учил Стив Джобс?
Попробуй сесть и сделать что-то такое, чего еще нету нигде!


Вернуться к началу
СообщениеДобавлено: Пн авг 20, 2018 10:12 pm 
Не в сети
Аватара пользователя

Зарегистрирован: Ср мар 18, 2015 8:22 am
Сообщения: 105
И ещё: никто не знает, как пользоваться exetokex!

_________________
Зачем кому-то подражать, если можно сделать что-то новое? Необычное. Захватывающее. Свое!

Развивай мышление, мысли ни как все! Разве не этому нас учил Стив Джобс?
Попробуй сесть и сделать что-то такое, чего еще нету нигде!


Вернуться к началу
СообщениеДобавлено: Пн авг 20, 2018 10:39 pm 
Не в сети

Зарегистрирован: Вс окт 30, 2011 6:43 pm
Сообщения: 1380
Alex2003 писал(а):
Я умею писать ТОЛЬКО НА ПАСКАЛЕ, а меня отправляют либо на Дельфи/Оберон, либо я не могу разобраться, как пользоваться Паскалем

А в чём проблема-то? Возьмём такой пример http://rosettacode.org/wiki/Sierpinski_triangle#Pascal выводящий в консоль такую штуку:
Код:
               *
              * *
             *   *
            * * * *
           *       *
          * *     * *
         *   *   *   *
        * * * * * * * *
       *               *
      * *             * *
     *   *           *   *
    * * * *         * * * *
   *       *       *       *
  * *     * *     * *     * *
 *   *   *   *   *   *   *   *
* * * * * * * * * * * * * * * *
Вот изменённый код для Delphi
Код:
{$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.
Было добавлено:
  • Код:
    {$APPTYPE CONSOLE}
    потому что по умолчанию создаются GUI-приложения.
  • Замена внутри функции ipow вместо ipow стало Result
    Код:
    ipow := Result * b
    в справке по этому поводу вот:
    Цитата:
    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.
Что, сильно код отличается? Было бы желание...


Вернуться к началу
СообщениеДобавлено: Пт авг 24, 2018 10:14 pm 
Не в сети

Зарегистрирован: Вс ноя 27, 2016 6:59 pm
Сообщения: 1
Да здравствует!!! Новый агрошкольник, который пишет капсом и ничего не знает кроме паскаля который изучил в селе :-(


Вернуться к началу
СообщениеДобавлено: Вс авг 26, 2018 9:35 am 
Не в сети
Designer
Аватара пользователя

Зарегистрирован: Чт янв 25, 2007 3:33 pm
Сообщения: 4548
alexpt писал(а):
Да здравствует!!! Новый агрошкольник, который пишет капсом и ничего не знает кроме паскаля который изучил в селе :-(
Ну привет. Просто для инфы, почти все крутые программисты Колибри начинали или как школьники или как студенты первых курсов.

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


Вернуться к началу
СообщениеДобавлено: Вс авг 26, 2018 9:37 am 
Не в сети
Designer
Аватара пользователя

Зарегистрирован: Чт янв 25, 2007 3:33 pm
Сообщения: 4548
Alex2003
Компили тут http://kolibri-n.org/inf/hll/hll
Но я бы очень советовал смотреть в сторону С--

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


Вернуться к началу
СообщениеДобавлено: Пн авг 27, 2018 1:38 am 
Не в сети

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


Вернуться к началу
СообщениеДобавлено: Ср авг 29, 2018 8:15 pm 
Не в сети
Аватара пользователя

Зарегистрирован: Ср мар 18, 2015 8:22 am
Сообщения: 105
Понятно, тут все языковые компиляторы кроме FASM'а полуфабрикаты. Ладно, будем учиться жарить тушёнку! :lol:

_________________
Зачем кому-то подражать, если можно сделать что-то новое? Необычное. Захватывающее. Свое!

Развивай мышление, мысли ни как все! Разве не этому нас учил Стив Джобс?
Попробуй сесть и сделать что-то такое, чего еще нету нигде!


Вернуться к началу
СообщениеДобавлено: Ср авг 29, 2018 9:52 pm 
Не в сети
Аватара пользователя

Зарегистрирован: Ср апр 15, 2015 11:13 pm
Сообщения: 218
Alex2003 писал(а):
Понятно, тут все языковые компиляторы кроме FASM'а полуфабрикаты. Ладно, будем учиться жарить тушёнку! :lol:

Assembler изучай)


Вернуться к началу
СообщениеДобавлено: Ср авг 29, 2018 10:12 pm 
Не в сети
Аватара пользователя

Зарегистрирован: Ср мар 18, 2015 8:22 am
Сообщения: 105
Хм.... Мысль интересная!

_________________
Зачем кому-то подражать, если можно сделать что-то новое? Необычное. Захватывающее. Свое!

Развивай мышление, мысли ни как все! Разве не этому нас учил Стив Джобс?
Попробуй сесть и сделать что-то такое, чего еще нету нигде!


Вернуться к началу
Показать сообщения за:  Поле сортировки  
Начать новую тему  Ответить на тему  [ 12 сообщений ] 

Часовой пояс: UTC+03:00


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и 1 гость


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Создано на основе phpBB® Forum Software © phpBB Limited
Русская поддержка phpBB