Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
BoGa
0 / 0 / 0
Регистрация: 07.03.2012
Сообщений: 32
#1

Даны два двумерных массива, в том из них, где среднее арифметическое элементов главной диагонали больше - Turbo Pascal

13.03.2012, 10:02. Просмотров 485. Ответов 9
Метки нет (Все метки)

Даны два двумерных массива, в том из них, где среднее арифметическое элементов главной диагонали больше, раскрасить красным цветом максимальный элемент главной диагонали. Ввод, вывод, получение и окрашивание организовать в виде процедур, подсчет среднего арифметического главной диагонали – в виде функции. Процедуры и функции программиста расположить в отдельном модуле.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.03.2012, 10:02
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Даны два двумерных массива, в том из них, где среднее арифметическое элементов главной диагонали больше (Turbo Pascal):

Даны два двумерных массива, в том из них, где сумма элементов главной диагонали больше, раскрасить желтым цветом первый - Turbo Pascal
Даны два двумерных массива, в том из них, где сумма элементов главной диагонали больше, раскрасить желтым цветом первый и последний...

Даны два двумерных массива, в том из них, где среднее арифметическое положительных элементов больше, раскрасить розовым цветом первый и последний поло - Turbo Pascal
Даны два двумерных массива, в том из них, где среднее арифметическое положительных элементов больше, раскрасить розовым цветом первый и...

Даны два двумерных массива, в том из них, где среднее положительных элементов больше, раскрасить розовым цветом первый и последний положительный... - Turbo Pascal
Даны два двумерных массива, в том из них, где среднее арифметическое положительных элементов больше, раскрасить розовым цветом первый и...

Определить, больше ли среднее арифметическое элементов массива произведения элементов его главной диагонали - Turbo Pascal
Присвоить переменной t значение true, если среднее арифметическое элементов двумерного массива больше произведения элементов, находящихся...

Проверить, среднее арифметическое элементов двумерного массива больше произведения элементов главной диагонали - Pascal
2)Присвоить переменной t значение true, если среднее арифметическое элементов двумерного массива больше произведения элементов, находящихся...

Даны два квадратных массива А и В.Вывести на экран тот из них, у которого след меньше(сумма элементов главной диагонали). - Pascal
Двумерные массивы.(с процедурами и функциями). Даны два квадратных массива А и В.Вывести на экран тот из них, у которого след...

9
Puporev
Модератор
54007 / 41640 / 14723
Регистрация: 18.05.2008
Сообщений: 97,884
13.03.2012, 10:31 #2
Текст модуля.
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
unit unit1;
interface
uses crt;
const nmax=20;
type matr=array[1..nmax,1..nmax] of integer;
var m:byte;
procedure Vvod(var a:matr;c:char);
function Sred(a:matr):real;
procedure Vyvod(a:matr;c:char);
implementation
procedure Vvod;
var i,j:byte;
begin
writeln('Исходная матрица ',c);
for i:=1 to m do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:4);
   end;
  writeln;
 end;
end;
 
function Sred;
var i:byte;
    s:real;
begin
s:=0;
for i:=1 to m do
s:=s+a[i,i];
Sred:=s/m;
end;
 
procedure Vyvod;
var i,j,k:byte;
begin
writeln('Матрица ',c);
k:=1;
for i:=1 to m do
if a[i,i]>a[k,k] then k:=i;
for i:=1 to m do
 begin
  for j:=1 to m do
   begin
    if(i=k)and(j=k) then textcolor(12)
    else textcolor(15);
    write(a[i,j]:4);
   end;
  writeln;
 end;
textcolor(15);
end;
end.
Текст программы.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt,unit1;
var a,b:matr;
    sa,sb:real;
begin
clrscr;
repeat
write('Размер матриц до ',nmax,' m=');
readln(m);
until m in [1..nmax];
Vvod(a,'A');
sa:=Sred(a);
writeln('Среднее гл. диагонали=',sa:0:2);
writeln;
Vvod(b,'B');
sb:=Sred(b);
writeln('Среднее гл. диагонали=',sb:0:2);
writeln;
if sa>sb then Vyvod(a,'A')
else Vyvod(b,'B');
readln
end.
0
Panico
0 / 0 / 0
Регистрация: 30.03.2012
Сообщений: 3
30.03.2012, 20:15 #3
этот вариант программы не работает.. Модуль расположил в одной папке с кодом программы, выдает массу ошибок...
0
Puporev
Модератор
54007 / 41640 / 14723
Регистрация: 18.05.2008
Сообщений: 97,884
30.03.2012, 20:37 #4
Цитата Сообщение от Panico Посмотреть сообщение
выдает массу ошибок...
Да что ты говоришь? Значит ты напакостил чего-то...
0
Puporev
Модератор
54007 / 41640 / 14723
Регистрация: 18.05.2008
Сообщений: 97,884
30.03.2012, 20:43 #5
Вот результат работы программы по этому коду.
0
Миниатюры
Даны два двумерных массива, в том из них, где среднее арифметическое элементов главной диагонали больше  
Panico
0 / 0 / 0
Регистрация: 30.03.2012
Сообщений: 3
30.03.2012, 21:04 #6
ну возможно..

