OberonCore

Неее.... проще так: +/"_1 ?. 10 10 $ 100

Или так: sum(rand(10)')

Или так: sum(rand(10)')

так: +/' 10 10 _draw 100

Я понимаю еще если бы задача какая сложная была...
Не стыдно вам, сударь? Эту задачу даже моя жена - журналист по профессии - за два часа сделает.

Приветствую всех и каждого в отдельности!

Я, ну совсем начинающий
из языков знаю только простой Паскаль и немного копался в Delphi, тут оберон попался, что-то меня в нём цепануло пока сам не понял что пробую написать более менее простенькую программу, но чтоб более менее с интерфейсом, с кнопками вроде разобрался, а как заставить работать "поле ввода" , чтобы , скажем так, входные данные, разрешить вводить пользователю

Заранее спасибо

Скачайте себе школьную версию среды. Там должна быть подсистема Info21dialog, в которой Вы найдете всю необходимую информацию - обучение, примеры, задачи.

ага, скачал, ковыряюсь, сапсибо



Всё что я хотел работает,

только я не совсем пронял что делают процедуры
StdCmds.OpenAuxDialog
StdCmds.OpenDoc
Всё нормально без них,

P.S. извините за глупые вопросы

Вопрос : А можно сделать так,чтоб результат программы в логе(рабочем журнале) не выводилось одним столбцом,а выводилось еще и в строку???

Грубо говоря, всё что печатается до StdLog.Ln - печатается в одну строку. Если окно журнала сделать поширше, ещё и видно одной строкой будет...

Это конечно понятно но хотелось бы чтобы программа выводила сама в строку

Программа сама никогда никуда ничего не выводит. Поставьте StdLog.Ln() в месте, где требуется возврат каретки (или уберите StdLog.Ln() вообще, если возвратов каретки не должно быть вовсе).

Возможно, Вам стоит сформулировать вопрос более точно. Если Вы спрашивали о направлении вывода в "строковую" переменную s: ARRAY N OF CHAR, то:
- почитайте главу 5 "Тексты" из документации (где они хранятся, в каком виде, как их писать и читать);
- обратите внимание, что содержимое журнала - это текст StdLog.text

Благодарю за совет.

каретку он у меня возвращает,итог - пропуск 1 строки вниз...
P.S. Хочется чтоб один столбец находился рядом с другим

Может быть, Вам помогут линейки (TextRulers), которые вставить в начало лога, а потом отбивать выравнивание табуляторами?

Не помогают...Пишет ошибку...Хотелось бы сделать 1 столбец этой таблицы рядом с другим

MODULE Умножение;
IMPORT StdLog;

PROCEDURE Умножение1* ( i : INTEGER );
VAR Сомнож1,Сомнож2 : INTEGER;
BEGIN
FOR Сомнож1 := 2 TO 9 DO
FOR Сомнож2 := 2 TO 9 DO
i:=Сомнож1*Сомнож2;
StdLog.String("$____");
StdLog.Int( Сомнож1 );
StdLog.String(" * ");
StdLog.Int ( Сомнож2 );
StdLog.String( "=" );
StdLog.Int ( i );
StdLog.String("____$");
StdLog.Ln;
END;
StdLog.Ln;
END;

StdLog.Ln
END Умножение1;
END Умножение.

Хотел написать пример - но на работе только Линукс, копирование из браузера в Блэкбокс не работает, перенабирать лень

Смотрите.
Ручками вставляете в начало лога линейку: меню Text->Insert Ruler. На ней расставляете отступы для табуляций (если не работали с линейкой - см. документацию среды, левую нижнюю колонку "Руководства пользователей"-"Работа с текстами").

В коде там, где нужно дать отступ - ставите StdLog.Tab.

Ну а если Вы имеете в виду двухполосный текст (т.е. второй столбец - продолжение текста в первом, как в журнале/книге), то тут придётся создавать два TextView (правый и левый) и класть их подряд через StdLog.View (только тогда уж удобней открывать в новом окне).

Пробовал как вы и посоветовали...Не получилось...

Вам лень толком объяснить, что Вам нужно, -- кто ж Вам так ответит?

Хочется чтоб один столбец таблицы умножения находился рядом с другим (смотрите страницу внимательнее пост "Четверг, 14 Февраль, 2008 15:45" )