| ← Декабрь 2019 → | ||||||
|
3
|
4
|
5
|
||||
|
9
|
10
|
11
|
12
|
15
|
||
|
16
|
19
|
20
|
21
|
22
|
||
|
23
|
26
|
28
|
29
|
|||
|
30
|
31
|
|||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Консультация # 197484: Здравствуйте! У меня возникли сложности с таким вопросом: Вычислить сумму квадратов чисел, принадлежащих промежутку (A, B] и стоящих на нечетных местах; подсчитать количество чисел, не меньших заданного С.... Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Дата отправки: 22.12.2019, 23:39 Консультирует puporev (Профессионал): Здравствуйте, dkhrebtovich! Код (Pascal) :: выделить код type mtr=array[1..20,1..20] of integer;
procedure matrix(var a:mtr;var n:integer);
var i,j:integer;
begin
repeat
writeln('Введите размер матрицы от 5 до 20');
readln(n);
until n in [5..20];
writeln('Матрица');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=10+random(90);
write(a[i,j]:3);
end;
writeln;
end;
end;
procedure count(a:mtr;n,k:integer);
var i,j,p,q:integer;
begin
q:=0;
p:=n div 2;//количество строк выше середины матрицы
if n mod 2=0 then p:=p-1;
for i:=1 to p do
for j:=i+1 to n-i do
if(j>k)and odd(a[i,j]) then inc(q);
write('Количество нечетных элементов выше диагоналей и правее столбца ',k,'=',q)
end;
var a:mtr;
n,k:integer;
begin
matrix(a,n);
repeat
write('Введите номер столбца от 1 до ',n-2,' k=');
readln(k);
until k in [1..n-2];
count(a,n,k);
end.
Здравствуйте! У меня возникли сложности с таким вопросом:
Дата отправки: 22.12.2019, 23:42 Консультирует puporev (Профессионал): Здравствуйте, dkhrebtovich! Код (Pascal) :: выделить код var x:array[1..100] of real;
n,i,k:integer;
a,b,c,s:real;
begin
repeat
write('Введите размеры массива от 10 до 100 n=');
readln(n);
until(n in [10..100]);
randomize;
writeln('Массив');
for i:=1 to n do
begin
x[i]:=9*random;
write(x[i]:5:2);
end;
writeln;
repeat
writeln('Введите диапазон чисел для поиска a<b');
readln(a,b);
until a<b;
write('Введите число для определения минимума c=');
readln(c);
s:=0;
k:=0;
for i:=1 to n do
begin
if(x[i]>a)and(x[i]<=b)and(i mod 2<>0)then s:=s+sqr(x[i]);
if x[i]>=c then k:=k+1;
end;
writeln('Сумма квадратов элементов принадлежащих промежутку (',a:0:2,',',b:0:2,']');
writeln('и стоящих на нечетных местах=',s:0:2);
writeln('Количество чисел, не меньших ',c:0:2,'=',k);
end.
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
