Форум АНТИЧАТ - Студентам с лабораторными сюда

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

21.12.2009, 12:12

krypt3r

Познавший АНТИЧАТ

Регистрация: 27.04.2007

Сообщений: 1,044

Провел на форуме:
3660186

Репутация: 905

1.1)

Код:

program laba35;

const
  a : array [0..6] of real = (1, 3.5, 4, -0.8, 1.9, 5, 13);
  c = 2;
  d = 10;

var
  i : integer;
  p : real;

begin
  p := 1;
  for i := 0 to 6 do 
    if ((a[i] >= c) and (a[i] < d)) then
      p := p * a[i];
  writeln ('p = ', p : 0 : 2);
end.

1.2)

Код:

program laba36;

type
  SomeArray = array [0..1, 0..2] of real;

const
  p : SomeArray  = ((-1.5, 9.1, 3.5), (2.7, 3.14, 1.5));
  k = 0;

function getmax (p : SomeArray; k : integer) : real;
var
  i : integer;
  max : real;
begin
  max := p[0][k];
  for i := 1 to 1 do
    if max < p[i][k] then
      max := p[i][k];
  getmax := max;
end;

var
  i, j : integer;
  max : real;
  
begin
  max := getmax (p, k);
  for i := 0 to 1 do
    for j := 0 to 2 do
      p[i][j] := p[i][j] / max;
  for i := 0 to 1 do
    for j := 0 to 2 do
      writeln (p[i][j] : 0 : 2);
end.

Последний раз редактировалось krypt3r; 21.12.2009 в 12:30..