IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Действия над элементами матрицы.
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 39
Пол: Мужской
Реальное имя: Дмитрий

Репутация: -  0  +


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


--------------------
Чайник по Паскалю!!!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Учиться, учиться еще раз учиться
***

Группа: Пользователи
Сообщений: 158
Пол: Мужской
Реальное имя: Яшар

Репутация: -  3  +


вот тебе паскалевский код этой задачи...
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.



Сообщение отредактировано: Bard -


--------------------
Чтобы поразить цель важна не точность, а смелость
Шарль Луи Монтескё
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






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


Новичок
*

Группа: Пользователи
Сообщений: 39
Пол: Мужской
Реальное имя: Дмитрий

Репутация: -  0  +


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


--------------------
Чайник по Паскалю!!!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


Процедурные типы


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Новичок
*

Группа: Пользователи
Сообщений: 39
Пол: Мужской
Реальное имя: Дмитрий

Репутация: -  0  +


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


--------------------
Чайник по Паскалю!!!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Новичок
*

Группа: Пользователи
Сообщений: 39
Пол: Мужской
Реальное имя: Дмитрий

Репутация: -  0  +


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

Сообщение отредактировано: Korsar -


--------------------
Чайник по Паскалю!!!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Новичок
*

Группа: Пользователи
Сообщений: 39
Пол: Мужской
Реальное имя: Дмитрий

Репутация: -  0  +


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


--------------------
Чайник по Паскалю!!!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

Репутация: -  16  +


Задача про передвижение в пределах экрана
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


Новичок
*

Группа: Пользователи
Сообщений: 39
Пол: Мужской
Реальное имя: Дмитрий

Репутация: -  0  +


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


--------------------
Чайник по Паскалю!!!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #11


Новичок
*

Группа: Пользователи
Сообщений: 39
Пол: Мужской
Реальное имя: Дмитрий

Репутация: -  0  +


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


--------------------
Чайник по Паскалю!!!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 27.02.2021 22:07
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name