ошибка в модуле.

@PassionPlay · Регистрация: 06.07.2011

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

Добрый день! Помогите разобраться в чем ошибка??

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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
unit podprog;
interface
uses tipu;
         procedure vvod(var n1:integer; var a1:vect; var Q1:text);
         procedure form_2_otr(var c1:vect; a1:vect; k1,n1:integer);
         procedure form_2_pol(var c1:vect; a1:vect; k1,n1:integer);
         procedure upor(var a1:vect; n1:integer);
         procedure zapic_vect(var E1:matr; a1:vect; var p1:integer; n1:integer);
         procedure zapic_matr(var E1:matr; a1:vect; var p1:integer; n1:integer);
         procedure vuvod(p1,n1:integer; e1:matr; var W1:text);
         procedure vuvod(n1:integer; a1:vect; var W1:text);
implementation
procedure vvod(var n1:integer; var a1:vect; var Q1:text);
begin
read(Q,n1);
for i:=1 to n1 do
        read(Q,a1[i]);
end;
procedure form_2_otr(var c1:vect; a1:vect; k1,n1:integer);
begin
for i:=n1 downto 1 do
    if a1[i]<0 then
               begin
               k1:=k1+1;
               c1[k]:=a1[i];
               if k1>=2 then break;
               end
end;
procedure form_2_pol(var c1:vect; a1:vect; k1,n1:integer);
begin
for i:=1 to n1 do
    if a1[i]>0 then
               begin
               k1:=k1+1;
               c1[k]:=a1[i];
               if k1>=4 then break;
               end
end;
procedure upor(var a1:vect; n1:integer);
var z:real; l:integer;
begin
l:=0;
for i:=n1-1 downto 1 do
    for j:=n1 downto i+1 do
        l:=l+1;
        if abs(a[i])>abs(a[j]) then
           begin
           z:=a1[i];
           a1[i]:=a1[j];
           a1[j]:=z;
           end;
        if l>=3 then exit;
end;
procedure zapic_vect(var E1:matr; a1:vect; var p1:integer; n1:integer);
begin
p1:=p1+1;
for i:=1 to n1 do E1[i,p1]:=a1[i];
end;
procedure zapic_matr(var E1:matr; a1:vect; var p1:integer; n1:integer);
var l:real;
begin
p1:=p1+1;
l:=0;
for i:=n1 downto 1 do
    if a[i]>0 then
              begin
              l:=l+1;
              E1[i,p1]:=a1[i];
              if l>=4 then break;
              end;
end;
procedure vuvod(p1,n1:integer; a1:matr; var W1:text);
begin
for i:=1 to n1 do
    begin
    writeln(W1);
    for j:=1 to p1 do
        write(W1,a1[i,j]:4:1);
    end;
end;
procedure vuvod(n1:integer; a1:vect; var W1:text);
begin
for i:=1 to n1 do write(W1,a1[i]:4:1);
end; //ожидалось описание или begin

если поставить begin, то в 11 строчке пишет "отсутствует определение процедуры vuvod".

Новые блоги и статьи Все статьи Все блоги /
Установка 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 ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .