Программа на Delphi. Циклы с условием

[Koksa]

Нужно сделать две программы, помогите подалуйста!
1. Ввести n чисел. Добавить к первой и последней цифре числа 5. Пример 49->9149; 83->138
2. Решить уравнение 2x-3 ln x-3=0, х=[0.5;0.6], с шагом 0,2

[Mad_Cat]

1)

for i:=1 to n do begin
   readln(a[i]);
a[i]:=strtoint('5'+inttostr(a[i])+'5');
end;

Решить уравнение 2x-3 ln x-3=0, х=[0.5;0.6], с шагом 0,2

как это7

[Koksa]

Сообщение от Mad_Cat

1)

 Решить уравнение 2x-3 ln x-3=0, х=[0.5;0.6], с шагом 0,2

как это7

Спасибо!)

2*x-3*ln(x-3)=0
вместо х подставлять числа от 0,5 до 0,6
с заданным шагом

[Koksa]

Сообщение от Mad_Cat

1)

for i:=1 to n do begin
   readln(a[i]);
a[i]:=strtoint('5'+inttostr(a[i])+'5');
end;

как это7

хотя..немного не так. лан переделаю)

[Mad_Cat]

вместо х подставлять числа от 0,5 до 0,6
с заданным шагом

шаг > разности между началом отрезка и его концом в 2 раза)

[Koksa]

Сообщение от Mad_Cat

шаг > разности между началом отрезка и его концом в 2 раза)

вот и я думаю, что-то здесь не то. может без шага

[Mad_Cat]

может без шага

тогда вообще зачем цикл?

[dosha]

мб, шаг 0,02.

[Niro]

2*x-3*ln(x-3)=0

неверная запись (при таком отрезке)
скорее всего
2*x-3*ln(x)-3=0

[Koksa]

а возможно ты прав!)