Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi] Массив. Натуральное число n.

Автор: Маrишка 19.12.2008, 21:07

Здравствуйте, помогите пожалуйста. Не справедливость какая то. У всех задачи как задачи , а у меня даже смысл не понятен. (. Дано натуральное число n. Выяснить сколько положительных элементов содержит матрица [А ij] i,j=1,....,n, если Aij=sin(i+i/2). Вывести матрицу на экран. Зарание спасибо , буду очень благодарна.

Автор: mr.Anderson 19.12.2008, 23:14

А что непонятного? Есть матрица (массив NxN), заполненная значениями sin(i + i/2). Для заполнения массива запускаем цикл по строкам и столбцам, внутри них заполняем текущий элемент вот этим самым выражением. Попутно считаем положительные. Ну и все, собственно.

Автор: Маrишка 19.12.2008, 23:26

Спасибо., но я не программист и языкаДелфи не зняю. Мне бы кодик, а кнопки я сама.

Автор: Маrишка 20.12.2008, 13:37

HELLp!!!

Автор: Dobermann 20.12.2008, 14:32

Заполнение

Код


for i:=1 to n do
  for j:=1 to n do
     a[i,j]:=sin(i+i/2)

Вывод

Код


for i:=1 to n do begin
  for j:=1 to n do begin
    write(a[i,j],' ');
   end;
   writeln;
   end;

Проверка

Код


n:=0;
for i:=1 to n do
  for j:=1 to n do
    if a[i,j]>0 then n:=n+1

Автор: Маrишка 20.12.2008, 14:44

Это все на кнопочку Button? )

Автор: Dobermann 20.12.2008, 14:49

Можно и на button, только порядок поменяй: заполнение - проверка - вывод
Только зачем тебе форма?! Создай приложение...application

Автор: Маrишка 20.12.2008, 14:50

И пожалуйста можно весь код c Var, Const. Пожалуйста

Добавлено через 1 минуту и 50 секунд
Нужно с кнопкой, автозаполнение и вывод на экран