Найдено 16 результатов

Леонид
13.04.2017 10:01:28
Форум: Разработки на нашем сайте
Тема: Учёт ТМЦ (склад)
Ответы: 12
Просмотры: 29815

Re: Учёт ТМЦ (склад)

тут нет файлика. А хотелось бы попробовать.
Леонид
01.04.2017 10:24:13
Форум: Обучение Free Pascal
Тема: Одно число одновременно в 2-е переменные.
Ответы: 15
Просмотры: 38587

Re: Одно число одновременно в 2-е переменные.

у меня вопрос: какой смысл в данной хм... Назначать одно и то же десятке переменных это что за кх..м "удобство"? Какое то новое веяние что ли?

Если спросил - значит хотелось. Вообще это был больше теоретический вопрос. А тут такие страсти разгорелись...

Считаю тему закрытой и не достойной ...
Леонид
31.03.2017 13:28:46
Форум: Обучение Free Pascal
Тема: Одно число одновременно в 2-е переменные.
Ответы: 15
Просмотры: 38587

Re: Одно число одновременно в 2-е переменные.

Дож. Те же яйца, только в профиль.
Я думал, что можно как-то write(Ind1,Ind2); или еще как-то.
Ладно. Не пожар и не трагедия. Просто хотелось как-то красиво это сделать.
Леонид
31.03.2017 10:12:56
Форум: Обучение Free Pascal
Тема: Одно число одновременно в 2-е переменные.
Ответы: 15
Просмотры: 38587

Одно число одновременно в 2-е переменные.

Бодрого дня, господа.
Возник такой вопрос - можно ли (и как) число, введенное с клавиатуры присвоить сразу двоим переменным?
Пимер:

program proga;
uses crt;
var Ind1,Ind2:integer;
begin
write('Введи число: ');
// readln или read ... - как тут быть?
// или так:
readln(Ind1 ...
Леонид
28.03.2017 11:20:12
Форум: Обучение Free Pascal
Тема: Как выйти по Esc
Ответы: 34
Просмотры: 61890

Re: Как выйти по Esc

Мы отвлеклись от темы. Превратили в флудильню.
Всем огромнейшее спасибо за помощь. Чуток поколупал - приспособил. Все отлично, но...
Теперь надо придумать, как это применить в моем случае, с которым я столкнулся.
Допустим, программа содержит вычислительную процедуру из которой вызывается процедура ...
Леонид
28.03.2017 10:20:46
Форум: Обучение Free Pascal
Тема: Как выйти по Esc
Ответы: 34
Просмотры: 61890

Re: Как выйти по Esc

Снег Север
У меня везде Линукс - и на работе и дома. Дома я им пользуюсь с 2001 года. Виндовс окончательно "вымер" с моего ПК в году 2006-м, если память не изменяет.
Снег Север писал(а):
есть для тестовых целей минт, единственный который не вызывает у меня тошноты с первого взгляда...

А у меня ...
Леонид
28.03.2017 00:41:14
Форум: Обучение Free Pascal
Тема: Как выйти по Esc
Ответы: 34
Просмотры: 61890

Re: Как выйти по Esc

И время консольных программ ушло - даже в линуксе большинство из них давно имеют обертки с нормальным человеческим графическим интерфейсом (как в винде ). Сейчас даже ретро-игры, имитирующие алфавитно-цифровые "картинки" а-ля 80-е годы, пишут на графической канве...

Вот тут я категорически не ...
Леонид
27.03.2017 16:35:31
Форум: Обучение Free Pascal
Тема: Как выйти по Esc
Ответы: 34
Просмотры: 61890

Re: Как выйти по Esc

Лекс Айрин писал(а):Есть один нюанс с кодировкой текста, о котором стоит помнить -- Лазарус, даже консольные проги пишет по умолчанию в UTF8, соответственно, надо будет перед компиляцией конвертировать файлы.

А зачем мне его конвертировать? В Linux по умолчанию UTF8 используется.
Леонид
27.03.2017 15:47:22
Форум: Обучение Free Pascal
Тема: Как выйти по Esc
Ответы: 34
Просмотры: 61890

Re: Как выйти по Esc

А чем Geany плох?
Да и в Lazarus'е консольное приложение делать разве проще? Он же как и дельфи для кнопочно-окошечных программ. Или я сильно ошибаюсь?
В учебниках по Lazarus'у про консольные только слегка упоминается.
И см я чуток пробовал - разницы, практически, нет никакой - то же самое ...
Леонид
27.03.2017 14:38:14
Форум: Обучение Free Pascal
Тема: Как выйти по Esc
Ответы: 34
Просмотры: 61890

Re: Как выйти по Esc

tema , спасибо огромное. Заработало.

По поводу result , пишут, что в TP ее нет. Как в FP - я не в курсе. Но она не работает. Ругается, что Error: Identifier not found "result"

А с заменой на input все нормально. Буду приспосабливать к своему творению.

PS. Не нашел где тут благодарности по ...
Леонид
27.03.2017 10:36:19
Форум: Обучение Free Pascal
Тема: Как выйти по Esc
Ответы: 34
Просмотры: 61890

Re: Как выйти по Esc

Попытался попробовать Ваш пример, но получил: Error: Identifier not found "result"
Если в функции ее объявляю (как советуют в некоторых местах):
var result:string; ,
то из программы выходит в любом случае, не зависимо от ввода числа или простого нажатия Enter.
В логе: Warning: Function result ...
Леонид
26.03.2017 19:33:04
Форум: Обучение Free Pascal
Тема: Как выйти по Esc
Ответы: 34
Просмотры: 61890

Re: Как выйти по Esc

Те, кому 40+, возможно, помнят о программируемых калькуляторах. Я тоже на них кой чего ваял. И была там серия игр Лунолет.
Вот я и хочу это воплотить на ПК. В том же духе - все консольно. Тем более, что линуксоида с 2001-го года консолькой как-то и испугать трудно.
Что касается моей проблемки, то ...
Леонид
26.03.2017 01:00:16
Форум: Обучение Free Pascal
Тема: Как выйти по Esc
Ответы: 34
Просмотры: 61890

Re: Как выйти по Esc

тут чел явно самого элементарного не знает...

Вашими устами глаголет истина, друг мой.
Я только изучаю паскаль. По книжкам, форумам, сайтикам разным.
Вот приспичило гуматитарию не только по образованию, но и по мозгам, в свои 55 воплотить одну хотелку/мечталку. Вот теперь пытаюсь разобраться, а ...
Леонид
24.03.2017 18:20:36
Форум: Обучение Free Pascal
Тема: Как выйти по Esc
Ответы: 34
Просмотры: 61890

Re: Как выйти по Esc

Снег Север , я в примере, вообще-то, написал, что там переменные real. Это числа, с которыми в дальнейшем проделываем вычисления.
Леонид
24.03.2017 11:50:12
Форум: Обучение Free Pascal
Тема: Как выйти по Esc
Ответы: 34
Просмотры: 61890

Re: Как выйти по Esc

Этот номер не проходит. Тем более ненужны тут Left/Right.
Функция ReadKey считывает, на сколько я знаю (а в паскале знаю я очень мало), только первое нажатие клавиши (как-то так). А как тогда ввести 2-х, 3-ч и проч. значные числа?
Если б было все так просто, я бы не спрашивал.