Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
traicool
0 / 0 / 0
Регистрация: 04.01.2013
Сообщений: 20
1

Найти среднее арифметическое чисел первого столбца матрицы

11.01.2013, 23:42. Просмотров 510. Ответов 14
Метки нет (Все метки)

Exitcode=1

Не знаю, почему вылетает:
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
Program SredniStolbec;
Uses
  Crt;
Const
  n=5;
  m=5;
Var
  A:array [1..n,1..m] of integer;
  Sum,Kol,I,J,b:integer;
 
Begin
Randomize;
For I:=1 to n do
For J:=1 to m do
  A[i,j]:=random(100);
 
For I:=1 to n do
For J:=1 to m do
  begin
  Write(A[i,j]);
  If (I=5) then
    Write(#13#10);
  end;
 
Sum:=0;
Kol:=0;
 
For J:=1 to n  do
  Sum:=Sum+ A[j,1];
Sum:=(Sum div n);  
Writeln('Среднее арифметическое чисел первого столбца: ',Sum);
 
For i:=2 to m do
For j:=1 to n do
  If (a[j,i]>sum) then
    Kol:=Kol+1;
Writeln('Кол-во найденых чисел: ',Kol); 
 
ReadKey;    
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.01.2013, 23:42
Ответы с готовыми решениями:

Определить среднее арифметическое значение чисел в столбцах матрицы, находящихся до среднего столбца
дана задача: В матрице A определить среднее арифметическое значение чисел в...

Найти среднее арифметическое положительных элементов каждого столбца матрицы X
Найти среднее арифметическое положительных элементов каждого столбца матрицы X...

Найти количество элементов в столбце матрицы, превышающих среднее арифметическое предыдущего столбца
Доброго времени суток! Помогите, пожалуйста, необходимо написать программу по...

Найти среднее арифметическое квадратов двух чисел и среднее арифметическое их модулей
1. Даны два числа. Найти среднее арифметическое их квадратов и среднее...

Найти среднее арифметическое элементов матрицы
Ребят, я к заданию ели написала программу и примерно знаю, что она должна...

14
kop_andrey
2 / 2 / 4
Регистрация: 09.01.2013
Сообщений: 20
11.01.2013, 23:46 2
traicool, напиши что должна делать программа.
0
traicool
0 / 0 / 0
Регистрация: 04.01.2013
Сообщений: 20
11.01.2013, 23:48  [ТС] 3
В двухмерном массиве n на m найдите среднее арифметическое первого столбца и количество элементов в каждом из следующих столбцов, превышающих среднее арифметическое предыдущего столбца.

Тут даже дело не в том что я не знаю как сделать программу, а хочу понять где ошибка в этой, сделанной!
0
kop_andrey
2 / 2 / 4
Регистрация: 09.01.2013
Сообщений: 20
11.01.2013, 23:54 4
Цитата Сообщение от traicool Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
For I:=1 to n do
For J:=1 to m do
  begin
  Write(A[i,j]);
  If (I=5) then
   Write(#13#10);
  end;
в этой строке ошибка. Замени её на такую:
Pascal
1
2
3
4
5
6
7
8
For I:=1 to n do
begin
For J:=1 to m do
  begin
  Write(A[i,j],' ');
  end;
  writeln;
end;
А так всё правильно
0
traicool
0 / 0 / 0
Регистрация: 04.01.2013
Сообщений: 20
11.01.2013, 23:59  [ТС] 5
Хм, ошибка не пропала. Все таже ExitCode = 1...
0
igor_kz
150 / 150 / 80
Регистрация: 16.06.2012
Сообщений: 312
12.01.2013, 00:02 6
Да, по идее все правильно, никакого exitcode = 1, если ты компилируешь во free-pascal)
0
kop_andrey
2 / 2 / 4
Регистрация: 09.01.2013
Сообщений: 20
12.01.2013, 00:05 7
Интересно. У меня всё работает. Проверил во free pascale и в ABC.
Попробуй вот что:
если компилируешь во free, то убери вот это:
Цитата Сообщение от traicool Посмотреть сообщение
Uses
* Crt;
а так же, вместо
Цитата Сообщение от traicool Посмотреть сообщение
ReadKey;
напиши readln;
0
traicool
0 / 0 / 0
Регистрация: 04.01.2013
Сообщений: 20
12.01.2013, 00:08  [ТС] 8
Вылетает, компилируя во Free Pascal. Магия какая то...

Добавлено через 1 минуту
Вылетает и при этом раскладе
0
igor_kz
150 / 150 / 80
Регистрация: 16.06.2012
Сообщений: 312
12.01.2013, 00:08 9
Все успешно запускается и работает, даже на TP 7.0 =)
0
senich
61 / 61 / 77
Регистрация: 22.11.2012
Сообщений: 241
Записей в блоге: 1
12.01.2013, 00:09 10
Теперь работает.
P.S. Массив лучше выводить так, как это сделал я.
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
Program SredniStolbec;
Uses
  Crt;
