0 / 0 / 0
Регистрация: 01.12.2010
Сообщений: 12
1

Вычислить среднее арифметическое четырех угловых чисел массива

22.12.2011, 07:06. Показов 1843. Ответов 4
Метки нет (Все метки)

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
unit Unit2;
 
interface
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
 
type
TForm2 = class(TForm)
Button1: TButton;
Label1: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
 
var
Form2: TForm2;
 
implementation
 
{$R *.dfm}
 
procedure TForm2.Button1Click(Sender: TObject);
const nmax=15;
var a:array [1..nmax,1..nmax] of integer;
b,c,k:integer;
i,j:byte;
x:real;
begin
randomize;
repeat
b:=StrToInt(Edit1.Text);
until b in [1..nmax];
repeat
c:=StrToInt(Edit2.Text);
until c in [1..nmax];
for i:=1 to b do
begin
for j:=1 to c do
begin
a[i,j]:=random(100);
end;
end;
//for i:=1 to nmax do
//Label4.Caption:=label4.caption+FloatToStr(a[b]);
//Label4.Caption:=label4.caption+FloatToStr(a[c]);
//Label4.caption:=label4.caption+#13;
//form2.Caption:='Massiv'+IntToStr(a[i,j]);
x:=(a[1,1] + a[1,10] + a[10,1] + a[10,10])/4;
Label3.Caption:='результат'+FloatToStr(x);
readln(x);
end;
 
end.
вот весь код, суть программы в том что она вычисляет среднее арифметическое 4х угловых чисел массива
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.12.2011, 07:06
Ответы с готовыми решениями:

Вычислить среднее арифметическое чисел массива с четными индексами
Организовать ввод одномерного массива, состоящего из N (до 20) целых чисел 1) ввод с клавиатуры...

Вычислить среднее арифметическое положительных и среднее арифметическое отрицательных чисел последовательности
дана последовательность стоящая из n вещественных чисел.вычислить среднее арифметическое...

Вычислить среднее арифметическое ненулевых элементов массива целых чисел
Var a:array of integer; i,r,b:integer; begin...

Вычислить среднее арифметическое чисел
Пользователь вводит целые числа. Вычислить среднее арифметическое тех чисел, в разряде десятков...

4
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
22.12.2011, 07:45 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Вы уж определитесь в Делфи писать или в Паскале, а то туда-сюда не выйдет..

Добавлено через 3 минуты
Delphi
1
2
3
repeat
b:=StrToInt(Edit1.Text);
until b in [1..nmax];
Это совершенно бесполезная структура..
Массив нужно объявить динамическим если размер не известен
Delphi
1
var a:array of array of integer;
или размер задать константой если у Вас он равен 10.
Delphi
1
2
const n=10;
var a:array[1..n,1..n] of integer;
наверное массив нужно отобразить как-то на форме, например вывести в StringGrid.
и так далее...

Добавлено через 2 минуты
Для ввода размера массива удобно использовать компонент SpinEdit с вкладки Samples, там можно задать минимальное и максимальное значения и там не введешь ничего кроме целого числа.
0
0 / 0 / 0
Регистрация: 01.12.2010
Сообщений: 12
22.12.2011, 08:04  [ТС] 3
Puporev, у меня как раз с отображением массива на форме и возникла проблема, никак не получается сделать
0
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
22.12.2011, 08:13 4
Положи на форму компонент StringGrid, изучи его и выведи в него матрицу, часик помаешься, зато научишься. Можешь скачать Архангельскго 100 компонентов Делфи или найти электронный вариант в инете.
1
0 / 0 / 0
Регистрация: 01.12.2010
Сообщений: 12
22.12.2011, 08:22  [ТС] 5
Puporev, спасибо, собственно я этим уже и занимаюсь
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.12.2011, 08:22
Помогаю со студенческими работами здесь

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

Ввести с клавиатуры 5 дробных чисел и вычислить их среднее арифметическое
Очень нужно решения 2 задач в Delphi. Проходим тему "Циклы", но к такому был вообще не готов и...

Вычислить среднее арифметическое чисел, находящихся в типизированном файле
Написать программу,которая вычисляет среднее арифметическое чисел, находящихся в типизированном...

Вычислить сумму и среднее арифметическое вводимой последовательности чисел
В задаче сказано: Напишите программу, вычисляющую сумму и среднее арифметическое...


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

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

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