Задача на процедуры.

@vasyl3 · Регистрация: 17.01.2009

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

Всем привет!
Помогите, пожалуйста, разобраться со следующей задачей:
Нужно задать три последовательности случайных чисел , и домножить кратные тройке элементы этих последовательностей на a,b, и с соответственно, используя процедуру.
Я вот тут набросал свой вариант кода(пока только для первой последовательности):

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
program dz2;
Type m = array [1..10] of integer;
var
i: array [1..10] of byte;
j: array [1..9] of byte;
k: array [1..8] of byte;
p: byte;
a,b,c:real;
y: m;
    procedure l (x: m; n: byte; d:integer);
    begin
    for p:=1 to n do
    if (x[p]) mod 3 = 0 then
    y[p]:=x[p]*d
    else y[p]:= x[p];
    end;
begin
randomize;
for p:=1 to 10 do
i[p]:= random (100);
for p:=1 to 9 do
j[p]:= random (100);
for p:=1 to 8 do
k[p]:= random (100);
writeln('vvedite znachenie a');
readln(a);
writeln ('posledov #1: ', (l (i,n,a));

В самом низу выскакивает Error 143. Сам с процедурами знаком не очень хорошо, поэтому о её причинах могу лишь догадываться... Поможете?

@Puporev · 29.04.2009, 23:12

writeln ('posledov #1: ', (l (i,n,a));

Так нельзя, это же не функция. Нужно
procedure l (var x: m; n: byte; d:integer);
.................................

Pascal
1
2
3
4
5
6
7
8
writeln('vvedite znachenie a');
readln(a);
l (i,n,a);
writeln ('posledov #1: ');
for p:=1 to 10 do
write(i[p],' ');
readln
end.

@vasyl3 · 03.05.2009, 12:59 **[ТС]**

Сообщение от Puporev

Так нельзя, это же не функция. Нужно
procedure l (var x: m; n: byte; d:integer);

Спасибо, с этим вроде разобрался, но программа всё равно не компилируется

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
Type m = array [1..10] of integer;
var
i: array [1..10] of integer;
j: array [1..9] of integer;
k: array [1..8] of integer;
p: byte;
a,b,c:integer;
y: m;
    procedure l (x: m; n: byte; d:integer);
    begin
    for p:=1 to n do
    if (x[p]) mod 3 = 0 then
    y[p]:=x[p]*d
    else y[p]:= x[p];
    end;
begin
randomize;
for p:=1 to 10 do
  i[p]:= random (100);
   writeln('vvedite znachenie a');
   readln(a);
   l (i,n,a);
   writeln ('posledov #1: ');
   for p:=1 to 10 do
   write(i[p],' ');
readln;
end.

Теперь выскакивает несоответствие типов... пересмотрел всю программу, в чём причина - не понимаю... где ошибка?

@lexus_ilia · 03.05.2009, 13:14

Я вашу программу не компилил, но скажу вот что, у вас

Pascal
1
2
var
i: array [1..10] of integer;

и Вы вызываете функцию вот так:

Pascal
1
l (i,n,a);

а теперь смотрим описание функции:

Pascal
1
procedure l (x: m; n: byte; d:integer);

получается вы хотите x присвоить значение i, а i в свою очередь является массивом, при том что х имеет тип byte...

@Puporev · 03.05.2009, 13:15

Я пишу

procedure l (var x: m; n: byte; d:integer);

Вы пишете

procedure l (x: m; n: byte; d:integer);

Есть разница? Я ведь Вам даже красным цветом выделил.

@lexus_ilia · 03.05.2009, 13:15

а ещё интересно откуда Паскаль увидит у вас при вызове функции

Pascal
1
l (i,n,a);

переменную n? Она ведь у вас не глобальная, а локальная...

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .