помогите исправить ошибки :(

[MOONSHINE]

Нужно составить порграмму, складывающую число и это же число, записанное слева направо, пока результат не станет симметричным. (например, 253: 253+352=506 506+605=1111).
написал процедуру которая пишет число наоборот:


Оффтопик

procedure obr (var ch: integer);
var a, b, c, x, y: integer;
begin
b:=0;
c:=1;
for x:=100 downto 1 do
begin
y:=ch div exp(ln(10)*x);
if y>1
then begin
a:=(ch div exp(ln(10)*x;
c:=10*c;
b:=b+c*a;
end;
end;
ch:=b;
end;

а она не работает.

Помогите?

[~GambiT~]

Не я в этом не соображаю!

[Dron247]

Код писать не буду, но идею подам, а то на всем готовом соображать тяжело учица))
Метод не быстрый, но походу прога в учебных целях)
кароч, разворот числа делай как с текстом те:
1 получил число
2 перевел в текст
3 развернул
4 опять в текст,оба
5 проверил

для процедуры Шаги 1-3
разворот:
две строки исходная, и временная
в цикле for...downto... прогоняеш первую строку с последнего к первому, попутно записывая их во временную(но начиная с первого символа (нужна вспомогательная переменная)) и во временной останетсо развернутое число...

[MOONSHINE]

Ну, у меня тоже идея была. Я исходное число делил на десять в энной степени, где н- количество цифр в числе. Частное умножал на 1, от исходного числа отнимал частное, умноженное на 10 в степени н. получалось новое число. Ну, и это все в цикле.

y:=ch div exp(ln(10)*x);- В этом месте у меня ошибка №41

[Dee]

может это тебе поможет 2 v stepeni i = exp(i*ln(2)), у тебя помойму не так. я в одной проге мучился с етой exp, потом всетаки сделал как надо.
аа понял, с этим тоже долго мучился )) у тебя переменные типа integer, а в выражении exp-ы получается real (помойму так), для этого я округлял round(exp(i*ln(2)))
прога которая переводит из десятичной формы в двоичную, мож поможет тебе

Оффтопик

uses crt;
var
x,i:integer;

BEGIN clrscr;

write('Vvedite desyatichnoe chislo: ');
readln(x);
write('Dvoichnaya forma: ');


for i:=7 downto 0 do
if (x div round(exp(i*ln(2)))=1) then {2 v stepeni i = exp(i*ln(2)) }
begin
write('1');
x:=x-round(exp(i*ln(2)));
end else write('0');


END.

[MOONSHINE]

Помогло! Подписал роунд и все работает.

Теперь главную часть писать буду. Напишу если будут проблемы.

[MOONSHINE]

Оффтопик

Begin
For a:=100 to 999 do
Begin
b:=a;
while b<>obr(b) do ------------- Здесь ошибка №143
begin b:= b+obr(b)
end;
end;
readln (b);
end.

опять траблы :(

[Dron247]

на данном этапе у тя obr() это procedure? или ты догадался ее в function переделать? Если эт процедура то так и будет, процедуры могут значения вернуть ток через ссылочные параметры, а то у тя обращение как к функции))

[Protas]

Нужно составить порграмму, складывающую число и это же число, записанное слева направо, пока результат не станет симметричным. (например, 253: 253+352=506 506+605=1111).
написал процедуру которая пишет число наоборот:


Оффтопик

procedure obr (var ch: integer);
var a, b, c, x, y: integer;
begin
b:=0;
c:=1;
for x:=100 downto 1 do
begin
y:=ch div exp(ln(10)*x);
if y>1
then begin
a:ch div exp(ln(10)*x;
c:=10*c;
b:=b+c*a;
end;
end;
ch:=b;
end;

а она не работает.

Помогите?

Такие вещи необходимо делать со строковыми типами, а не обрабатывать арифмет действия, нагружая процик, это не эффективно, все можно было сделать со строками в 3 строки и одим циклом, без вызова процедуры, что замедляет решение, главное поставить ограничение на конечныйрезультат, хотя прога и не выведит число , длиннее REAl-a.

[aSj]

Эт ферн. Вот только в две строчки не напишешь, нету в пасквиле reverse.
А в нормальном языке можно и в одну строчку, при некоторой потере читабельности.
s=s+s.to_s.reverse.to_i while s.to_s!=s.to_s.reverse
это ruby. Без потери читабельности на нормальном языке будет ~ три строчки:

findpl x | x==xrev   = x
         | otherwise = findpl (x+xrev)
	 where xrev=read(reverse (show x))::Integer

это haskell.

ps: А на функции не назжать, они рулят ;) К тому же, inline был, afair,
даже в пасквиле.

[FAN]

Парень только учицо, а ты ему такие способы решения даешь )

[Dron247]

Эт ферн. Вот только в две строчки не напишешь, нету в пасквиле reverse.
А в нормальном языке можно и в одну строчку, при некоторой потере читабельности.
s=s+s.to_s.reverse.to_i while s.to_s!=s.to_s.reverse
это ruby. Без потери читабельности на нормальном языке будет ~ три строчки:

findpl x | x==xrev   = x
         | otherwise = findpl (x+xrev)
	 where xrev=read(reverse (show x))::Integer

это haskell.

ps: А на функции не назжать, они рулят ;) К тому же, inline был, afair,
даже в пасквиле.

Блин ты-же модер, нафиг в тему по паскалю ruby и че там еще суешь?
От твоего поста программу в учебных заведениях не изменят, или ты холивар по повду языка задумал?!

З.Ы. Паскаль и делфи ненавижу
З.З.Ы. модераторы удалите плз последние 3 миссаги

[aSj]

Парень только учицо, а ты ему такие способы решения даешь )

Дык, я потому и даю. Чтобы человек знал, что 'через ж$пу' - это не единственный
метод удаления гланд ;). Впрочем, ничего особо сложного ни в одном из этих
методов нет ;) Даже для хаскеля - из фич использованы только гарды. Теоретически,
даже не зная ruby/haskell можно понять как эти проги работают.

Добавлено через 7 минут

Блин ты-же модер, нафиг в тему по паскалю ruby и че там еще суешь?
От твоего поста программу в учебных заведениях не изменят, или ты холивар по повду языка задумал?!

Конечно, не изменит. Но если своим постом я хоть чуть-чуть компенсирую
вред - уже неплохо. Проблема ить не в образовании, проблема - в людях.
Которые потом будут в реале использовать тот ужос которому их научили.
А поцкал, к сожалению, пригоден только для обучения, да и то, в общем-то,
плохо. Конечно, с одной стороны, использовать недоязык для
обучения фундаментальному программингу имеет cмысл, но,
похоже, Кнут был правее - для этого нужно выбрать такой недоязык, который
использовать в реалворлде невозможно в принципе. Впрочем, лично
мне нравится подход MIT-а - там используют кастрированный
интерпретатор Scheme, который от лекции к лекции становится все менее
кастрированным.

З.Ы. Паскаль и делфи ненавижу
З.З.Ы. модераторы удалите плз последние 3 миссаги

Ну, ненавидеть - эт перебор. Все-таки пасквиль худо-бедно можно использовать как прокладку между БД и гуйней. А вот как только прога выходит за рамки этого - упс. Ну нету в ем ни строк, ни массивов. Увы.
И сложно добавить их в язык, нищенский язык слишком. Ну и плюс куча двадцатилетней давности гемора. Впрочем, есть и поцкала и свои герои, ту же SDL вспомнить. Кое как жить можно. Но проще не страдать фигней с костылями.

З.З.Ы. модераторы удалите плз последние 3 миссаги

Фигу.

[Dron247]

Фигу.

Счетчики накручиваем)