artiicc
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
люди помогите. составил прогу. в ней генерируються числа в случайном порядке(random вообщем) и соритуруються по убыванию. Но проблема в том что все числа равны нулю, какое бы кол-во чисел я бы не ввел.
вот сама прога если нужно
Код: program sortirovka;
var
i,w,j,k,n:integer;
dop:integer;
a:array [1..254] of integer;
begin
writeln ('vvedite chislo (n)');
readln (n);
writeln ('vvod massiva');
for n:=1 to n do
begin
w:=random(n);
write (n,'-element ->');
writeln (a[w]);
end;
writeln ('sortirovka');
for j:=1 to n+1 do
begin
for i:=1 to n+j do
begin
if a[i]>a[i-1] then
begin
dop:=a[i];
a[i]:=a[i-1];
a[i-1]:=dop
end;
end;
for n:=1 to n do write(a[random(n)],' ');
writeln;
readln
end;
writeln ('massiv otsortirovan.');
readln;
end.
|
в чем проблема, скажите плиз.
да и вопрос. есть вот задание найти значение S=сумма((-k)^k/((3^k)*k!) где k=1,2,3,..N с точностью до 0.01.
Вот что такое здесь точность я понял, но откуда брать N не пойму. Подскажите откуда она береться. дальше я сам постараюсь сделать. Там дальше должно быть не сложно |
Всего записей: 15 | Зарегистр. 16-10-2008 | Отправлено: 22:07 14-11-2008 | Исправлено: artiicc, 22:21 14-11-2008 |
|
