Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
ХЕЛЬГА
1 / 1 / 0
Регистрация: 07.04.2010
Сообщений: 27
#1

определить номера тех строк целочисленной матрици a[n,k]

08.04.2010, 07:40. Просмотров 755. Ответов 2
Метки нет (Все метки)

4...имеются метеоданные о среднемесячной температуре по всем мясацам в ряде стран (англия, германия, швеция, швейцария, и т. д.) составить программу которая;
1) формирует список стран в порядке невозростания среднемесячной температуры с указанием соответствующего значения,
2)формирует список стра среднегодовой температуры с указанием соответствующего значения,
3)для заданной стран находит месяци, в которых среднемесячная температура ниже(выше) установленного знчения,
4)для заданной стран находит месяци, в которых среднемесячная температура ниже(выше) среднего значения среднемесячной температуры всех стран.

5...определить номера тех строк целочисленной матрици a[n,k] которые совпадают с массивом d[k]. если таких массивов нет то выдать об этом сообщение.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.04.2010, 07:40
Ответы с готовыми решениями:

Определить номера тех строк целочисленной матрицы А[n,k], которые совпадают с массивом D [k]
Определить номера тех строк целочисленной матрицы А, которые совпадают с...

Определить номера тех строк массива, в которых есть хотя бы один элемент, равный 10
Дан целочисленный массив А. Определить номера тех строк массива, в которых есть...

Определить номера тех строк матрицы, в которых есть хотя бы один элемент, равный 10
Дан целочисленный массив А. Определить номера тех строк массива, в которых есть...

Где ошибка, Определить номера тех строк массива, в которых есть хотя бы один элемент, больше 10
Дан целочисленный массив А. Определить номера тех строк массива, в которых есть...

Двумерный массив: Определить номера тех строк массива, в которых есть хотя бы один элемент, равный 10
Дан целочисленный массив X (n и m вводится пользователем). Определить номера...

2
Puporev
Модератор
54221 / 41854 / 28923
Регистрация: 18.05.2008
Сообщений: 98,535
08.04.2010, 10:06 #2
Лучший ответ Сообщение было отмечено ХЕЛЬГА как решение

Решение

4. Вот у меня есть программа на эту тему, может и точно такая, лень проверять, посмотрите сами.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
uses crt;
const
m=10;{количество стран}
n=12;{количество месяцев}
strana:array[1..m]of string[10]=('Украина','Польша','Болгария','Германия',
                    'Англия','Италия','Франция','Швеция','Испания','Турция');
mesyac:array[1..n]of string[10]=('Январь','Февраль','Март','Апрель','Май','Июнь',
                    'Июль','Август','Сентябрь','Октябрь','Ноябрь','Декабрь');
var a:array[1..m,1..n+1] of real;{размер матрицы}
    i,j,ms,st,k:byte;
    sr,mn,mx,t:real;
    str:string[10];
begin
clrscr;
randomize;
writeln('Введите среднемесячную температуру по странам:');
for i:=1 to m do  {заполняем матрицу данными}
 begin
  writeln(strana[i],' ');
  for j:=1 to n do
   begin
    write(mesyac[j],'=');
    readln(a[i,j]);
   end;
  writeln;
 end;
clrscr;
{посчитаем среднюю температуру за год и запишем в дополнительный столбец}
for i:=1 to m do
 begin
  sr:=0;
  for j:=1 to n do
  sr:=sr+a[i,j];
  a[i,n+1]:=sr/n;
 end;
writeln('Матрица температур:':50,'Средн.':28);{выводим матрицу для обзора}
writeln;
for i:=1 to m do
 begin
  write(strana[i]);
  gotoXY(10,whereY);
  for j:=1 to n do
  write(a[i,j]:5:1);
  write(a[i,n+1]:8:1);
  writeln;
 end;
readln;
clrscr;
{сортируем по невозрастанию в указанном месяце}
repeat
writeln('Введите месяц, число 1-12:');
readln(ms);
until ms in [1..12];
for i:=1 to m-1 do
for j:=i+1 to m do
if a[i,ms]<a[j,ms] then
 begin
  t:=a[i,ms];
  a[i,ms]:=a[j,ms];
  a[j,ms]:=t;
  str:=strana[i];
  strana[i]:=strana[j];
  strana[j]:=str;
 end;
writeln('Страны по невозрастанию температуры в месяце ',mesyac[ms]);
for i:=1 to m do
 begin
  write(strana[i]);
  gotoXY(10,whereY);
  write(a[i,ms]:5:1);
  writeln;
 end;
readln;
clrscr;
{сортировка по невозрастанию среднегодовой температуры}
for i:=1 to m-1 do
for j:=i+1 to m do
if a[i,n+1]<a[j,n+1] then
 begin
  t:=a[i,n+1];
  a[i,n+1]:=a[j,n+1];
  a[j,n+1]:=t;
  str:=strana[i];
  strana[i]:=strana[j];
  strana[j]:=str;
 end;
writeln('Страныы по невозрастанию среднегодовой температуры:');
for i:=1 to m do
 begin
  write(strana[i]);
  gotoXY(10,whereY);
  write(a[i,n+1]:5:1);
  writeln;
 end;
readln;
clrscr;
{находим месяц с температурой ниже(выше) установленного значения для заданной страны}
repeat
write('Страна (1-10): ');
readln(st);
until st in [1..10];
write('Установленное значение температуры :');
readln(t);
writeln('В стране ',strana[st]);
writeln(' - температура ниже ',t:0:1,':');
k:=0;
for i:=1 to m do
if a[st,i]<t then
 begin
  k:=1;
  write(mesyac[i],' ');
 end;
writeln;
if k=0 then writeln('Таких месяцев нет!');
writeln(' - температура выше ',t:0:1,':');
k:=0;
for i:=1 to m do
if a[st,i]>t then
 begin
  k:=1;
  write(mesyac[i],' ');
 end;
writeln;
if k=0 then writeln('Таких месяцев нет!');
readln
end.
Добавлено через 15 минут
5.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    d:array[1..nmax] of integer;
    n,k,i,j,f,p:byte;
begin
clrscr;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' k=');
readln(k);
until k in [1..nmax];
writeln('Введите построчно элементы матрицы:');
for i:=1 to n do
for j:=1 to k do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
 end;
writeln('Введите элементы массива D:');
for i:=1 to k do
 begin
  write('d[',i,']=');
  readln(d[i]);
 end;
clrscr;
writeln('Исходная матрица A:');
for i:=1 to n do
 begin
  for j:=1 to k do
  write(a[i,j]:4);
  writeln;
 end;
writeln;
writeln('Массив D:');
for i:=1 to k do
write(d[i]:4);
writeln;
writeln('Номера строк, совпадающих с массивом D:');
f:=0;
for i:=1 to n do
 begin
  p:=0;
  for j:=1 to k do
   if a[i,j]<>d[j] then
    begin
     p:=1;
     break;
    end;
  if p=0 then
   begin
    f:=1;
    write(i,' ');
   end;
 end;
if f=0 then write('Таких строк нет!');
readln
end.
1
ХЕЛЬГА
1 / 1 / 0
Регистрация: 07.04.2010
Сообщений: 27
08.04.2010, 12:16  [ТС] #3
большое спасибо)))
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.04.2010, 12:16

Для матрицы из 6 строк и 5 столбцов отпечатать номера тех строк, сумма элементов которых кратна заданной величине, и число таких строк.
Для матрицы из 6 строк и 5 столбцов отпечатать номера тех строк, сумма...

Найти номера строк заданной целочисленной матрицы
Найти номера строк заданной целочисленной матрицы A(N, M), в которых: а) на...

Найдите номера строк заданной целочисленной матрицы A(N, M) , в которых:
Найдите номера строк заданной целочисленной матрицы A(N, M) , в которых: а)...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru