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

20.12.2010, 00:37. **Показов** 672. **Ответов** 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 поз.), то специальный вывод пробела не нужен (если этого поля хватает).

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

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