массив в процедуре

@vasya87 · Регистрация: 22.05.2009

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

Массив Р1...Рм, полученный заменой нулей в массиве С1...См полусуммой соседних элементов(прочие элементы не меняются);если 0 стоит на первом или последнем месте,то он заменяется значением соседнего элемента.

@Иван_007 · 22.05.2009, 21:36

Щас попробую

Добавлено через 17 минут 26 секунд
Как-то так !!!!

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
uses crt;
const n=10;
type mas=array [1..n] of real;
var m,c:mas;
    i:integer;
    p:boolean;
Procedure vvod_vivod(var h:mas);
begin
for i:=1 to n do begin
    h[i]:=random(15);
    write(h[i]:2:2,'  ');
end;
end;
 
BEGIN
clrscr;
randomize;
writeln('Массив m');
vvod_vivod(m);
readln;
 
for i:=1 to n do begin
       p:=false;
    if m[i]=0 then begin
       p:=true;
       case i of
       1: c[i]:=m[i+1];
       n: c[i]:=m[i-1]
       else c[i]:=(m[i-1]+m[i+1])/2 ;
       end;
     end;
       if p=false then c[i]:=m[i];
end;
 
writeln('Массив c.');
for i:=1 to n do
    write(c[i]:2:2,'  ');
readln;
end.

Добавлено через 7 минут 49 секунд
Или вот-так через процедуры!!!

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
uses crt;
const n=10;
type mas=array [1..n] of real;
var m,c:mas;
    i:integer;
    p:boolean;
 
 
Procedure vvod_vivod(var h:mas);
begin
for i:=1 to n do begin
    h[i]:=random(15);
    write(h[i]:2:2,'  ');
end;
end;
 
Procedure formir(var h,k:mas);
begin
for i:=1 to n do begin
       p:=false;
    if h[i]=0 then begin
       p:=true;
       case i of
       1: k[i]:=h[i+1];
       n: k[i]:=h[i-1]
       else k[i]:=(h[i-1]+h[i+1])/2 ;
       end;
     end;
       if p=false then k[i]:=h[i];
end;
end;
 
BEGIN
clrscr;
randomize;
vvod_vivod(m);
readln;
formir(m,c);
 
 
for i:=1 to n do
    write(c[i]:2:2,'  ');
readln;
end.

@vasya87 · 22.05.2009, 21:49 **[ТС]**

а что делается в строке
case i of
1: k[i]:=h[i+1];
n: k[i]:=h[i-1]
else k[i]:=(h[i-1]+h[i+1])/2 ;
end;

@Иван_007 · 22.05.2009, 21:56

проверяется что делать с числом каторое надо записать в новый массив.

@vasya87 · 22.05.2009, 21:57 **[ТС]**

Спасибо!

@Иван_007 · 22.05.2009, 22:00

Да не за-что обращайся.

Новые блоги и статьи Все статьи Все блоги /
Программный отбор элементов справочника Номенклатура по группе 1С Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор под наименованию группы (на. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	Программный отбор элементов справочника Сотрудники по перечислениям 1С Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .

@vasya87 0 / 0 / 0 Регистрация: 22.05.2009 Сообщений: 18

	массив в процедуре 22.05.2009, 20:39. Показов 1953. Ответов 5 Метки нет (Все метки) Массив Р1...Рм, полученный заменой нулей в массиве С1...См полусуммой соседних элементов(прочие элементы не меняются);если 0 стоит на первом или последнем месте,то он заменяется значением соседнего элемента. 0

@vasya87 0 / 0 / 0 Регистрация: 22.05.2009 Сообщений: 18
	22.05.2009, 21:49 [ТС]
	а что делается в строке case i of 1: k[i]:=h[i+1]; n: k[i]:=h[i-1] else k[i]:=(h[i-1]+h[i+1])/2 ; end; 0

@Иван_007 27 / 27 / 14 Регистрация: 20.05.2009 Сообщений: 80
	22.05.2009, 21:56
	проверяется что делать с числом каторое надо записать в новый массив. 1

@vasya87 0 / 0 / 0 Регистрация: 22.05.2009 Сообщений: 18
	22.05.2009, 21:57 [ТС]
	Спасибо! 0

@Иван_007 27 / 27 / 14 Регистрация: 20.05.2009 Сообщений: 80
	22.05.2009, 22:00
	Да не за-что обращайся. 0