Процедуры

@павел19 · Регистрация: 22.11.2009

Author24 — интернет-сервис помощи студентам

1. В матрице:
1.процедура ввод
2.процедура вывод
3.процедура,который считать количество эл-тов=0, и функция, который считает количество четных, отрицательных эл-тов

2.В матрице
1.процедура ввод
2.процедура вывод
3.заменить отрицательные э-ты на 0.

@Puporev · 03.03.2010, 12:30

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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
uses crt;
const max=20;
type  matr=array[1..max,1..max] of integer;
procedure Vvod(var mt:matr;var x,y:byte);
var i,j:byte;
begin
repeat
write('Количество строк до ',max,' =');
readln(x);
until x in [1..max];
repeat
write('Количество столбцов до ',max,' =');
readln(y);
until y in [1..max];
writeln('Введите ',x*y,' элементов матрицы:');
for i:=1 to x do
for j:=1 to y do
 begin
  write('el[',i,',',j,']=');
  readln(mt[i,j]);
 end;
clrscr;
end;
procedure Vyvod(var mt:matr;x,y:byte);
var i,j:byte;
begin
for i:=1 to x do
 begin
  for j:=1 to y do
  write(mt[i,j]:4);
  writeln;
 end;
end;
procedure Zero(mt:matr;x,y:byte; var k:integer);
var i,j:byte;
begin
k:=0;
for i:=1 to x do
for j:=1 to y do
if mt[i,j]=0 then k:=k+1;
writeln('Количество нолей=',k);
end;
 
function Kol(mt:matr;x,y:byte):integer;
var i,j:byte;
    k:integer;
begin
k:=0;
for i:=1 to x do
for j:=1 to y do
if(mt[i,j]<0)and(mt[i,j] mod 2=0)then k:=k+1;
Kol:=k;
end;
 
var a:matr;
    n,m:byte;
    k:integer;
begin
clrscr;;
Vvod(a,n,m);
writeln('Исходная матрица:');
Vyvod(a,n,m);
Zero(a,n,m,k);
write('Количество отрицательных четных=',Kol(a,n,m));
readln
end.
end.

2.

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
uses crt;
const max=20;
type  matr=array[1..max,1..max] of integer;
procedure Vvod(var mt:matr;var x,y:byte);
var i,j:byte;
begin
repeat
write('Количество строк до ',max,' =');
readln(x);
until x in [1..max];
repeat
write('Количество столбцов до ',max,' =');
readln(y);
until y in [1..max];
writeln('Введите ',x*y,' элементов матрицы:');
for i:=1 to x do
for j:=1 to y do
 begin
  write('el[',i,',',j,']=');
  readln(mt[i,j]);
 end;
clrscr;
end;
procedure Vyvod(var mt:matr;x,y:byte);
var i,j:byte;
begin
for i:=1 to x do
 begin
  for j:=1 to y do
  write(mt[i,j]:4);
  writeln;
 end;
end;
procedure Zero(var mt:matr;x,y:byte);
var i,j:byte;
begin
for i:=1 to x do
for j:=1 to y do
if mt[i,j]<0 then mt[i,j]:=0;
end;
 
var a:matr;
    n,m:byte;
begin
clrscr;;
Vvod(a,n,m);
writeln('Исходная матрица:');
Vyvod(a,n,m);
Zero(a,n,m);
writeln('Замена отрицательных на 0:');
Vyvod(a,n,m);
readln
end.

@павел19 · 03.03.2010, 20:01 **[ТС]**

благодарю...

Новые блоги и статьи Все статьи Все блоги /
Интеграция Hangfire с RabbitMQ в проектах C#.NET stackOverflow 18.04.2025 Разработка современных . NET-приложений часто требует выполнения задач "за кулисами". Это может быть отправка email-уведомлений, генерация отчётов, обработка загруженных файлов или синхронизация. . .	Построение эффективных запросов в микросервисной архитектуре: Стратегии и практики ArchitectMsa 18.04.2025 Микросервисная архитектура принесла с собой много преимуществ — возможность независимого масштабирования сервисов, технологическую гибкость и четкое разграничение ответственности. Но как часто бывает. . .	Префабы в Unity: Использование, хранение, управление GameUnited 18.04.2025 Префабы — один из краеугольных элементов разработки игр в Unity, представляющий собой шаблоны объектов, которые можно многократно использовать в различных сценах. Они позволяют создавать составные. . .	RabbitMQ как шина данных в интеграционных решениях на C# (с MassTransit) stackOverflow 18.04.2025 Современный бизнес опирается на множество специализированных программных систем, каждая из которых заточена под решение конкретных задач. CRM управляет отношениями с клиентами, ERP контролирует. . .	Типы в TypeScript run.dev 18.04.2025 TypeScript представляет собой мощное расширение JavaScript, которое добавляет статическую типизацию в этот динамический язык. В JavaScript, где переменная может свободно менять тип в процессе. . .
Погружение в Kafka: Концепции и примеры на C# с ASP.NET Core stackOverflow 18.04.2025 Apache Kafka изменила подход к обработке данных в распределенных системах. Эта платформа потоковой передачи данных выходит далеко за рамки обычной шины сообщений, предлагая мощные возможности,. . .	Коммуникация в реальном времени с SignalR в C# на примере создания чата UnmanagedCoder 17.04.2025 Современный веб стремительно эволюционирует от статичных страниц к динамичным приложениям, где пользователи ожидают мгновенной реакции на свои действия. Представим, что вы отправляете сообщение. . .	Реализация CQRS с MediatR на C# .NET stackOverflow 17.04.2025 Современная разработка программного обеспечения постоянно ищет пути повышения эффективности организации кода. Архитектурные паттерны появляются, эволюционируют, и те, что проявляют свою. . .	Verilog и интеллектуальная собственность - "глазами" обученной LM модели. Hrethgir 17.04.2025 В сети встречаются участники, заявляющие что код на Verilog ни о чём не говорит. Но вот патентная практика на самом деле показывает обратное ими утверждаемому. То-есть код на Verilog включают в. . .	Свап-файл дополнительно к разделу (если вдруг не хватает или не создан) jigi33 17.04.2025 ПОДКЛЮЧЕНИЕ ДОПОЛНИТЕЛЬНОГО SWAP ПРОСТРАНСТВА, Т. О. , РАСШИРЕНИЕ ЕГО РАЗМЕРА В Linux можно использовать как раздел подкачки (swap), так и файл подкачки (swap-файл). Чтобы создать swap-файл вместо. . .

@павел19 0 / 0 / 0 Регистрация: 22.11.2009 Сообщений: 35

	Процедуры 02.03.2010, 19:23. Показов 1009. Ответов 2 Метки нет (Все метки) 1. В матрице: 1.процедура ввод 2.процедура вывод 3.процедура,который считать количество эл-тов=0, и функция, который считает количество четных, отрицательных эл-тов 2.В матрице 1.процедура ввод 2.процедура вывод 3.заменить отрицательные э-ты на 0. 0

@павел19 0 / 0 / 0 Регистрация: 22.11.2009 Сообщений: 35
	03.03.2010, 20:01 [ТС]
	благодарю... 0

Опции темы

Процедуры

Решение