Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
1 / 1 / 1
Регистрация: 08.12.2011
Сообщений: 84
1

Элементы матрицы, значения которых превышают значения выражения , напечатать вместе с номерами их строк и столбцов

21.11.2012, 21:54. Показов 711. Ответов 5
Метки нет (Все метки)

Добрый вечер!Написал программу, но она не работает. посмотрите пожалуйста.
Задание прикрепил + n = 4, m = 5.
Элементы матрицы, значения которых превышают значения выражения , напечатать вместе с номерами их строк и столбцов. d, b – переменные, числовые значения которых задаются по вводу.

Вопросы: в паскале ввод через readln(), а как в делфи сделать ввод через edit?


Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
procedure TForm1.Button1Click(Sender: TObject);
const n=4;
const m=5;
 
var a:array[1..n,1..m]of integer;
i,j:integer;
d,b:real;
s:string;
 
begin
b:=5;
d:=4;
for i:=1 to n do
 for j:=1 to m do
  if i>3 then a[i,j]:=(power((sin(Pi+0.32)),2)-0.94)
      else a[i,j]:=sqrt(power((i-j),2)*0.983);
 
for i:=1 to n do
  for j:=1 to m do
if a[i,j]> sqrt(d*d+(i+j)*b) then s:=s+inttostr(a[i,j],' ',i,' ',j,' ');
 
 
Form1.Edit2.Text:=s;
 
end;
Добавлено через 10 минут
http://pikucha.ru/i9yWA - задание
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.11.2012, 21:54
Ответы с готовыми решениями:

Найти суммы элементов тех строк матрицы, максимальные элементы которых не превышают среднего значения
Решить задачу, используя функцию. Дана матрица А(n,m). Определить суммы элементов тех строк...

Все элементы массива X(n), значения которых находятся в интервале -19<K(I)<20, возвести в квадрат. Напечатать номера этих элементов и их значения
Все элементы массива X(n), значения которых находятся в интервале -19&lt;K(I)&lt;20, возвести в квадрат....

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

Вычисления среднего арифметического элементов матрицы значения которых превышают 50
Разработать программу вычисления среднего арифметического элементов матрицы В(14*16) значения...

5
Всегда не хватает времени
119 / 119 / 20
Регистрация: 15.10.2009
Сообщений: 493
21.11.2012, 22:02 2
Цитата Сообщение от rob777 Посмотреть сообщение
Вопросы: в паскале ввод через readln(), а как в делфи сделать ввод через edit?
Delphi
1
t:=strtoint(Edit1.Text)
t в этом случае integer

Добавлено через 1 минуту
и лучше тебе это все выводить не в Едит а в Мемо
0
1 / 1 / 1
Регистрация: 08.12.2011
Сообщений: 84
21.11.2012, 22:15  [ТС] 3
Цитата Сообщение от Mischanja Посмотреть сообщение
Delphi
1
t:=strtoint(Edit1.Text)
t в этом случае integer

Добавлено через 1 минуту
и лучше тебе это все выводить не в Едит а в Мемо
понял,спасибо. А что насчет кода, где ошибка?
0
Всегда не хватает времени
119 / 119 / 20
Регистрация: 15.10.2009
Сообщений: 493
21.11.2012, 22:22 4
Прикол в том, что у тебя значение sqrt(d*d+(i+j)*b) при этих начальных данных больше любого элемента матрицы. смотри прогу в прикрепленных
0
Вложения
Тип файла: rar code.rar (617.1 Кб, 9 просмотров)
Всегда не хватает времени
119 / 119 / 20
Регистрация: 15.10.2009
Сообщений: 493
21.11.2012, 22:23 5
Там все вывел на форму в лучшем виде. чтобы было наглядно
1
1 / 1 / 1
Регистрация: 08.12.2011
Сообщений: 84
22.11.2012, 15:42  [ТС] 6
Цитата Сообщение от Mischanja Посмотреть сообщение
Прикол в том, что у тебя значение sqrt(d*d+(i+j)*b) при этих начальных данных больше любого элемента матрицы. смотри прогу в прикрепленных
Точно,я изменил b и d на ввод с клавиатуры и при других значениях считает.Спасибо)
0
Вложения
Тип файла: rar код.rar (215.7 Кб, 10 просмотров)
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.11.2012, 15:42

Ограничить значения всех элементов, абсолютные значения которых превышают среднее
Требуется помощь, помогите пожалуйста!) Задача:перевести код из C++ в С и исправить ошибки, если...

Найти количество элементов матрицы, значения которых не превышают по абсолютной величине Х
1) Дана матрица О (2,3) Найти кол-во элементов, значения которых не превышают по абсолютной...

Найти сумму элементов матрицы значения которых не превышают заданного числа
Помогите,не успеваю просто сделать сам,завтра сдача уже. Дана квадратная матрица.Найти сумму...

Найти и заполнить в новый массив элементы массива, значения которых не превышают значение K
Найти и заполнить в новый массив элементы массива А, значения которых не превышают значение K.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.