IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

 
 Ответить  Открыть новую тему 
> Условия вывода на экран, writeln и его особенности
сообщение
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 85
Пол: Мужской

Репутация: -  0  +


Наперед извиняюсь, если создал похожую на существующую.
Вобщем хочу спросить у знающих люжей как можно задать условие при выводе на экран длинной информации(в цикле). Нужно сделать так, чтобы после того как курсор переходит границу по Х-су, то чтобы переходил на новую строчку.
Была попытка реализовать это так:
If wherex>72 then writeln;
Но условие не работает, видимо из-за несоответствуюших значений wherex. Вобщем ХЕЛП!
Кидаю сюда "прогу", куда(первое условие case) мне это надо вставить.


Прикрепленные файлы
Прикрепленный файл  ASCII.PAS ( 1.37 килобайт ) Кол-во скачиваний: 302
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






begin .. end для циклов добавить не пробовал?
  1:begin
Writeln('Simvoli pershoi polovini ASCII :');
For sym:=#1 to #9 do begin { <-- Здесь }
write(sym:3,'-#',ord(sym):3,' '); if wherex>72 then writeln;
end; { <-- Здесь }
write('Ent-# 10 ',#11,'-# 11 ',#12,'-# 12 ','P_r-# 13 ');
For sym:=#14 to #127 do begin { <-- Здесь }
write(sym:3,'-#',ord(sym):3,' '); if wherex>72 then writeln;
end; { <-- Здесь }
repeat until keypressed;
end;

Ты же должен в цикле проверять текущее положение курсора, а ты это делаешь ПОСЛЕ цикла...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Пионер
**

Группа: Пользователи
Сообщений: 85
Пол: Мужской

Репутация: -  0  +


Да, точно. ступил- забыл, что for требует begin,end. no1.gif
А еще и через Вотч проверял.... думаю, чо значения странные какмето.....
Спасибо. щас проверю.
Кстати, как, кроме переименования розширения файла, можно копировать с txt в pas и наоборот?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Ищущий истину
******

Группа: Пользователи
Сообщений: 4 825
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


Цитата
Кстати, как, кроме переименования розширения файла, можно копировать с txt в pas и наоборот?

Copy и rename это разные операции.
Скопировать можно ЛЮБЫМ методом копирования файлов.
FAQ: Файлы -> копирование файлов


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Пионер
**

Группа: Пользователи
Сообщений: 85
Пол: Мужской

Репутация: -  0  +


Как бы эт сказать...?
Я имел ввиду немного другое.
К примеру, чтобы написать тут кусок текста програмы я не буду использовать другую програму и т.п. а нужно всего лишь скопироват текст(самым обычным способом).Но так как это нельзя сделать по типу CtrlC->CtrlV я и задал этот вопрос.
А то бывает что нужно прогу(или кусок), написаную в тхт или на сайте, просто перенести в среду Паскаля....
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Ищущий истину
******

Группа: Пользователи
Сообщений: 4 825
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


понял. Просто ассоциируй в ОС тип файлов .pas к программе Блокнот,или советую - альтернативной замене блокнота.
Желательно что бы была подсветка синтаксиса, возможность подключения компилера и перекодировка win dos.


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Пионер
**

Группа: Пользователи
Сообщений: 85
Пол: Мужской

Репутация: -  0  +


Попробую проассоциировать. Но , я так думаю, этомне даст только возмодность открывать в блокноте на прямую прогу, а не через Паскаль. А то бывает легче в открытой среде скопировать, а не искать по папкам прогу, что бы открыть......
Не понял следующее: что ты имеешь ввиду по
"альтернативной замене блокнота."
И это: wacko.gif
Желательно что бы была подсветка синтаксиса, возможность подключения компилера и перекодировка win dos.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Гость






Alex7
Цитата
А то бывает что нужно прогу(или кусок), написаную в тхт или на сайте, просто перенести в среду Паскаля....
А пользовался бы FPC - проблем бы не было. Там в меню есть "Скопировать из Windows". blush.gif
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Ищущий истину
******

Группа: Пользователи
Сообщений: 4 825
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


Цитата
"альтернативной замене блокнота."

ну вместо блокнота желательно использовать что-то более мощное...
напрмер Tera Text editor, TextED, Goldenpen, Edit Plus и другие.
Цитата
Желательно что бы была подсветка синтаксиса, возможность подключения компилера и перекодировка win dos.

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


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


Пионер
**

Группа: Пользователи
Сообщений: 85
Пол: Мужской

Репутация: -  0  +


"Скопировать из Windows".- ГДЕ??? blush.gif unsure.gif
И что такое FPC?
ЗЫ: не сильно напрягаю своими вопросами? mega_chok.gif wink.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #11


Ищущий истину
******

Группа: Пользователи
Сообщений: 4 825
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


Цитата
"Скопировать из Windows".- ГДЕ???

читать умеешь ?
Цитата
А пользовался бы FPC - проблем бы не было. Там в меню есть

FPC - free pascal compiler

Цитата
не сильно напрягаю своими вопросами?

Ну вопросы пока не по существу... флеймообразная жижа...


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #12


Пионер
**

Группа: Пользователи
Сообщений: 85
Пол: Мужской

Репутация: -  0  +


Altair, понятно, но у меня такого софта нет, качат пока не смогу- инет не позволит( norespect.gif
Цитата
читать умеешь ?

эМ.... понял.... видимо не умею

Сообщение отредактировано: Alex7 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #13


Ищущий истину
******

Группа: Пользователи
Сообщений: 4 825
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


Цитата
Altair, понятно, но у меня такого софта нет

резюме.
ассоциируешь блокнот с пас файлами и сможешь их открывать блокнотом и вставлять туда и компировать все что угодно.


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 20.04.2024 15:23
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name