Решение задач в Delphi 7

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

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

Странный вопрос. Сам по себе цикл - это элемент алгоритма в программировании. И работает он в зависимости от типа, а их всего три: с предусловием, с постусловием и пошаговый (точное название не помню, но это тот, который for).

Отсюда вывод: работает одинаково везде, только форма записи зависит от языка программирования

Ладно, надо разбираться...

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

Сообщение от 3D Hunter

поздно?девушка,сегодня сплюн четверг.у вас еще 3 полных дня!а бы руки скрестили и ждете чуда.

i:=-1;
while b<a do
begin
inc(b,b);
inc(i);
end;

где i - полученное число отрезков единичной длины.

А вот это:
inc(b,b);
inc(i);
за что отвечает???

[Sciv]

inc(i) то же самое, что i:=i+1
inc(b,b) <-> b:=b+b

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

Добрый день!!!
Подскажите, как можно переделать задачу под Delphi 7???
Дано целое число N (>0). Сформировать и вывести целочисленный
массив размера N, содержащий степени двойки от первой до N-й:
2, 4, 8, 16, ...}
uses crt;
const n=15;
var m:array[1..n]of integer;
i:integer;
begin
m[1]:=2;
for i:=2 to n do m[i]:=m[i-1]*2;
for i:=1 to n do write(m[i]:8);
end.

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

Добрый день!!!Подскажите как можно переделать задачу под Delphi 7?
Последовательности (Series).
Даны десять вещественных чисел. Найти их произведение.
var
i:integer;
a,Pro:real;
begin
i:=0;
Writeln('Введите десять вещественных чисел');{заголовок}
Pro:=1;
While (i<10) do
begin
Read(a);
Pro:=Pro*a;
inc(i);
end;
Write('Произведение введённых чисел = ',Pro);
end.

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

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

Добрый день!!!Подскажите как можно переделать задачу под Delphi 7?
Последовательности (Series).
Даны десять вещественных чисел. Найти их произведение.
var
i:integer;
a,Pro:real;
begin
i:=0;
Writeln('Введите десять вещественных чисел');{заголовок}
Pro:=1;
While (i<10) do
begin
Read(a);
Pro:=Pro*a;
inc(i);
end;
Write('Произведение введённых чисел = ',Pro);
end.

НУ вот примерно так???
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
a,p:real;
begin
i:=0;
p:=1;
While (i<10) do
begin
P:=P*a;
inc(i);
end;
Label1.Caption:=P;
end;
end.

[Sciv]

Label1.Caption:=FloatToStr(P);

Так правильно.