|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
10.01.2009, 22:01 | #11 |
Пользователь
Регистрация: 25.10.2008
Сообщений: 36
|
Извините, но я целый день сегодня делаю программы вот ещё задача, опять ошибка где-то....
Найти разности наибольшего и наименьшего элемента вкаждом столбце матрицы и записать их в дополнительную строку Program zad43; uses crt; const n=3; m=4; type t=array[1..n+1,1..m] of integer; var a:t; i,raz,max,j,min:integer; begin clrscr; randomize; writeln('ishodnay matrica'); writeln; for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(100)-50; write(a[i,j]:5); end; writeln; end; for j:=1 to m do begin min:=1000; max:=-1000; for i:=1 to n do begin if a[i,j]<min then begin min:=a[i,j]; end else if a[i,j]>max then begin max:=a[i,j]; raz:=max-min; end; end; a[n+1,j]:=raz; end; begin for i:=1 to n+1 do for j:=1 to m do write(a[i,j]:5); writeln; end; readln; end. Последний раз редактировалось Анжелика; 10.01.2009 в 22:06. |
10.01.2009, 22:11 | #12 |
Пользователь
Регистрация: 25.10.2008
Сообщений: 36
|
Кто чем может...проверьте
Дана квадратная матрица Найти сумму элементов строки в которой расположен элемент с наименьшим значением. Program zad44; uses crt; const n=4; type t=array[1..n+1,1..n] of integer; var a:t; i,sum,p,j,min:integer; b:array[1..n] of integer; begin clrscr; randomize; writeln('ishodnay matrica'); writeln; for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(100)-50; write(a[i,j]:5); end; writeln; end; min:=a[1,1]; p:=1; sum:=0; for i:=1 to n do begin if a[i,j]<min then begin min:=a[i,j]; p:=i; end; writeln('min= ',min,' nomer stroki= ',p); end; for j:=1 to n do begin sum:=sum+a[p,j]; write(sum); end; readln; end. |
10.01.2009, 22:35 | #13 |
В тени
Старожил
Регистрация: 19.12.2008
Сообщений: 5,788
|
Про разность наибольшего и наименьшего:
Код:
Трудно читать, когда все в один ряд.
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль] |
10.01.2009, 22:43 | #14 |
В тени
Старожил
Регистрация: 19.12.2008
Сообщений: 5,788
|
Про сумму элементов строки, в которой расположен элемент с наименьшим значением.
Код:
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль] |
10.01.2009, 23:31 | #15 |
Пользователь
Регистрация: 25.10.2008
Сообщений: 36
|
Что бы я без вас делала, наверное я так никогда до конца не пойму.
|
10.01.2009, 23:45 | #16 |
В тени
Старожил
Регистрация: 19.12.2008
Сообщений: 5,788
|
Анжелика Больше практикуйтесь, тогда обязательно поймете )
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль] |
11.01.2009, 00:16 | #17 |
Пользователь
Регистрация: 25.10.2008
Сообщений: 36
|
|
11.01.2009, 00:28 | #18 |
В тени
Старожил
Регистрация: 19.12.2008
Сообщений: 5,788
|
Просто нужно тщательно просмотреть код. Это поможет избавиться, по крайней мере, от синтаксических ошибок (намекаю на begin'ы в ваших листингах ).
Когда компилятор еще сообщает об ошибках, их найти относительно не сложно. Сложнее, когда программа компилируется, и баги проявляются уже во время работы. ps Сорри за оффтоп
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль] |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Проверьте на правильность плиз | Agent[PNZ] | Помощь студентам | 3 | 11.06.2014 19:50 |
Проверьте правильность | Аленушка | Помощь студентам | 6 | 07.01.2009 17:07 |
проверьте программку пожалуйста! | djem90 | Помощь студентам | 2 | 08.12.2008 01:35 |
Проверьте пожалуйста.. | NSvirus | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 24.11.2008 01:39 |
Проверьте пожалуйста код | forumu | Помощь студентам | 1 | 27.12.2007 21:49 |