VPF::[pascal] матрица,вычислить среднее арифметическое

bulgar99

Дата 9.1.2009, 21:01 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 9.1.2009

Репутация: нет
Всего: нет

это посложнее темы с номерами будит smile

В матрице С [5 x 3] вычислить среднее арифметическое в каждой строке. Если наибольшее среднее арифметическое меньше числа 3.2, то все элементы матрицы разделить на этот максимум, в противном случае матрицу оставить без изменения

Это сообщение отредактировал(а) bulgar99 - 9.1.2009, 22:31

Samhein

Дата 10.1.2009, 12:39 (ссылка)

(нет голосов)

Загрузка ...

Башзэфашовец

Профиль
Группа: Участник
Сообщений: 282
Регистрация: 27.6.2005

Репутация: нет
Всего: 3

Код


program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
 C:array[1..3,1..5]  of real;
 i,j:integer;
 maks:real;
begin
 i :=1;
while i <4 do
begin
 j := 1;
 while j < 6 do
  begin
  C[i,j] := random(11);
  inc(j);
  end;
 inc(i)
end;
maks := (C[1,1] + C[1,2]+ C[1,3]+ C[1,4]+ C[1,5])/5;
i := 2;
while i < 4 do
 begin
  if maks > (C[i,1] + C[i,2]+ C[i,3]+ C[i,4]+ C[i,5])/5 then
  maks := (C[i,1] + C[i,2]+ C[i,3]+ C[i,4]+ C[i,5])/5;
  inc(i);
 end;
if maks < 3.2 then
begin
  i := 1;
    while i <4 do
    begin
    j := 1;
      while j < 6 do
      begin
      C[i,j] :=  C[i,j]/maks;
      inc(j);
      end;
    inc(i)
    end;
end;
end.

Это сообщение отредактировал(а) Samhein - 10.1.2009, 13:06

--------------------

Знаю форум наизусть, но писать еще боюсь

taiven

Дата 10.1.2009, 14:18 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 302
Регистрация: 30.6.2008

Репутация: 4
Всего: 9

Код


uses crt;
var
   arr : array[1..5,1..3] of single;
   a : array[1..5] of single;
   max : single;
   i, k : integer;
begin
    ClrScr;
    Randomize;
    for i := 1 to 5 do a[i]:= 0;

    for i := 1 to 5 do
    begin
        for k:= 1 to 3 do
        begin
            arr[i,k]:= Random * 5;
            Write(arr[i,k]:0:2,'    ');
            a[i]:= a[i] + arr[i,k];
        end;
        a[i]:= a[i] / 3;
        if i = 1 then max:= a[i]
        else if max < a[i] then max:= a[i];
        WriteLn;
        WriteLn;
    end;

     if max < 3.2 then
     begin
        WriteLn('naibolshee srednee arifmeticheskoe: ', max:0:2, ' < 3.2');
        WriteLn('Izmenennaya matrica: ');
        for i := 1 to 5 do
        begin
            for k:= 1 to 3 do
            begin
                 arr[i,k]:= arr[i,k] / max;
                 Write(arr[i,k]:0:2,'    ');
            end;
            WriteLn;
            WriteLn;
        end;
     end
     else WriteLn('naibolshee srednee arifmeticheskoe: ', max:0:2, ' > 3.2');

    readln;
end.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »