сервис вопросов и ответовПомогите решить массив в паскале,пожалуйста!!!
10-11 класс|
|
Дано:массивы А1(N1,M1),A2(N2,M2),A3(N3,M3). Сформировать одномерные массивы В1,В2,В3,каждый из которых состоит из элементов,лежащих в интервале [1,3] массивов А1,А2,А3 соответственно. Формирование одномерного массива,состоящего из элементов исходного массива, лежащих в интервале[1,3], осуществить в подпрограмме.
Violabakuleva
29 июля 2013 г., 9:47:02 (10 лет назад)
Qwertyzorro
29 июля 2013 г., 11:20:42 (10 лет назад)
type
arr = array[,] of integer;
arrB = array of integer;
var
A1, A2, A3: arr;
B1, B2, B3: arrB;
n,m:integer;
procedure Zapoln(var A: arr;k:integer);
var i, j, n, m: integer;
begin
writeln('Массив А',k);
n:= Length(A,0);
m:= Length(A,1);
for i := 0 to n-1 do
begin
for j := 0 to m-1 do
begin
A[i,j]:=random(10);
write(A[i,j]:2)
end;
writeln
end
end;
procedure FormB(a:arr;var b:arrB;n,m,r:integer);
var i,j,k:integer;
begin
writeln('Массив В',r);
for i:=0 to n-1 do
for j:=0 to m-1 do
if (1<=a[i,j]) and (a[i,j]<=3) then
begin
b[k]:=a[i,j];
write(b[k]:3);
k:=k+1
end;
writeln
end;
function razm(a: arr;n,m:integer):integer;
var i,j:integer;
begin
for i:=0 to n-1 do
for j:=0 to m-1 do
if (1<=a[i,j]) and (a[i,j]<=3) then result:=result+1
end;
begin
write('Введите N1 и M1: ');
readln(n,m);
SetLength(A1, n, m);
Zapoln(A1,1);
SetLength(B1, Razm(A1,n,m));
formB(A1,B1,n,m,1);
write('Введите N2 и M2: ');
readln(n,m);
SetLength(A2, n, m);
Zapoln(A2,2);
SetLength(B2, Razm(A2,n,m));
formB(A2,B2,n,m,2);
write('Введите N3 и M3: ');
readln(n,m);
SetLength(A3, n, m);
Zapoln(A3,3);
SetLength(B3, Razm(A3,n,m));
formB(A3,B3,n,m,3);
end.
Hisamutdinovvvv
29 июля 2013 г., 12:02:30 (10 лет назад)
Вечно у тебя, Жека, какие-то задания заумные. Где ты их только берешь?))
Lololoshka112
29 июля 2013 г., 13:50:30 (10 лет назад)
в институте)) я так замахалась уже их сюда писать :D
Frigiya
29 июля 2013 г., 14:33:19 (10 лет назад)
Тебе писать, а кому-то решать!))
AngelLina2014
29 июля 2013 г., 15:46:07 (10 лет назад)
даа, спасибо им) огромное:-) выручают)))
Adik123
29 июля 2013 г., 17:23:41 (10 лет назад)
Вот, что-то сотворил. Принимай, проверяй.
Ответить
Другие вопросы из категории
A B C D E F 1 2 3 1 2 3 4 4 11 13 15 17 5 21 24 27 30 6 31 35 39 43 В ячейке А1 записали формулу
=E$5-SD4. После этого ячейку А1 скопировали в ячейку В2. Какое число будет показано в ячейке В2?
Знак $используется для обозначения абсолютной адресации
1)6
2)14
3)16
4)24
Производится стереозвукозапись с частотой дискретизации 16 кГц и 16-битным разрешением.запись длится 1 минуту и 4 секунды. Какое из приведенных ниже
чисел наиболее близко к размеру полученного файла.
1)0.4
2) 2
3) 3
4) 4
СРОЧНО!Пишу прогу с процедурами, которая считает количество "особых "элементов матрицы, но в конце проги не работает writeln, в чём может быть проблема?
Вот задача.
Заданная целочисленная матрица размером NXM. Определить k-количество "особых" элементов матрицы, считая элемент "особым", если в его строке слева от него находятся элементы, меньшие его, а справа - большие.
Вот мой код.И если уж у меня все плохо,то предложите свой код программы.
program samost;
const n=5;
m=5;
type tmatr = array[1..n, 1..m] of integer;
var a:tmatr;
i,j,k:integer;
procedure PrintMatrix(var g:tmatr);
begin
var i,j,k:integer;
for i:=1 to n do
begin
for j:=1 to n do
write(g[i,j]:4);
writeln
end;
end;
procedure MakeMatrix;
begin
var i,j,k:integer;
randomize;
for i:=1 to n do
for j:=1 to n do
begin
a[i,j]:=random(10)-5;
end;
end;
begin
MakeMatrix;
writeln('matrica A: ');
PrintMatrix(a);
k:=0;
for i:=1 to n do
for j:=1 to m do
begin
if (a[i,j]<a[i+1,j])and(a[i,j]>a[i-1,j]) then inc(k)
end;
writeln('kolichestvo elementov = ',k);
end.
Читайте также
Очень срооочно!!!Помогите решить подпрограмму в паскале,пожалуйста!!!!!!
Дано:массивы А1(N1,M1),A2(N2,M2),A3(N3,M3). Вычислить Х=Х1+Х2+Х3 и Y1+Y2+Y3, где Х1,Х2,Х3-количество нулей в каждом из массивов А1,А2,А3 соответственно, а Y1,Y2,Y3-количество элементов в каждом из этих массивов,лежащих в интервале [1,12]. Определение количества нулей в массиве и количества элементов, лежащих в этом интервале, оформить в виде подпрограммы.
Помогите решить задачу.
Дан массив А1,.......Аn. найти максимальный и минимальный элементы и поменять их местами. Вот задача которую я делал:
program zadacha;
const
k=50;
var
a:array[1..k] of integer;
n,i:1..k;
c,v,max,min,prom:integer;
begin
for i:=1 to n do begin (здесь выскакивает ошибка о проверки диапазона)
a[i]:=random(50);
write(a[i],' ');
end;
max:=a[1];
min:=a[1];
for i:=1 to n do begin
if a[i]>max then begin
max:=a[i];
c:=i;
end;
if a[i]<min the begin
min:=a[i];
v:=i;
end;
end;
writeln('max=',max,'min=',min);
prom:=max; (вот с этой строчки и до конца помогите решить)
max:=min;
min:=prom;
writeln;
writeln('Полученный массив');
for i:=1 to n do
write(a[i], ' ');
readln;
end.
пожалуйста ... помогите.... очень срочно нужно... помогите решить задачу на Паскале....отсортировать массив из пяти элементов и подсчитать количество
уникальных чисел в массиве....заранее спасибо...
Помогите решить две задачки (Паскаль)
Задание 1
В одномерном массиве случайных вещественных числе F(17) определить количество положительных элементов и их сумму.
Задание 2
В матрице L(5,5) случайных вещественных чисел определить максимальный элемент выше побочной диагонали, поменять его местами с элементом 2 строки 2 столбца.
Большая просьба расписать задачу подробно , хочу не просто списать решения , а понять его и научиться решать сам , огромное спасибо.
Вы находитесь на странице вопроса "Помогите решить массив в паскале,пожалуйста!!!", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.