|
задачка на матрицы
|
|
| PROTOSS | Дата: Понедельник, 24.11.2008, 21:36 | Сообщение # 16 |
 Старый знакомый
Группа: Пользователи
Сообщений: 42
Статус: Offline
| хм, ну если в той поравке которую я сделал:
смена s:real и S:=1/a[1,1];
работает, если поменять на S:=1/a[1];
опять нефурычитДобавлено (24.11.2008, 14:36)
---------------------------------------------
З.Ы. запрос на аватаризацию отправил, жду...
Излил душу - Вытри за собой!
|
| |
| |
| Seqular | Дата: Понедельник, 24.11.2008, 21:37 | Сообщение # 17 |
 Хранитель
Группа: Администраторы
Сообщений: 859
Статус: Offline
| PROTOSS, Запрос переотправь.. там антиспам стоял
Поддерживаю также проект сообщество молодых сисадминов
|
| |
| |
| Seqular | Дата: Понедельник, 24.11.2008, 23:06 | Сообщение # 18 |
|
Хранитель
Группа: Администраторы
Сообщений: 859
Статус: Offline
| Кароче, вот код. Ковыряй если что тут:
Code
uses crt;
Const n = 5;
Var a: Array[1..n, 1..n] of Byte;
i,j: Byte;
max: Byte;
flag: Boolean;
s: Real;
Begin
ClrScr;
Randomize;
flag := False;
{Random Array}
For i := 1 to n do
Begin
For j := 1 to n do
Begin
a[i,j] := Random(10)+1;
Write(a[i,j]:4);
End;
Writeln;
End;
For i := n downto 1 do
Begin
If (not Odd(a[n-i+1, i])) then
Begin
flag := True;
s := 0;
Write('Garmonika ',n-i+1,' stroki: ');
For j := 1 to n do
Begin
s := s + (1 / a[n-i+1,j]);
End;
s := n / s;
Writeln(s:0:4);
End;
End;
If (flag = False) then
Begin
{Ishem Max}
max := a[1, 1];
For i := 1 to n do
For j := 1 to n do
Begin
if (a[i,j] > max) then max := a[i,j];
End;
Writeln('Maximal: ',max);
End;
Readkey;
End.
Поддерживаю также проект сообщество молодых сисадминов
|
| |
| |
| Alexander | Дата: Вторник, 25.11.2008, 00:34 | Сообщение # 19 |
|
Всевышний
Группа: Модераторы
Сообщений: 475
Статус: Offline
| Quote если ты про оперативную память то и онной не мало 2 гига, и вапще комп не на уровне 1 пентиума, неподавицо
Открою тебе секрет, паскалевскому компилятору (извините) ср№ть на то, сколько у тебя оперативы физически, программно у тебя всегда 64кб. Хотя для человека, который не видит разницы между знаковым типом и беззнаковым это всегда будет страшной тайной.
Quote еслиб, вот тут Alexander кусочег задачки привел, а неправильно, паскаль еще на S:=1/a[1]; кочевряжится пишит "type mismatch"
Всё правильно, я и не собирался ещё кусок программы писать, я показал бедным детям африки как эта сумма считается, а то что некоторые массив от матрицы не отличают- это не моя проблема.
Скажем дружно- нафиг нужно!
|
| |
| |
| PROTOSS | Дата: Вторник, 25.11.2008, 02:03 | Сообщение # 20 |
|
Старый знакомый
Группа: Пользователи
Сообщений: 42
Статус: Offline
| Quote (Alexander) я показал бедным детям африки как эта сумма считается, а то что некоторые массив от матрицы не отличают- это не моя проблема.
ну во-первых мы...я не бедный дите африки, а "бедный дите" России
во-вторых, он мне сразу показался подозрительным, но я думал ты серьезна часть проги вписал 
втретьих проблема действительно не твоя=)
Излил душу - Вытри за собой!
|
| |
| |
| Seqular | Дата: Вторник, 25.11.2008, 07:05 | Сообщение # 21 |
|
Хранитель
Группа: Администраторы
Сообщений: 859
Статус: Offline
| Полно вам, бояре..
Поддерживаю также проект сообщество молодых сисадминов
|
| |
| |
| PROTOSS | Дата: Вторник, 25.11.2008, 21:07 | Сообщение # 22 |
|
Старый знакомый
Группа: Пользователи
Сообщений: 42
Статус: Offline
| нусь, задачка решена, на вопрос ответили, или стоп не на весь... моменть
воть "напечатать матрицу, выделив ее верхнюю треугольную часть" uses crt;
const n=5;
var
a: array[1..n, 1..n] of byte;
i,j:byte;
begin
clrscr;
writeln('BOT BAIIIA MATPUll,A');
RANDOMIZE;
For i := 1 to n do
Begin
For j := 1 to n do
Begin
a[i,j] := Random(10)+1;
gotoXY(i*4,j+2);
Writeln(a[i,j]:4);
End;
Writeln;
End;
writeln('PE3yLbTAT');
For i := 1 to n do
Begin
For j := 1 to i do
Begin
GoToXY(i*4,j+9);
Writeln(a[j,i]:3);
End;
End;
ReadKey;
end.
(с) Seqular,
Излил душу - Вытри за собой!
Сообщение отредактировал PROTOSS - Вторник, 25.11.2008, 22:01 |
| |
| |
