Задача в Delphi

[Susumi]

1-ая задача. Известны объем и масса тела, Опр-ть плотность материала;

2-ая задача. Вычислить P=a(a+1)...(a+n-1);

3-ая задача. Дан массив целых чисел из 30 элементов. Вычислить сумму отрицательных элементов;

help нада сделать приложение в Delphi.

[kos1nus]

2-ая задача - между скобками умножение? т.е. вот так ? a*(a+1)*(a+2)* . . . *(a+n)? еще я непонял почему там n-1 ? хотя вероятно n это количество множителей и "a" это будет первый множитель.

 

3-ая задача - а как этот массив заполняется? вручную или случайным образом? или это вообше не важно?

[Susumi]

да массив

[kos1nus]

да массив

ясненько . . .

 

вот так код выглядит под паскаль. тебе такой нужен? или у тебя есть форма с кнопками и полями ввода?

program AGHR1;
var 
m:integer;
v:integer;
p:real;
begin
readln m;
readln v;
p:=m/v;
writeln p;
end.

program AGHR2;
var 
a:integer;
n:integer;
g:integer;
begin
readln n;
readln a;
G:=1;
for i=1 to n do	g:=g*(a+i-1);
writeln g;
end.

program AGHR3;
var 
mass: array[1..30] of integer;
summ: integer;
begin
for i:=1 to 30 do
begin
randomize;
mass[i]:=random(100);
end;
for i:=1 to 30 do
begin  
if mass[i]<0 then summ:=summ+mass[i]; 
end;
writeln summ;
end.

 

ЗЫ писал на память и без возможности проверить его работоспособность. так что если у кого есть замечания высказывайте))

Изменено 21 декабря, 2009 пользователем kos1nus

[Susumi]

kos1nus спасибо уже сегодня на практике сдал хорошо)))))