delphi 7

[Надежда_ИСУ]

Здравствуйте!!!Подскажите пожалуйста что тут надо переделать для Delphi 7???

4. Цикл с условием (WHILE).
Даны положительные числа A и B (A> B). На отрезке длины A размещено максимально возможное кол-во отрезков длины B(без наложений).Не используя операций умножения и деления, найти кол-во отрезков B, размещёных на отрезке A.

procedure TForm1.Button1Click(Sender: TObject);
var i:string;a,b:integer;
begin
i:=-1;
while b<a do
begin
inc(b,b);
inc(i);
end;
Label1.Caption:=(i);
end;
end.

[Utkin]

i должен быть integer. Нельзя складывать строку. При выводе нужно преобразовать к строковому виду.

[eoln]

И ещё

while b<=a

, а то при b=2 и a=4 не сработает

[Надежда_ИСУ]

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

И ещё

while b<=a

, а то при b=2 и a=4 не сработает

procedure TForm1.Button1Click(Sender: TObject);
var i,a,b:integer;
begin
i:=-1;
while b=<a do выдает ошибку...
begin
inc(b,b);
inc(i);
end;
Label1.Caption:=inttostr(i);
end;
end.

[Надежда_ИСУ]

Ребят!!!Помогите пожалуйста сделать задачи!!!Я уже не успеваю экзамен сегодня(((
1. Цикл с параметром (For).
Дано вещественное число X (|X|<1) и целое число N(>0). Найти значение выражения
x+1*x(3 степень)/(2*3)+1*3*x(5 степень)/(2*4*5)+...+
1*3...(2*N-1)*x(2*n+1 степень))/(2*4...(2*N)*(2*N+1)).
Полученное число является приближенным значению функции arcsin в точке X.
2. Цикл с постусловием (Repeat/Do-WHILE).
Дано целое число N(>1). Если оно является простым, т.е. не имеет положительных делителей, кроме 1 и само на себя, то вывести TRUE, иначе вывести FALSE.
3. Одномерный массив (Array).
Дано целое число N(>0). Сформировать и вывести целочисленный массив размера N, содержащий степени двойки от первой до N-й :2,4,8,16,...
4. Последовательности (Series).
Даны десять вещественных чисел. Найти их произведение.

[eoln]

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

while b<=a

Сообщение от Надежда_ИСУ

while b=<a do выдает ошибку...

Сообщение от Надежда_ИСУ

Ребят!!!Помогите пожалуйста сделать задачи!!!Я уже не успеваю экзамен сегодня(((

Ни пуха, ни пера!
Ежели ещё требуются задачи, то наработки в студию. А, вообще-то, по правилам надо новую тему создавать (тема должна отражать суть проблемы без слов "спасите"/"помогите"), ну и с наработками своими конечно, пусть даже ужасно неправильными. Иначе шансов мало.

[Надежда_ИСУ]

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

Ни пуха, ни пера!
Ежели ещё требуются задачи, то наработки в студию. А, вообще-то, по правилам надо новую тему создавать (тема должна отражать суть проблемы без слов "спасите"/"помогите"), ну и с наработками своими конечно, пусть даже ужасно неправильными. Иначе шансов мало.

В том то и дело, что наработок совсем нет(((

[eoln]

Посоветую создать тему в разделе http://programmersforum.ru/forumdisplay.php?f=29
Там быстро помогут, но не бесплатно.