Найти ошибку в коде

20.12.2010, 00:37. **Показов** 638. **Ответов** 4

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

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
program tab4;
uses crt;
const NN=3;MM=5;
type Matrix=array[1..NN,1..MM] of real;
Tvector=array[1..MM] of real;
const A:Matrix=((4.1,-6.3,0,1.4,-0.5),(3.6,0,0,4.6,-8.1),(-4.3,2,6.1,4,0));
procedure vivod M(Matr:Matrix;row;col:integer);
var i,j:integer;
begin
for i:=1 to row do
begin
for j:=1 to col do write(a[i,j]:5:1);
writeln
end;
end;
procedure getS<a:Matrix; var S:Tvector; var p:integer);
var k,j:integer;
begin
k:=2;
p:=0;
for j:=1 to MM do
if a[k,j]<>0 then begin
p:=1+p;
S[p]:=a[k,j];
end;
end;
function Lvec<vec:Tvector;k:integer):real;
var j:integer; L:real;
begin
k:=0;
for j:=1 to k do L:L+sqr(vec[j]);
Lvec:=sqrt(L);
END;
var b:Tvector; S:Tvector; p:integer; l:real;
begin
clrscr;
vivod M(A,nn,mm);
getS(a,s,p);
write('L=',L);
write('S=',S);
readkey;
END.

@use · 20.12.2010, 03:34

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
program tab4;
const
  NN=3;
  MM=5;
type
  Matrix=array[1..NN,1..MM] of real;
  Tvector=array[1..MM] of real;
const
  A:Matrix=((4.1,-6.3,0,1.4,-0.5),(3.6,0,0,4.6,-8.1),(-4.3,2,6.1,4,0));
 
procedure vivodM(Matr:Matrix; row,col:integer);  // 1.название писать слитно; 2.должна быть запятая
var
  i,j:integer;
begin
  for i:=1 to row do begin
    for j:=1 to col do write(a[i,j]:5:1);
    writeln
  end;
end;
 
procedure getS(a:Matrix; var S:Tvector; var p:integer);
var
  k,j:integer;
begin
  k:=2;
  p:=0;
  for j:=1 to MM do if a[k,j]<>0 then begin
    p:=1+p;
    S[p]:=a[k,j];
  end;
end;
 
function Lvec(vec:Tvector; k:integer):real;
var
  j:integer; L:real;
begin
  k:=0;
  for j:=1 to k do L:=L+sqr(vec[j]);   // пропущено =
  Lvec:=sqrt(L);
END;
 
var
  b:Tvector; S:Tvector; p:integer; l:real;
 
begin
  vivodM(A,nn,mm);
  getS(a,s,p);
  write('L=',L);
  write('S=',S);   // сделать цикл?..
  readkey;
END.

20.12.2010, 17:06

C циклами у меня проблема.
Можно попробовать выводить по одной ячейке?
for i:1 to MM do write (S[i],' '); ?
Или как лучше реализовать?

@Ant13Z · 20.12.2010, 17:11

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

C циклами у меня проблема.
Можно попробовать выводить по одной ячейке?
for i:=1 to MM do write (S[i],' '); ?
Или как лучше реализовать?

лучше никак не сделать, код программы не смотрел, но попробуйте реализовать без дополнительного цикла, т.е. выполнил действие с элементом массива и сразу его вывел, и так далее

@use · 21.12.2010, 08:12

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

C циклами у меня проблема

Я не совсем понимаю вот эту фразу. Какие могут быть в данном случае проблемы? Да, замечательно реализовано. Это же не сложный цикл с многократными вложениями..
(только равенство, конечно, добавить, как Ant13Z сказал до меня). Но можно еще выводить построчно (использовать writeln вместо write), а также желательно форматировать числа при выводе. Зачем тебе полная точность? Сделай так, например:

Pascal
1
for i:=1 to MM do write (S[i]:10:4);

Это значит, что на число отводится 10 позиций, при этом после запятой 4 знака. Например:

Oracle 11 SQL
1
   -1.2345

Поскольку каждое число в своем поле (10 поз.), то специальный вывод пробела не нужен (если этого поля хватает).

Новые блоги и статьи Все статьи Все блоги /
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .

Oksana_Illusion
	20.12.2010, 17:06
	C циклами у меня проблема. Можно попробовать выводить по одной ячейке? for i:1 to MM do write (S[i],' '); ? Или как лучше реализовать?