Добавлено через 12 минут
Error: Identifier not found "c"
unit1.pas(19,6) Error: Identifier not found "a"
unit1.pas(20,12) Error: Identifier not found "a"
unit1.pas(26,14) Fatal: Syntax error, ":" expected but ";" found

Вот что у меня выдает... скажи, что у меня не так... буду признателен
0
Puporev
Модератор
54007 / 41640 / 14723
Регистрация: 18.05.2008
Сообщений: 97,884
30.03.2012, 21:05 #7
Цитата Сообщение от Panico Посмотреть сообщение
что у меня не так.
А откуда я знаю? У меня-то все нормально.
0
BoGa
0 / 0 / 0
Регистрация: 07.03.2012
Сообщений: 32
30.03.2012, 21:06  [ТС] #8
У меня тоже все работает и ошибок не выдает
0
Panico
0 / 0 / 0
Регистрация: 30.03.2012
Сообщений: 3
30.03.2012, 21:08 #9
ну ладно, спасибо , постараюсь разобраться, что не так у меня
0
Puporev
Модератор
54007 / 41640 / 14723
Регистрация: 18.05.2008
Сообщений: 97,884
30.03.2012, 21:11 #10
Это раздел Турбо Паскаль. Если делаете во Фрее, то в тот раздел и нужно писать, не конопатить мозги своей тупостью.

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
unit unit1;
interface
uses crt;
const nmax=20;
type matr=array[1..nmax,1..nmax] of integer;
var m:byte;
procedure Vvod(var a:matr;c:char);
function Sred(a:matr):real;
procedure Vyvod(a:matr;c:char);
implementation
procedure Vvod(var a:matr;c:char);
var i,j:byte;
begin
writeln('Исходная матрица ',c);
for i:=1 to m do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:4);
   end;
  writeln;
 end;
end;
 
function Sred(a:matr):real;
var i:byte;
    s:real;
begin
s:=0;
for i:=1 to m do
s:=s+a[i,i];
Sred:=s/m;
end;
 
procedure Vyvod(a:matr;c:char);
var i,j,k:byte;
begin
writeln('Матрица ',c);
k:=1;
for i:=1 to m do
if a[i,i]>a[k,k] then k:=i;
for i:=1 to m do
 begin
  for j:=1 to m do
   begin
    if(i=k)and(j=k) then textcolor(12)
    else textcolor(15);
    write(a[i,j]:4);
   end;
  writeln;
 end;
textcolor(15);
end;
end.
0
30.03.2012, 21:11
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.03.2012, 21:11
Привет! Вот еще темы с ответами:

Даны два двухмерных массива размерности n x n. Вывести на экран тот из них у кого сумма элементов главной диагонали меньше. - Pascal
Решите пожалуйста задачу поставленную передо мной вот условия:Даны два двухмерных массива размерности n x n. Вывести на экран тот из них у...

Даны два квадратных массива А и В. Вывести на экран тот из них, у которого след меньше (сумма элементов главной диагонали) - Pascal
Даны два квадратных массива А и В. Вывести на экран тот из них, у которого след меньше (сумма элементов главной диагонали) помогите...

даны вещественные числа b1,b2,...,b9.определить среднее арифметическое тех из них,которые больше 10. - Pascal
даны вещественные числа b1,b2,...,b9.определить среднее арифметическое тех из них,которые больше 10.(и если можно,помогите с блок-схемой...)

Найти среднее арифметическое значений элементов, стоящих на главной диагонали двумерного массива, размера 4х4, заполненного случайными числами. - Turbo Pascal
Напишите пожалуйста решение!СПАСИБО! Найти среднее арифметическое значений элементов, стоящих на главной диагонали двумерного массива,...


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

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

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