Все категории

4 года назад

Пожалуйста решите!! На завтра очень нужно! Решается моя четвертная оценка!

Знания

Информатика

1 ответ:

sernik [7]4 года назад

0 0

Входные:

a, b, c
3, 7, 1
Целое (Integer)
Даются только целые числа

Выходные:

z
3.6666666...
Вещественный (Real)
Выполняется деление

Читайте также

Помогите решить задачу пожалуйста в паскале Описать функцию Min(A,N) вещественного типа, находящую минимальный элемент массива A

Максим145

//Pascal ABC.NET v3.1 сборка 1172

var
NA, NB, NC: integer;

function minim(ar: array of real; n: integer): real;
var
i: integer;
min: real;
begin
min := MaxReal;
for i := 0 to n - 1 do //динамические массивы индексируются с 0
if min > ar[i] then min := ar[i];
minim := min;
end;

begin
randomize;
write('NA:');readln(NA); //ввод размерностей
write('NB:');readln(NB);
write('NC:');readln(NC);
var a := ArrRandomReal(NA, 1, NA); //инициализация динамических массивов
var b := ArrRandomReal(NB, 1, NB);
var c := ArrRandomReal(NC, 1, NC);
a.println(' ');
writeln('Min:', minim(a, NA));
b.println(' ');
writeln('Min:', minim(b, NB));
c.println(' ');
writeln('Min:', minim(c, NC));
end.

Пример ввода:
NA:3
NB:4
NC:5
Пример вывода:
2.45183664907321 2.12786289357015 2.8286734511278
Min:2.12786289357015
3.47355249453036 1.03827733129183 2.42042394141686 2.17556424353996
Min:1.03827733129183
3.9204495134393 3.64103751938838 3.57791954771519 4.31033914690387 4.13624760282051
Min:3.57791954771519

0 0

3 года назад

Одна минута записи звуковой информации занимает на диске 1,3 мб,глубина кодирования равна 16.с какой частотой дискреты записан з

Валентин-Махно [296]

Объем памяти в байтах/время записи в секундах/разрядность звуковой платы в байтах
1.3мб=1.3*1024*1024=1363148,8
минута это 60 сек
а глубина 16 это 16 бит, но так как требуются байты возьмем 2 конечно же
далее все по формуле
1363148,8/60/2= 11359.5733333Гц но помним для перевода в Кгц нужно не на 1000 а на 1024 делить

0 0

4 года назад

К чему приведёт произвольное изменение расширения (с помощью переименования)?

Profi001

Подобное действие приведет к тому, что операционная система не сможет определить приложение для открытия данного файла, что собственно говоря равносильно потере информации из этого файла для пользователя. Все, что ему останется - это подбирать приложения наугад. Значок файла при этом также изменится на неопределенный

0 0

4 года назад

Составьте программу поиска номера N наименьшего элемента одномерного массива. Турбо паскаль

Катя152

program bar;

uses Crt;

const

nn = 100;{ максимальный размер массива }

var

i, j, n: integer;

a: array[1..nn] of integer;

begin

randomize;

write('n = ');

readln(n);

for i := 1 to n do

begin

a[i] := random(199) - 99;

write(a[i], ' ')

end;

writeln;

j := 1;

for i := 2 to n do

if a[i] < a[j] then

j := i;

writeln('N min = ', j);

ReadKey

end.

0 0

3 года назад

C ++ Напишите программу, которая выводит на экран двухмерный массив размерностью NхN, заполненный случайными числами от 0 до 9.

Mary Freak [111]

#include <iostream>

#include <time.h>

#include <cstdlib>

using namespace std;

int main() {

int n, s = 0, max = 0, min = 9;

srand(time(NULL));

do {

cout << "Input size of matrix: n = ";

cin >> n;

if (n < 0)

{

cout << "Input error! n < 0. Please try again" << endl;

continue;

}

else break;

} while (true);

int **matr = new int* [n];

for(int i = 0; i < n; i++)

matr[i] = new int [n];

for (int i = 0; i < n; i++)

{

for (int j = 0; j < n;j++)

{

matr[i][j] = rand() % 10;

cout << matr[i][j] << " ";

}

cout << endl;

}

for (int i = 0; i < n; i++)

{

if (max < matr[i][i])

max = matr[i][i];

if (min > matr[i][n-i-1])

min = matr[i][n-i-1];

s += matr[i][i] + matr[i][n - i - 1];

}

if (n % 2 != 0)

s -= matr[n / 2][n / 2];

cout <<"Maximum number on the main diagonal: " << max << endl << "Minimum number on the secondary diagonal: " << min << endl << "Sum of numbers on the diagonals: " << s;

return 0;

}

/* Редактор не сохраняет отступы зачастую, поэтому прикрепил .cpp файл с кодом */

0 0

4 года назад