Сессия

[* offline]

Забыл..говорят типа через уикл фиг пойми как...

[Garald offline]

всёёёёёёёёёёёёёёёёёё

всё сдал, итого 3,4,4 могло быть и лучше :frown:

[MonkRo offline]

*,
Для среднего арифметического

Код: Выделить всё

function SrAr(var x:TArray; row,col:Byte): real;
var sum: real; i, j:byte;
begin
sum := 0;
for j := 1 to col do
  for i := 1 to row do
    sum := sum + x[i, j];
SrAr := sum/(i*j);
end;


А для произведения

Код: Выделить всё

function pr(var x:TArray; row,col:Byte): real;
var pr: real; i, j:byte;
begin
pr := 1;
for j := 1 to col do
  for i := 1 to row do
    pr := pr * x[i, j];
end;


Не понял у тебя в программе уже есть вывод произведения :dontknow:

[* offline]

Сформировать 2 квадратные матрицы {aij}n,m, {bij}k,l, где i<=(n,k), j<=(m,l) вводом элементов с клавиатуры. Фактическое число строк (n,k) и столбцов (m,l) каждой матрицы вводить с клавиатуры. Создать функцию, определяющую произведение элементов столбцов матрицы, если на главной диагонали матрицы располагается не нулевой элемент. Вывести на экран матрицы, произведение матрицы и среднее арифметической.
Сама прога..!!!
А это все куда надо вставить в конец?..просто я в паскале ниграма не рублю..кроме ветвления..

[sok offline]

Здрасти отцы, я чуть не по теме, sorry!
Пока не поступил никуда, 11 класс, выпускной...
Щаc ежю на подготовительные курсы в МГУЛеса, там хочу на фак. Вычислительная техника или Прикладная математика и инорматика(еси осилю её), на курсах полный ПЭ, математика - понимаю, но вот физика(особенно движения движения) не рублю, кроме электроники конечно!
Экзамены вступительные следующие: физика(писменно), математика(писменно), русский(тест)!
Вот мои 2 вопроса: В какой институт не надо сдавать физику, или хотяб тестом? соответсвенно по специальностям, написанным выше или типа них(как я понимаю сис.админ или програймер)
Скажите какие экзамены сдавали вы?

[sok offline]

забыл...в городе Моква!

Заранее THX

[MonkRo offline]

*, насколько я понял задание, от тебя хотят этого

Код: Выделить всё

program lab5;
uses crt;
type TArray = array [1..10, 1..10] of real;
var A,B: TArray;
    n,m,k,l: Byte;
    h: Char;
    Ar, f:real;

procedure InMatr1(var x: TArray; row, col: Byte);
var d, i, j: Byte;
    S, y: String;
begin
  for i := 1 to row do begin
  y := '';
  d := WhereY;
  gotoXY(5, d);
  for j := 1 to col do
  begin
    readln(x[i, j]);
    str(x[i, j]:5:2, s);
    y := y + s;
    GotoXY(Length(y) + 5, d);
  end;
  writeln;
  end;
end;

procedure Proiz(x: TArray; row, col: Byte);
var num: real; i, j: byte;
begin
  writeln('----------------------------------------------');
  for j := 1 to col do
  if x[j, j] <> 0 then
  begin
  num := 1;
  for i := 1 to row do
  num := num * x[i, j];
  write(num:5:0);
  end;
end;

procedure SrAr(x: TArray; row, col: byte);
var num: real; i, j: byte;
begin
  num := 0;
  for i := 1 to row do
  for j := 1 to col do
  num := num + x[i, j];
  write(num/(i*j):5:0);
end;

BEGIN
clrscr;

writeln('Number row and col matrix A < 10');
readln(n);
writeln('**********____________Matrix A__________**********');
InMatr1 (A, n, n);
proiz(A, n, n);
writeln;
SrAr(A, n, n);
writeln;

writeln('Number row and col matrix B < 10');
readln(k);
writeln('**********____________Matrix B__________**********');
InMatr1 (B, k, k);
proiz(B, k, k);
writeln;
SrAr(B, k, k);
Readkey;
end.


[Sedmiko offline]

Garald,

могло быть и лучше

Подумай о том, что могло быть и хуже - настроение повышает неподетски.

[kUBIK offline]

ох, сдал седня еще 1 экзамен. не знал ниче апщче. зато 3.
одногруппник с бодуна пришел, знания - меньше моих. пошел к ЗЗЗлобному преподу :mad: - и что бы вы думали? 5! вот она - жЫзн.

[* offline]

kUBIK, да-а-а....жизнь не справедлива..=)))
MonkRo,
Спасибо..больше!!
sok,
А вроде как когда поступаешь в любой ВУЗ обязательно надо сдавать матику физику и русский, и иногда инфу.. :doc:

[* offline]

MonkRo,
Есть пару вопросов:
1) К примеру:
3 2 1
4 5 6
8 4 1
----------
96 40 6 (это ясно произведение элемнтов)
43-(вот это что такое)-если ср. ар. то как так получается то?..
2) Как сделать чтобы мона было вводить число строк и столбцов отдельно?..
Спасибо, заранее..

[MonkRo offline]

Сегодня сдал еще один экзамен! Получил 50 из 50!!!
Вот как так, ведь не учил НИФИГА?
*,
1) Не знаю как у тебя это получилось? :dontknow:
У меня ответ 4. На самом деле 3,7 - это из-за округления.
Чтобы таких округлений не было в стороке

Код: Выделить всё

write(num/(i*j):5:0);

вместо 0 напиши 2
2) У тебя задание сформулировано не корректно

Сформировать 2 квадратные матрицы {aij}n,m, {bij}k,l, где i<=(n,k), j<=(m,l) вводом элементов с клавиатуры. Фактическое число строк (n,k) и столбцов (m,l) каждой матрицы вводить с клавиатуры.

Т.е. либо матрицы не квадратные, либо m и l не нужны, т.к. для квадрата достаточно знать одну сторону!

[BOBAH offline]

*,
Я в Паскале соображаю. Помогу чем смогу

[Angler offline]

Завтра сдаю последний экзамен в этой сессии. :super: :super: :super: ,а потом :beer: :beer:

[MonkRo offline]

Angler,
Завидую тебе белой завистью! :D
Ты поокуратней с :beer: , а то потом :puke: и в результате :ass: