| ← Июнь 2016 → | ||||||
|
1
|
2
|
3
|
4
|
5
|
||
|---|---|---|---|---|---|---|
|
6
|
7
|
9
|
10
|
12
|
||
|
13
|
15
|
16
|
17
|
18
|
19
|
|
|
21
|
23
|
24
|
25
|
26
|
||
|
29
|
30
|
|||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Консультация # 189566: Здравствуйте! Прошу помощи в следующем вопросе: Написать программу в Паскаль : Найдите среднее арифметическое и геометрическое значение соответствующих элементов массивов М и N . Выведите результаты на эк- ран в виде одномерных массивов. ... Здравствуйте! Прошу помощи в следующем вопросе:
Дата отправки: 09.06.2016, 21:56 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, amelya.kuro! Код (Pascal) :: выделить код const
n=10;
var
a:array[1..n]of integer;
b,c:longint;
d:integer;
begin
b:=1;{начальное значение}
c:=1;{начальное значение}
randomize;
for d:=1 to n do
begin
a[d]:=random(100);{создаем случайно}
write(a[d]:5);{выводим}
if odd(d) then b:=b*a[d]{нечетные позиции}
else c:=c*a[d];{четные позиции}
end;
writeln;{выводим результат}
writeln('chet:=':10,c:10);
writeln('nechet:=':10,b:10);
end.Удачи!
Здравствуйте! Прошу помощи в следующем вопросе:
Дата отправки: 09.06.2016, 21:59 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, amelya.kuro! Код (Pascal) :: выделить код const
a=10;
var
i:integer;
m,n:array[1..a]of integer;
begin
randomize;
{создаем и выводим массив М}
writeln('Massiv M:');
for i:=1 to a do
begin
m[i]:=random(50);
write(m[i]:7);
end;
writeln;
{создаем и выводим массив N}
writeln('Massiv N:');
for i:=1 to a do
begin
n[i]:=random(50);
write(n[i]:7);
end;
writeln;
{среднеарифметическое}
writeln('arifmetic:');
for i:=1 to a do
write((m[i]+n[i])/2:7:3);
writeln;
{среднегеометрическое}
writeln('geometric:');
for i:=1 to a do
write(sqrt(m[i]+n[i]):7:3);
writeln;
end.Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
