Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Привести подобные в многочлене https://www.cyberforum.ru/ pascal/ thread29090.html
Здравствуйте! Постановка задачи Многочлен P(x) с целыми коэффициентами можно представить в виде списка, в котором первое информационное поле соответствует коэффициенту при неизвестном, а...
Pascal Заполнить массив из 8 элементов
1) Даны 2 массива А=(-5.2, 16.28, 4.1, 5.2, 48, -4.5) B=(0.82, -1.16, 5.21, 2.13, -1, 1.13) Сформировать массив Z по формуле: Z=x/y+1 Вывести его на печать и найти произведение отрицательных...
3 задачи, одномерные/двумерные массивы и строки. Pascal
Приветствую! 1) Дана матрица 5х10. Найти минимальное/максимальное значение в каждой строке/столбце. 2)Дан целочисленный массив А размера 10.Вывести номер первого/последнего из этих его элементов,...
Pascal Найти количество элементов последовательности принадлежащих интервалу Приветствую всех кто читает это сообщение, прошу Вас решить эти задачи... 1)В прямоугольной матрице размером K*M, имеющий имя MATR содержатся целые числа K-число строк, М-число столбцов.... https://www.cyberforum.ru/ pascal/ thread29078.html
Pascal Непонятная процедура... https://www.cyberforum.ru/ pascal/ thread29076.html
Чтот вообще не могу разобраться... Описать процедуру RemoveCols(A, M, N, K1, K2), удаляющую из вещественной матрицы A размера M £ N столбцы с номерами от K1 до K2 включительно...
Pascal Задачка про острова
На старых школьных олимпиадах была такая задачка: Дана матрица (n*m), которая состоит из 1 и 0. Нули - это море, а единицы - острова. Если единицы стоят рядом по вертикали или горизонтали - то они...
Замена элементов в матрице Pascal
Найти в каждой строке матрицы максимум и минимум и поместить их на место первого и последнего элемента строки соответсвенно. Матрицу напечатать в общепринятом виде F(M,N), где N<=20, M<=10. Заранее...
Pascal Задача про одномерные массивы с использованием процедур 1)Заданы три одномреных массива A,B,C. Количество элементов не привышает 45. Для каждого вычеслить: - Среднее арифметическое всех элементов - Количество положительных элементов Решить задачу с... https://www.cyberforum.ru/ pascal/ thread29045.html
Pascal В массиве A(n) наименьший элемент поместить на первое место https://www.cyberforum.ru/ pascal/ thread29044.html
В массиве A(n) наименьший элемент поместить на первое место, наименьший из оставшихся – на последнее место, следующий по величине – на второе место, следующий – на предпоследнее и так далее – до...
Pascal В матрице A(m,n) каждый элемент aij заменить минимальным среди элементов подматрицы В матрице A(m,n) каждый элемент aij заменить минимальным среди элементов подматрицы A’(i,j), расположенной в левом верхнем углу матрицы А. https://www.cyberforum.ru/ pascal/ thread29043.html
Модератор
63400 / 47085 / 32454
Регистрация: 18.05.2008
Сообщений: 114,126
07.04.2009, 19:34 0

модули

07.04.2009, 19:34. Показов 566. Ответов 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
41
42
43
44
45
46
47
48
49
50
51
52
53
unit matrica;
interface
const n=6;
type Tmatr=array[1..n,1..n] of integer;
procedure Vvod(var mt:Tmatr);{ввод данных в матрицу}
procedure Vyvod(var mt:Tmatr;c:char);{вывод матрицы на экран, с-имя матрисы А,В,С}
procedure Summ(m1,m2:Tmatr;var mt:Tmatr);{сумма матриц}
procedure Max(mt:Tmatr;var max:integer; var imax:byte);{нахождение макс и номера}
implementation
procedure Vvod(var mt:Tmatr);
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to n do
mt[i,j]:=random(30)-10;
end;
procedure Vyvod(var mt:Tmatr;c:char);
var i,j:byte;
begin
writeln('Matrica ',c,':');
for i:=1 to n do
   begin
    for j:=1 to n do
    write(mt[i,j]:4);
    writeln;
   end;
end;
procedure Summ(m1,m2:Tmatr;var mt:Tmatr);
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to n do
mt[i,j]:=m1[i,j]+m2[i,j];
end;
procedure Max(mt:Tmatr;var max:integer; var imax:byte);
var i,j,k:byte;
begin
max:=0;
for i:=1 to n do
  begin
   k:=0;
   for j:=1 to n do{идем по строке}
   if mt[i,j]<0 then{если отрицательное}
   k:=k+1;{суммируем}
   if k>max then{если больше предыдущего максимума}
     begin
       max:=k;{это максимум}
       imax:=i;{номер строки}
     end;
  end;
writeln('Maximalnoe kolichestvo otricatelnyh elementov=',max,' v stroke ',imax);
end;
end.
Программа.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt,matrica;
var a,b,c:Tmatr;
    i,j,k,imx:byte;
    mx:integer;
begin
clrscr;
randomize;
Vvod(a);
Vyvod(a,'A');
Vvod(b);
Vyvod(b,'B');
Summ(a,b,c);
Vyvod(c,'C');
Max(c,mx,imx);
readln
end.


Вернуться к обсуждению:
модули
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.04.2009, 19:34

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Модули
NewCopy – выделение строки с заданного начального символа до заданного конечного символа NewDelete...

Модули
Провести вычисления. Необходимые для вычислений функции (факториал, возведение в степень и т.д.)...

Модули.
Задание в вордовском документе. Срок выполнения до субботы. Заранее большое спасибо!

Модули
Помогите!!Не врубаюсь в тему модули!Надо решить... Разработать модуль, реализующий функции...

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