Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.64/11: Рейтинг темы: голосов - 11, средняя оценка - 4.64
0 / 0 / 0
Регистрация: 24.02.2018
Сообщений: 9
1

Модули

04.03.2018, 19:02. Показов 1909. Ответов 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
uses crt;
const n=5;
var a:array [1..5] of integer;
  imin, imax, i, c: integer;
begin
writeln(' исходный массив ');
for i:=1 to n do begin
  a[i]:=random(10);
  write(a[i]:4); end;
 writeln;
 imin:=1;
 imax:=1;
 for i:=2 to n do
  if a[i]<a[imin] then
  imin:=i
  else if a[i]>a[imax] then
  imax:=i;
  writeln(' минимальный элемент a[',imin,']=',a[imin]);
  writeln(' максимальный элемент a[',imax,']=',a[imax]);
 c:=a[imin];
 a[imin]:=a[imax];
 a[imax]:=c;
 writeln(' обмен минимального и максимального элемента');
 for i:=1 to n do
 write(a[i]:4);
 readln;
 end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.03.2018, 19:02
Ответы с готовыми решениями:

Модули
Здравствуйте всем!) Расскажите пожалуйста, как в модуле описать процедуры. Если можно, то с...

Модули
написать модуль который подсчитывает сумму n-й строки двумерного массива

Подпрограммы и модули
Задание: Дан массив записи, представляющий собой календарь (число, месяц, год). Описать функцию,...

Задачи модули
надо сделать задание на фотографии

2
Модератор
63389 / 47078 / 32450
Регистрация: 18.05.2008
Сообщений: 114,118
04.03.2018, 19:24 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
unit modul;
interface
const n=5;
type mas=array [1..n] of integer;
procedure vvod(var a:mas);
procedure min_max(a:mas;var imin,imax:integer);
procedure obmen(var a:mas;imin,imax:integer);
implementation
procedure vvod(var a:mas);
var i:integer;
begin
writeln(' исходный массив ');
for i:=1 to n do begin
a[i]:=random(10);
write(a[i]:4);
end;
writeln;
end;
procedure min_max(a:mas;var imin,imax:integer);
var i:integer;
begin
imin:=1;
imax:=1;
for i:=2 to n do
if a[i]<a[imin] then imin:=i
else if a[i]>a[imax] then imax:=i;
writeln(' минимальный элемент a[',imin,']=',a[imin]);
writeln(' максимальный элемент a[',imax,']=',a[imax]);
end;
procedure obmen(var a:mas;imin,imax:integer);
var i,c:integer;
begin
c:=a[imin];
a[imin]:=a[imax];
a[imax]:=c;
writeln(' обмен минимального и максимального элемента');
for i:=1 to n do
write(a[i]:4);
end;
end.
Программа
Pascal
1
2
3
4
5
6
7
8
uses crt,modul;
var a:mas;
    imin,imax: integer;
begin
vvod(a);
min_max(a,imin,imax);
obmen(a,imin,imax);
end.
0
0 / 0 / 0
Регистрация: 24.02.2018
Сообщений: 9
04.03.2018, 20:00  [ТС] 3
Спасибо огромное!))))
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.03.2018, 20:00

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

Модули Pascal
Написать модуль, который определяет, сколько элементов в двумерном массиве меньше, больше или равно...

Дополнительные модули к PascalABC
Написал несколько дополнительных модулей к PascalABC (надеюсь будут полезными), выполняющие...

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

Как пишут модули?
Объясните пожалуйста, как написать модуль. заранее спасибо


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

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