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

очень нада на делфі

04.12.2010, 17:50. Показов 963. Ответов 2
Метки нет (Все метки)

Задан массив действительных чисел А(n*m), n<=100 і m<=10. Разработать программу, которая вычисляет:
Z=max(min(A(1),...,A(m)),min(A(m+1),...,A(2m)),...,min(A(m*( n-1)+1),...,A(n*m)))
0

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

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.12.2010, 17:50
Ответы с готовыми решениями:

Текст на самой форме, делфі 7
Как написать текст на самой форме какой компонент нужно использовать, помогите пожалуйста?

Переробіть задачу з мови програмування паскаль на делфі
умова задачі: Обчислити площу н-кутника вершини якого задані координатами Це код робочої...

SOS!!! матрица,цыкличный здвиг!!!!очень нада!!!Зарания СПС!!!
Дана матрица m,n. По жыланию пользавателя осушествить циклычний здвиг елементов строки або столбца...

Как сделать вот эти задания подскажите, очень нада.
1. Составить программу для табулирования функции y(x)=2^cos(x)+x, x=(-&quot;пи&quot;,&quot;пи&quot;) с шагом &quot;дельта...

2
12 / 11 / 7
Регистрация: 28.05.2009
Сообщений: 56
04.12.2010, 18:46 2
Лучший ответ Сообщение было отмечено Ymnik как решение

Решение

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
procedure TForm1.Button1Click(Sender: TObject);
var
ArrReal:array of double;
n,m,i,j:integer;
ResultMin,ResultMax:double;
begin
Randomize;
n:=RandomRange(1,100);
m:=RandomRange(1,10);
setlength(ArrReal,n*m);
for I := 1 to n*m do
begin
  ArrReal[i]:=Random;
  ArrReal[i]:=ArrReal[i]*RandomRange(-2147483648, 2147483647);
end;
//Result:=max();
ResultMax:=-9.9E308;
ResultMin:=9.9E308;
for i := 1 to n do
  begin
    for j := 1 to m do
        resultMin:=min(resultMin,ArrReal[i*j]);
    ResultMax:=max(ResultMax,resultMin);
  end;
label1.Caption:=floattostr(ResultMax);
end;
Ты уверен, что массив вещественных чисел, а не целых?
0
0 / 0 / 0
Регистрация: 24.09.2009
Сообщений: 62
05.12.2010, 18:40  [ТС] 3
а ты можеш кинуть всю програму в архиве???
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.12.2010, 18:40

Задано натуральное число n . Написать программу вычисления значения выражения.Очень нада)Спасибо!
1+1/2+1/2^2+1/( 2^3 )+…+ 1/( 2^n ) Пользуйтсь редактором внизу страницы...

оч нада
вычислить A^3+B^4+C^7 используя функцию возведения числа в целую степень

Нада доделать
write('a='); readln(a); min:=a; for i:=2 to n do begin write('a='); readln(a); if...

Блоксхемы оч оч нада!=((
Пожалуста ПОЖАЛУСТО! можете ктонить зделать блоксхемы на 2 этих программы 1 НОК двух чисел uses...


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

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

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