FreePascal.ru

bormant, пользователь вводит любое число, с цифр введенного числа создать максимальное возможное и минимальное.
К примеру:

Опять застрял:
for i:=1 to n do begin max:=0;
for j:=1 to n do
if a[j]>max then max:=a[j];
cmax:=cmax+inttostr(max);
end;

Вот вам кусок кода, что я хочу сделать? Суть такая: я сверяю элементы массива, первый элемент (i) с всема (j), потом второй - (i) опять ...

Опять к вам:
function Datas: string;
var h, w, s: string;
k, i, j: integer;
begin
read (FileIN, s);
k:=0;

repeat
for i:=1 to length (s) do
if s[i]=' ' then begin k:=k+1; j:=i;
if k=3 then break;
end;
until k=3;

h:='';
for j:=i to length(s) do h&#58 ...

Блин, вот я дурак.

Это же мы в цикле for просто делаем предельное число в двое меньше. А не режим саму строку, значение строки не меняется. Я уже понял, спасибо, теперь спокоен!

Разобрался со всеми вариантами задачи, с inc вообще гениально, как по мне! Спасибо за помощь.

Перебрав индексы от 1 до (n div 2) заметим, что дальше продолжать нет смысла: при четном количестве одна половина уже полностью была сравнена с другой, а при нечетном -- остался один один символ, который ...

Потому, что в выражении:
if arg&#91;i&#93; <> arg&#91;Length(arg)-i+1&#93;
сравниваются первая и последняя буква, вторая и предпоследняя и т.д. в цикле вплоть до средней буквы (но исключая её), если длина нечётная.
Завтра утром вам это станет ясно, как белый день.


Минутку, а разве команда ...

Oleg_D писал(а):Если количество букв в слове НЕЧЁТНОЕ, то среднюю букву сравнивать саму с собой нет смысла.

Но я не пойму логики, если так, то, к примеру слово "порок", тоже остается лишь "по", то почему он не выдает как палиндром?

if s&#91;i&#93; <> s&#91;length(s) - i - 1&#93; then begin

Вы, наверное, имели ввиду
if s&#91;i&#93; <> s&#91;length(s) - i + 1&#93; then begin

А теперь вопрос, зачем мы делим строку на 2, мы обрезаем конец строки и средний символ?
Т.е. с слова "потоп" остается "по"? Но я не пойму логики ...

Извиняюсь, я туда еще не дошел был...

Такого примера в книге нету, интересуюсь лично для себя. Пользователь вводит слово. Как проверить одинаковы ли первая и последняя буква слова, вторая и предпоследняя, третья и третья сзади, 4-я и 4-я сзади и так все слово. Такие слова называются палиндромы (они читаются туда и назад одинаково), к ...

bormant , разобрался с вашим кодом, спасибо. Но есть один вопрос, что это значит:


Если символ больше пробела? Я не пойму вот только этот кусочек.

Это тоже что и:

Но я что то сомневаюсь.

В ответы я тоже смотрел, меня интересовало как сделать на базе моего варианта.

Опять застрял на похожем задании, не знаю как его решить.

procedure check (const s&#58; string);
var i, k&#58; integer;
ch&#58; char;
t&#58; string;
begin
t&#58;='';
k&#58;=length(s);
for i&#58;=1 to k do if ord(s&#91;i&#93;)>32 then begin t&#58;=inttostr(i); writeln (t, ' - ', s&#91;i&#93 ...

function check (s&#58; string; ch&#58; char)&#58; boolean;
var i&#58; integer;
b&#58; boolean;
n&#58; string;

begin
check&#58;=false;

n&#58;='';
for i&#58;=1 to length (s) do if (s&#91;i&#93;=ch) then begin writeln('Position in the word - ', i); b&#58;=true; end;

if b then
writeln ('There is ...

Допустим, что строка не пустая, то почему она не выводит слово? Даже если бы строка имела какое-то значение, то нужное слово вывелось бы? Почему нет?