Const
  n=5;
  m=5;
Var
  A:array [1..n,1..m] of integer;
  Sum,Kol,I,J,b:integer;
 
Begin
Randomize;
For I:=1 to n do
  For J:=1 to m do
    A[i,j]:=random(100);
 
For I:=1 to n do
  begin
  For J:=1 to m do
    Write(A[i,j]:4);
  writeln;
  end;
 
Sum:=0;
Kol:=0;
 
For J:=1 to n  do
  Sum:=Sum+ A[j,1];
Sum:=(Sum div n);
Writeln('ÑðåäГ*ГҐГҐ Г*ðèôìåòè÷åñêîå Г·ГЁГ±ГҐГ« ïåðâîãî ñòîëáöГ*: ',Sum);
 
For i:=2 to m do
  For j:=1 to n do
    If (a[j,i]>sum) then
      Kol:=Kol+1;
Writeln('Êîë-ГўГ® Г*Г*éäåГ*ûõ Г·ГЁГ±ГҐГ«: ',Kol);
 
ReadKey;
end.
0
kop_andrey
2 / 2 / 4
Регистрация: 09.01.2013
Сообщений: 20
12.01.2013, 00:09 11
Значит проблема в компиляторе. Перезапусти pascal. Не поможет, перезагрузи компьютер. Как видишь, у всех прекрасно запускается.
А ещё попробуй увеличить размер массива.
Цитата Сообщение от traicool Посмотреть сообщение
A:array [1..100,1..100] of integer;
Поставь, например, от 100 до 100
0
traicool
0 / 0 / 0
Регистрация: 04.01.2013
Сообщений: 20
12.01.2013, 00:14  [ТС] 12
Не работет
0
igor_kz
150 / 150 / 80
Регистрация: 16.06.2012
Сообщений: 312
12.01.2013, 00:15 13
Скачай новый free pascal)
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26507 / 17801 / 7043
Регистрация: 22.10.2011
Сообщений: 31,328
Записей в блоге: 6
12.01.2013, 00:24 14
Цитата Сообщение от igor_kz Посмотреть сообщение
Скачай новый free pascal)
Не надо этого советовать.

traicool, покажи скриншот настроек компилятора (Options->Compiler->Generated code)
0
traicool
0 / 0 / 0
Регистрация: 04.01.2013
Сообщений: 20
12.01.2013, 00:30  [ТС] 15
ВСЕ!! Я нашел в чем дело!!! Моя вина)) Слишком замудренное название придумал для файла=D
0
12.01.2013, 00:30
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.01.2013, 00:30

Найти в строках матрицы правые наименьшие элементы, определить их месnоположение, найти среднее арифметическое
Дана матрица n*m, состоящая из натуральных чисел. Найти в строках самые правые...

Найти среднее арифметическое каждой строки матрицы
Ребят задание следущее, надо найти среднее арифметическое каждой строки, и...

Найти среднее арифметическое чисел в файле
Дан текстовый файл, содержащий целые числа. Найти: 1)среднее арифметическое...


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

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

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