Массивы в виде подпрограмм

@hz___ · Регистрация: 25.12.2009

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

Написано 4 программы с массивами, помогите записать их с ипользованием function или procedure. Хотя б первую и последнюю, а с другими сам разберусь.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Program Mas_1;
Uses wincrt;
var el:array[1..30] of real;
i: integer;
Begin
   for i:=1 to 30 do
read (el[i]);
for i:=1 to 30 do
begin
write (el[i]:6:2);
 if i mod 5 =0 then writeln ('');
end;
end.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Program Mas_2;
Uses wincrt;
var Z:array[1..5,1..6] of real;
i,j: integer;
Begin
   for i:=1 to 5 do
for j:=1 to 6 do
z[i,j]:= random;
for i:=1 to 5 do
 Begin
for j:=1 to 6 do
write (z[i,j]:6:2);
writeln ('');
end;
end.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Program Mas_3;
Uses wincrt;
const Z:array[1..6,1..6] of integer=((43,14,286,121,13,79),(111,23,17,251,356,173),
(1,2,3,19,436,234),(647,3,57,9,0,1),(356,2,76,23,2,5),(74,356,3,5,12,3));
var i,j: integer;
Begin
for i:=1 to 6 do
for j:=1 to 6 do
 Begin
for j:=1 to 6 do
write (z[i,j]:6);
writeln ('');
end;
end.

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
Program Mas_4;
Uses wincrt;
const
a=1.5;
var S:array[1..20,1..20] of real;
X,Y: array[1..20] of real;
i,j,nx,ny : integer;
Begin
nx:= trunc(((5-2)/0.3))+1;
ny:= trunc(((1-(-1))/0.2))+1;
for i:=1 to nx do
x[i]:=0.3*(i-1)+0;
for j:=1 to ny do
y[j]:=0.2*(j-1)+1;
 for i:=1 to nx do
 for j:=1 to ny do
 s[i,j]:=exp((1/5)*ln(((a*x[i]*sqr(y[j]))+1.3)))*((sin(x[i]-a))/(cos(x[i]-a)));
 for i:=1 to nx do
 Begin
 for j:=1 to ny do
write (s[i,j]:6:2);
writeln ('');
end;
end.

@BoBaH26 · 09.12.2010, 18:31

Помогаю

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Program Mas_1;
Uses wincrt;
var el:array[1..30] of real;
i: integer;
procedure VVOD;
begin
for i:=1 to 30 do
read (el[i]);
end;
procedure VIVOD;
begin
for i:=1 to 30 do
begin
write (el[i]:6:2);
 if i mod 5 =0 then writeln ('');
end;
end;
Begin
VVOD;
VIVOD;
end.

@hz___ · 10.12.2010, 08:36 **[ТС]**

Сделал вторую, а вот с третьей никак разобраться нимогу(((

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
Program Mas_2;
Uses wincrt;
var Z:array[1..5,1..6] of real;
procedure cas1;
var i,j: integer;
Begin
for i:=1 to 5 do
for j:=1 to 6 do
z[i,j]:= random(30);
end;
procedure cas2;
var i,j:integer;
begin
for i:=1 to 5 do
 Begin
for j:=1 to 6 do
write (z[i,j]:6:2);
writeln;
end;
end;
begin
cas1;
cas2;
end.

@Dekio · 10.12.2010, 10:02

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Program Mas_3;
 
const Z:array[1..6,1..6] of integer=((43,14,286,121,13,79),(111,23,17,251,356,173),
(1,2,3,19,436,234),(647,3,57,9,0,1),(356,2,76,23,2,5),(74,356,3,5,12,3));
var i,j: integer;
procedure mas;
Begin
for i:=1 to 6 do
begin
for j:=1 to 6 do
write (z[i,j]:6);
writeln ('');
end;
end;
begin
mas;
end.

Новые блоги и статьи Все статьи Все блоги /
влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .