Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Действия над элементами матрицы.

Автор: Korsar 28.05.2007 14:15

Люди прошу вас пожалуйста помогите мне срочно решить задачу у меня щас зачетная неделя! Ради бога помогите мне!!!!!!
Используя процедурные типы, составить программу для вычисления следующих характеристик матрицы, состоящей из 5 строк и 4 столбцов: 1) произведения всех элементов, 2) среднего арифметического всех элементов, 3)наибольшего элемента матрицы. Размер элементов матрицы от 0 до 10.

Автор: Bard 28.05.2007 21:39

вот тебе паскалевский код этой задачи...

const
 n=5; m=4;
var
 max,i,j:longint;
 summa,p:int64;
 ar:array [1..n,1..m] of longint;
{********************************************}
procedure readdata;
 begin
  for i:=1 to n do
   begin
    for j:=1 to m do read(ar[i,j]);
    readln;
   end;
 end;
{********************************************}
procedure proizvedeniye;
 begin
  p:=1;
  for i:=1 to n do
   for j:=1 to m do p:=p*ar[i,j];
  writeln('Proizvedeniye: ',p);
 end;
{********************************************}
procedure sredne_ar;
 begin
  for i:=1 to n do
   for j:=1 to m do summa:=summa+ar[i,j];
  writeln('Sredneye arifmeticheskoye: ',(summa/(n+m)):0:5);
 end;
{********************************************}
procedure maksimum;
 begin
  for i:=1 to n do
   for j:=1 to m do
    if ar[i,j]>max then max:=ar[i,j];
    writeln('Naibolshiy element matritsi: ',max);
 end;
{********************************************}
begin
 readdata;
 proizvedeniye;
 sredne_ar;
 maksimum;
 readln;
end.


Автор: volvo 28.05.2007 21:56

Этот код не соответствует условию, Bard, кроме того - он не для того Паскаля... Int64 в стандартном Паскале нет, а процедуры и процедурные типы - это СОВСЕМ не одно и то же!

Автор: Korsar 29.05.2007 1:10

а что что такое процедурные типы? блин прошу вас сделайте кто нибудь как нужно!!! Bard большое спасибо тебе за помощь!!!!

Автор: мисс_граффити 29.05.2007 1:15

http://forum.pascal.net.ru/index.php?showtopic=3598

Автор: Korsar 29.05.2007 2:47

ну пожалуйста решите кто нибудь задачку!!!

Автор: Korsar 29.05.2007 4:03

или вот еще одна задачка:
Построить движущиеся изображения квадрата, прямоугольника и круга.
помогите пожалуйста! очень срочно надо!

Автор: Korsar 29.05.2007 13:06

ну хоть кто нибудь помогите!!!!

Автор: Ozzя 29.05.2007 13:20

http://forum.pascal.net.ru/index.php?s=&showtopic=17262&view=findpost&p=101200

Автор: Korsar 29.05.2007 18:32

задачу про передвижение сделал!!! осталась только одна задача и все у меня зачет!!! пожалуйста помогите кто нибудь!!!

Автор: Korsar 30.05.2007 17:13

ну что вам стоит? sad.gif