Матрица

@azakov · Регистрация: 14.09.2013

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

Как ее решить?

Помогите составить прогу.

@j7777777 · 26.11.2013, 15:03

Pascal

const r=4; t=3;
var x:array[1..r,1..t] of real;
b:array[1..t] of real;
p,q,s:real;
i,j:integer;
 
begin
 randomize;
 readln(p,q);
 for i:=1 to r do
 begin
 for j:=1 to t do
 begin
 x[i,j]:=random(100)/3; write(x[i,j]:7:2);
 end;
 writeln;
 end;
 for j:=1 to t do
 begin
 s:=0;
 for i:=1 to r do
 if (abs(x[i,j])>=p) and (abs(x[i,j])<=q) then s:=s+sqr(x[i,j]);
 b[j]:=sqrt(s);
 end;
 writeln('....');
 for i:=1 to t do write(b[i]:5:2);
 readln
end.

@azakov · 26.11.2013, 18:14 **[ТС]**

А нельзя с более легким алгоритмом?

@j7777777 · 26.11.2013, 18:27

а что может быть легче? ну хочешь, комментарии напишу

@azakov · 26.11.2013, 18:32 **[ТС]**

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

x[i,j]:=random(100)/3; write(x[i,j]:7:2);

Не понимаю эту строчку((

@j7777777 · 26.11.2013, 18:39

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

x[i,j]:=random(100)/3; write(x[i,j]:7:2);

сгенерировали случайное число в диапазоне от 0 до 100 и поделили его на 3, а потом вывели на экран с точностью 2 знака после запятой. это так, для красоты, чтобы дробные числа были

Добавлено через 2 минуты
x[i,j]:=random(100); write(x[i,j]:7:0);
можно и так. тогда будут целые в диапазоне от 0 до 100. суть задачи от этого не меняется ))

@ermolay · 26.11.2013, 18:46

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

это так, для красоты, чтобы дробные числа были

можно по другому

Pascal

1	random; // возвратит вещественное число от 0 до 1;

следовательно

Pascal

1	random*100; // возвратит вещественное число от 0 до 100;

@j7777777 · 27.11.2013, 11:12

вот блок схема

@ildwine · 27.11.2013, 12:29

Блок-схема:

Матрица

Решение

Решение

@azakov 0 / 0 / 0 Регистрация: 14.09.2013 Сообщений: 46
		1
	Матрица 26.11.2013, 14:45. Показов 984. Ответов 8 Метки нет (Все метки) Как ее решить? Помогите составить прогу. 0

@azakov 0 / 0 / 0 Регистрация: 14.09.2013 Сообщений: 46
	26.11.2013, 18:14 [ТС]	3
	А нельзя с более легким алгоритмом? 0

@j7777777 81 / 79 / 57 Регистрация: 21.11.2013 Сообщений: 173
	26.11.2013, 18:27	4
	а что может быть легче? ну хочешь, комментарии напишу 0

@azakov 0 / 0 / 0 Регистрация: 14.09.2013 Сообщений: 46
	26.11.2013, 18:32 [ТС]	5
	Сообщение от j7777777 x[i,j]:=random(100)/3; write(x[i,j]:7:2); Не понимаю эту строчку(( 0

@j7777777 81 / 79 / 57 Регистрация: 21.11.2013 Сообщений: 173
	26.11.2013, 18:39	6
	Сообщение от azakov x[i,j]:=random(100)/3; write(x[i,j]:7:2); сгенерировали случайное число в диапазоне от 0 до 100 и поделили его на 3, а потом вывели на экран с точностью 2 знака после запятой. это так, для красоты, чтобы дробные числа были Добавлено через 2 минуты x[i,j]:=random(100); write(x[i,j]:7:0); можно и так. тогда будут целые в диапазоне от 0 до 100. суть задачи от этого не меняется )) 0

@j7777777 81 / 79 / 57 Регистрация: 21.11.2013 Сообщений: 173
	27.11.2013, 11:12	8
	вот блок схема Миниатюры 0

@ildwine Супер-модератор 6192 / 2938 / 1300 Регистрация: 04.03.2013 Сообщений: 5,780 Записей в блоге: 1
	27.11.2013, 12:29	9
	Блок-схема: Миниатюры 0