Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ массивы и рандомные числа
Автор: memfis 17.01.2006 13:34
Уважаемые форумчяне пожалуйста помогите правильно решить задачу а то сижу на экзамене и нажна срочно помошь. Я понимаю, что это медвежья услуга, но войдите в положение не разобрался в теме.
Условие:
Сформироватьь три последовательности из десяти случайных чисел каждая. Значения чисел -10<=n<50. Определить среднее арифметическое каждой такой последовательности.
Автор: Гость 17.01.2006 14:29
ребят ну помогите экзамен тот идтё.
Автор: Ozzя 17.01.2006 14:42
В этой формуле не уверен 
random(50-10)-10;
Код
var
i:Integer;
sum1,sum2,sum3:real;
a1,a2,a3:array [1..10] of Integer;
begin
randomize;
for i:=1 to 10 do
begin
a1[i]:=random(50-10)-10;
a2[i]:=random(50-10)-10;
a3[i]:=random(50-10)-10;
WriteLn(a1[i]:8,a2[i]:8,a3[i]:8);
end;
sum1:=0;sum2:=0;sum3:=0;
for i:=1 to 10 do
begin
sum1:=a1[i]+sum1;
sum2:=a2[i]+sum2;
sum3:=a3[i]+sum3;
end;
sum1:=sum1/10;
sum2:=sum2/10;
sum3:=sum3/10;
WriteLn(sum1,sum2,sum3);
end.
i:Integer;
sum1,sum2,sum3:real;
a1,a2,a3:array [1..10] of Integer;
begin
randomize;
for i:=1 to 10 do
begin
a1[i]:=random(50-10)-10;
a2[i]:=random(50-10)-10;
a3[i]:=random(50-10)-10;
WriteLn(a1[i]:8,a2[i]:8,a3[i]:8);
end;
sum1:=0;sum2:=0;sum3:=0;
for i:=1 to 10 do
begin
sum1:=a1[i]+sum1;
sum2:=a2[i]+sum2;
sum3:=a3[i]+sum3;
end;
sum1:=sum1/10;
sum2:=sum2/10;
sum3:=sum3/10;
WriteLn(sum1,sum2,sum3);
end.
Автор: Malice 17.01.2006 15:56
(50+10)-10, иначе будет от -10 до 30.
Автор: Ozzя 17.01.2006 16:21
Цитата(Malice @ 17.01.2006 11:56) 
(50+10)-10, иначе будет от -10 до 30.
Спасибо, да
random от l до k
Random(k-l)+l