Андрей Романюк

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


прошу ответить, очень надо срочно! спасибо огромное)

Андрей Романюк

еще такой вопрос есть( но это не срочно, чисто для себя интересно)
надо сделать задачу:залить экран зеленым цветом, ввести строку с клавиатуры.Вывести ее в центре экрана, вставив в нее посередине "***"( без кавычек разумеется)))) я написал так:
program ...;
uses crt;
var A :string;{строка}
B:string;{подстрока}
c:integer;{центр строки}
i:integer;{номер символа}
x:real;{номер среднего символа}
begin
textbackground(2){зеленый};
clrscr;
writeln('введите строку');
readln(A);
B:='***';
for i:=1 to length(A) do
if i mod 2 = 0 then x:=i/2
else
x:=i/2 + 0.5;
writeln(x:0:0,',середина строки');
writeln('введите число, которое на единицу больше центра строки( смотри выше)')
readln(c);
insert(B,A,c);
gotoxy(27,12);
writeln(A,',полученная строка');
readln;
end.

переменную "с" ввел т.к. не смог х(центр строки) вставить в формулу с инсертом( там можно только целые), а как сделать по другому не знаю, если это возможно подскажите)))

Vladimir_S

Ну почему же - можно это реализовать с помощью динамических массивов, стеков, указателей и т.п., что позволяет манипулировать с адресами элементов. Разбирайтесь!

Андрей Романюк

ого, я и слов то таких не знаю, но спасибо, сейчас буду искать)))

Vladimir_S

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

Андрей Романюк

ага, спасибо, получилось, так намного лучше))))

Андрей Романюк

еще такой вопрос, а возможно ли из паскаля копировать текст программы в другое место(Word например)?

Vladimir_S

А это смотря из какого Паскаля. Ежели из DOS-Турбосреды, то нет, нельзя. Но можно сохранить в турбосреде файл ляляля.pas и затем открыть его хоть тем же Word'ом.

AlexZir

А что вам мешает открыть сохраненный файл программы (с расширением pas) с помощью этого текстового процессора?
ПКМ, открыть с помощью, указываете программу

__________________
Убить всех человеков!

AlexZir

Для выравнивания текста в графическом режиме можно установить режим выравнивания относительно указанной точки, например, этот листинг выравнивает текст строго по центру экрана:
Для горизонтального выравнивания константы
LeftText или 0
CenterText или 1
RightText или 2
Для вертикального выравнивания константы
BottomText или 0 - по нижнему краю
CenterTxt или 1
TopText или 2 - по верхнему краю

__________________
Убить всех человеков!