Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
ness18
0 / 0 / 0
Регистрация: 17.03.2012
Сообщений: 1
#1

Делфи с визуал.средствами,нужно создать массив размерами nxn элементы вычисляются по формуле и вывести сумму неотрц.элементов отдельным окном - Delphi

20.03.2012, 12:59. Просмотров 481. Ответов 0
Метки нет (Все метки)

по могите,пожалуйста,уже пять часов убила на составление программы((
Задача стоит такая: В турбо делфи с помощью визуал.средств задать двумерный массив(матрицу) любым размером,но желательно побольше
причем размер этого массива n вводится пользователем с клавиатуры в поле Edit..это еще нормально..
Элементы матрицы равны a [i,j]:= cos (i*i)+(j*j)-n. Также необходимо вывести на экран сумму неотрицательных элементов матрицы..

Мальчики,помогите пожалуйста в написании программы!!!
вычисление суммы описала для кнопки,чтобы хоть как-то считала сумму,но увы не работает(((
Может что-то напутала,пожалуста,поправьте.
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.StringGrid1Click(Sender: TObject);
 
var a:array[1..50,1..50] of real;
  i,j,n:integer;
begin
 n:=StrToInt(Edit1.text);
  read(n,a);
  For i:=1 to n do
    For j:=1 to n do
    begin a[i,j]:=cos((i*i)+(j*j)-n);
    end;
StringGrid1.cells[i,j]:=FloatToStr(a[i,j]);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
 var i:integer;
     s:integer;
begin
 s:=0;
for i:=0 to n-1 do
s:=s+a[i];
Edit2.Text:=IntToStr(s);
end;
 
end.
 Комментарий модератора 
Теги кода добавлены модератором. По правилам форума, код должен быть оформлен соответствующими тегами. Для оформления кода Delphi следует выделить этот код и на панели редактирования сообщения нажать кнопку: "DELPHI".
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.03.2012, 12:59
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Делфи с визуал.средствами,нужно создать массив размерами nxn элементы вычисляются по формуле и вывести сумму неотрц.элементов отдельным окном (Delphi):

Дан массив А, где n элементов, нужно сформировать массив B, где элементы высчитываются по формуле
Помогите пожалуйста, нужно программу написать. Дан массив А, где n элементов,...

Создать одномерный массив y, элементы вычисляются по формуле
Программа на языке программирования Pascal или C + +. Создать одномерный массив...

Создать массив, элементы которого вычисляются по формуле
двумерные массивы

Создать массив R, элементы которого вычисляются по указанной формуле
Создать массив R, элементы которого вычисляются по указанной формуле

Получить массивы X3 (NxN), X4 (NxN), элементы которых вычисляются по формулам
Помогите, пожайлуйста, с задачей. 15. Ввести двумерные массивы X1(NxN)...

Создать файл F, элементы которого вычисляются по формуле
Я новичок в программировании,помогите решить задачку на Паскале! Оч. надо...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.03.2012, 12:59
Привет! Вот еще темы с решениями:

Создать файл f3, элементы которого вычисляются по формуле
Создать файл f3, элементы которого вычисляются по формуле m:=3*i*i, определить...

Создать типизированный файл, элементы которого вычисляются по формуле
Program tipizfail; var M: file of integer; i,F,Fi,n:integer; Begin ...

Сформировать массив, элементы которого вычисляются по формуле
сформировать массив P eлементы которого вычисляются по формуле Нужно...

Сформировать массив В, элементы которого вычисляются по формуле
Дан массив А. Сформировать массив В, элементы которого вычисляются по формуле...


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

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

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