Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
PascalABC.NET Найти последний элемент массива R[K], величина которого находится в заданном диапазоне [a, b]; переставить его в середину массива https://www.cyberforum.ru/ pascalabc-net/ thread1116057.html
Найти последний элемент массива R, величина которого находится в заданном диапазоне ; переставить его в середину массива.
Моделирование работы с базой данных PascalABC.NET
Составьте программу, выполняющую следующие функции: 1) описание типа записи в соответствии с вариантом задания; 2) ввод данных из текстового файла (число записей указано в зада- нии) и формирование типизированного файла записей (базы данных); 3) выполнение типовых операций с базой данных: добавление новой записи в конец файла записей; изменение записи с заданным номером в файле; вывод...
PascalABC.NET Анимация движения объекта по кругу https://www.cyberforum.ru/ pascalabc-net/ thread1115947.html
Пытаюсь написать программу анимации движения объекта по кругу на PascalABC.NET, лучше всего в модуле ABCObjects + GraphABC (может потом добавлю объекты, передвигаемые мышью). В центре должен располагаться другой объект, но главное - движение, остальное сам сделаю. Занимаюсь этим языком недавно и не знаю, какую команду надо использовать(прописывать каждую точку отдельно - врят ли). Уже начал...
PascalABC.NET Написать программу, которая по известному тангенсу угла вычисляет угол в градусах написать программу, которая по известному тангенсу угла вычисляет угол в градусах https://www.cyberforum.ru/ pascalabc-net/ thread1115554.html
PascalABC.NET Определите количество чисел, равных пяти
Помогите пожалуйста Определить количество чисел равных пяти среди a,b,c.
PascalABC.NET Подписать в начало и конец числа единицу https://www.cyberforum.ru/ pascalabc-net/ thread1115173.html
Помогите решить пожалуйста 3 задачки по программированию задача 3: число вводится с клавиатуры, задание: подписать в начало и конец единицу. За ранние спасибо.
PascalABC.NET Является ли последовательность чисел возрастающей? задача 2: с клавиатуры вводятся числа, окончание ввода - 0, является ли последовательность этих чисел возрастающей? За ранние спасибо. https://www.cyberforum.ru/ pascalabc-net/ thread1115172.html PascalABC.NET Есть ли среди введённых чисел заданное число Z?
Помогите решить пожалуйста 3 задачки по программированию задача 1: с клавиатуры вводятся числа, окончание ввода - 0, есть ли среди введённых чисел заданное число Z? За ранние спасибо. lyubimoff, по правилам форума - один вопрос - одна тема. Ваши остальные задания здесь: 2) https://www.cyberforum.ru/pascalabc-net/thread1115172.html 3)...
PascalABC.NET Сформируйте диагональную матрицу С из элементов, которые определяются как суммы элементов столбцов полученной матрицы https://www.cyberforum.ru/ pascalabc-net/ thread1114403.html
Пытаюсь вот освоится с Паскалем, т.к. курсовую скоро писать, так что в первую очередь начал с установки, но под 7кой, если я правильно понял, работает только Pascal ABC, так вот вопрос заключается в том что, может программа отлично работающая на TP7 не работать на нем? Или они полностью идентичны и можно использовать не боясь? а задачка такая: Сформируйте диагональную матрицу С из элементов,...
PascalABC.NET Переменной v присвоить значение 1, если y = max (x, y, z) https://www.cyberforum.ru/ pascalabc-net/ thread1114103.html
Помогите, пожалуйста. Даны три числа x, y, z. Переменной v присвоить значение 1, если y = max(x, y, z); v присвоить значение 0, если y = min(x, y, z). В остальных случаях положить v = –1.
Три двери-Три значения PascalABC.NET
Вот у меня такая проблема. Начал писать игру. Пишу такой кусок, в котором комната с тремя дверьми. Трём дверям рандомно задаётся три состояния (комната-ловушка, комната-тупик, и комната-проход). И вроде бы всё ясно, но я туплю. С клавиатуры нужно ввести номер комнаты и получить результат. Я сделал три юнита (смерть, проход и тупик), и наверное из-за этого запутался. Юнит разброски состояний...
PascalABC.NET Возможно ли написать программу, которая открывалась бы в обычном окне windows https://www.cyberforum.ru/ pascalabc-net/ thread1114009.html
Т.е. написать, допустим, подобие стандартного калькулятора windows? Если возможно, расскажите как
Модератор
9909 / 5265 / 3320
Регистрация: 17.08.2012
Сообщений: 16,100
12.03.2014, 11:50 0

Дано натуральное число n. Выяснить, сколько положительных элементов содержит матрица {aij} i, j = 1, …, n, если aij = sin(i+j/2) - PascalABC.NET - Ответ 5888895

12.03.2014, 11:50. Показов 7775. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Paha79 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
const m = 10;
var a: array [1..m, 1..m] of real;
    i, j, k, n: integer;
begin
  repeat
    write('Размер матрицы (1..', m, ')? ');
    readln(n);
    if (n < 1) or (n > m) then writeln('Размер вне диапазона [1..', m, '], повторите ввод.')
  until (n >= 1) and (n <= m);
  writeln('Исходная матрица, элементы матрицы a[i, j] = sin(i + j / 2):');
  k := 0;
  for j := 1 to n do
    begin
      for i := 1 to n do
        begin
          a[i, j] := sin(i + j / 2);
          if a[i, j] > 0 then inc(k);
          write(a[i, j]:7:3)
        end;
      writeln
    end;
  writeln('Количество положительных элементов = ', k);
  readln
end.


Вернуться к обсуждению:
Дано натуральное число n. Выяснить, сколько положительных элементов содержит матрица {aij} i, j = 1, …, n, если aij = sin(i+j/2) PascalABC.NET
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.03.2014, 11:50
Готовые ответы и решения:

Дано натуральное число n. Получить действительную матрицу [Aij]I, j=1.......n., для которой Aij= 1/(i+j)
Дано натуральное число n. Получить действительную матрицу I, j=1.......n. для которой Aij=...

Даны натуральное число я, целочисленная матрица [aij]i=1,2; j=1,.,m
Даны натуральное число я, целочисленная матрица i=1,2; j=1,...,m. Найти сумму тех из элементов...

Выяснить сколько положительных элементов содержит матрица
Составить алгоритм программы : дано натуральное число n.выяснить сколько положительных элементов...

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

1
12.03.2014, 11:50
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.03.2014, 11:50
Помогаю со студенческими работами здесь

Выяснить сколько положительных элементов содержит матрица
дана действительная квадратная матрица порядка n. Выяснить сколко положительных элементов содержит...

Выяснить,сколько положительных элементов содержит матрица
Сесия на носу помогите решить задачки Програмирование в среде Borland Pascal на тему:...

Массив. Выяснить, сколько отрицательных элементов содержит матрица
Не могли бы мне помочь с решением задачи с помощью разработки алгоритма? Я вообще не...

Как выяснить сколько положительных элементов содержит матрица Aij где i , j = 1,.,N, Aij = sin ( i + j/2)
Дано натуральное число N. Выяснить сколько положительных элементов содержит матрица Aij где i , j =...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru