RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Консультация # 197096: Здравствуйте! Прошу помощи в следующем вопросе:Дан массив, состоящий из NХM элементов, значения которого – случайные числа из отрезка [Р, Т]. Найти среднее арифметическое элементов массива.В pascal ... Консультация # 197097: Уважаемые эксперты! Пожалуйста, ответьте на вопрос:Описать функцию Quarter(x, y) целого типа, определяющую номер координатной четверти, в которой находится точка с ненулевыми вещественными координатами (x, y). С помощью этой функции на йти номера координатных четвертей для трех точек с данными ненулевыми координатами. В pascal ... Консультация # 197098: Здравствуйте! У меня возникли сложности с таким вопросом:написать программу, которая вычисляет среднее арифметическое последовательности положительных чисел, которые вводятся с клавиатуры. признаком конца последовательности является число 0. в pascal ... Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:Вычислить произведение положительных чисел, лежащих на главной диагонали и ниже ее. через процедуру в pascal
Дата отправки: 15.11.2019, 10:26 Консультирует Зенченко Константин Николаевич (Старший модератор): Здравствуйте, JonMoxley! Код (Pascal) :: выделить код const
n=10;
type
tMas=array[1..n,1..n]of integer;
procedure InputArray(var a:tMas);
var
b,c:integer;
begin
for b:=1 to n do
for c:=1 to n do
begin
write('enter A[',b:2,',',c:2,']:=');
readln(a[b,c]);
end;
end;
procedure ShowArray(a:tMas);
var
b,c:integer;
begin
for b:=1 to n do
begin
for c:=1 to n do
write(a[b,c]:3);
writeln;
end;
end;
procedure Special(a:tMas;var d:integer);
var
e,f:integer;
begin
d:=1;
for e:=1 to n do
for f:=1 to e do
d:=d*a[e,f];
end;
var
a:tMas;
m:integer;
begin
InputArray(a);
ShowArray(a);
Special(a,m);
writeln('result:=',m);
end.Удачи!
Здравствуйте! Прошу помощи в следующем вопросе:Дан массив, состоящий из NХM элементов, значения которого – случайные числа из отрезка [Р, Т]. Найти среднее арифметическое элементов массива.В pascal
Дата отправки: 14.11.2019, 15:18 Консультирует puporev (Профессионал): Здравствуйте, JonMoxley! Код (Pascal) :: выделить код var a:array[1..15,1..15] of integer;
n,m,p,t,i,j:integer;
s:real;
begin
repeat
writeln('Введите количество строк и столбцов от 2 до 15');
readln(n,m);
until(n in [2..15])and(m in [2..15]);
repeat
write('Введите диапазон чисел p<t');
readln(p,t);
until p<t;
writeln('Массив А');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=p+random(t-p+1);
write(a[i,j]:5);
end;
writeln;
end;
s:=0;
for i:=1 to n do
for j:=1 to m do
s:=s+a[i,j];
s:=s/n/m;
write('Среднее арифметическое элементов=',s:0:2);
end.
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:Описать функцию Quarter(x, y) целого типа, определяющую номер координатной четверти, в которой находится точка с ненулевыми вещественными координатами (x, y). С помощью этой функции найти номера координатных четвертей для трех точек с данными ненулевыми координатами. В pascal
Дата отправки: 14.11.2019, 15:36 Консультирует Зенченко Константин Николаевич (Старший модератор): Здравствуйте, JonMoxley! Код (Pascal) :: выделить код var
x,y:real;
function Quarter(a,b:real):integer;
begin
Quarter:=1*ord(a>0)*ord(b>0)+
2*ord(a<0)*ord(b>0)+
3*ord(a<0)*ord(b<0)+
4*ord(a>0)*ord(b<0)
end;
begin
repeat write('x:=');readln(x)until x<>0;
repeat write('y:=');readln(y)until y<>0;
write('result:=',Quarter(x,y));
end.Удачи!
Здравствуйте! У меня возникли сложности с таким вопросом:написать программу, которая вычисляет среднее арифметическое последовательности положительных чисел, которые вводятся с клавиатуры. признаком конца последовательности является число 0. в pascal
Дата отправки: 14.11.2019, 16:00 Консультирует Зенченко Константин Николаевич (Старший модератор): Здравствуйте, JonMoxley! Код (Pascal) :: выделить код var
a,b:real;
c:integer;
begin
a:=0;
c:=0;
repeat
write('enter number:=');
readln(b);
if b<>0 then inc(c);
a:=a+b;
until b=0;
writeln('result:=',a/c);
end.Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
