15.03.2010, 06:58
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
С нами:
8556802
Репутация:
79
|
|
Поподробнее напиши, а то я че то, кроме того что в массиве 12 элементов, заданных формулой, ничего не понял..
|
|
|
15.03.2010, 11:54
|
|
Участник форума
Регистрация: 02.02.2010
Сообщений: 107
С нами:
8563393
Репутация:
28
|
|
выложите delphi3 у кого есть, пожалуйста!
|
|
|
|
15.03.2010, 12:04
|
|
Участник форума
Регистрация: 14.03.2009
Сообщений: 237
С нами:
9031410
Репутация:
314
|
|
Сообщение от [stranger]
выложите delphi3 у кого есть, пожалуйста!
http://snowy.ifolder.ru/3257180
|
|
|
|
15.03.2010, 15:04
|
|
Участник форума
Регистрация: 02.02.2010
Сообщений: 107
С нами:
8563393
Репутация:
28
|
|
Сообщение от s0l_ir0n
http://snowy.ifolder.ru/3257180
я этот уже качал!
он не ставится.. если у тебя получилось поставить залей куда-то компилер оттуда.
|
|
|
|
15.03.2010, 18:26
|
|
Познавший АНТИЧАТ
Регистрация: 05.05.2008
Сообщений: 1,078
С нами:
9482786
Репутация:
1357
|
|
а)Помогите плиз написать прогу на паскале чтобы можно было в одномерном массиве изменить порядок следования элементов.
б)И написать программу подсчета количества элементов, попадающих между номером минимального элемента и максимального элемента в массиве из 30 чисел.
Последний раз редактировалось MaTpOc; 15.03.2010 в 18:44..
|
|
|
|
15.03.2010, 18:37
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
С нами:
8850305
Репутация:
259
|
|
а) не совсем понял.. как нужно что бы элементы находились?? просто в обратном порядке??? или рандомом?
б) между минимальным элементом и каким еще то???
|
|
|
|
15.03.2010, 18:45
|
|
Познавший АНТИЧАТ
Регистрация: 05.05.2008
Сообщений: 1,078
С нами:
9482786
Репутация:
1357
|
|
Сообщение от EndLeSSDre@M
а) не совсем понял.. как нужно что бы элементы находились?? просто в обратном порядке??? или рандомом?
б) между минимальным элементом и каким еще то???
а) типо 123 а выводилось 321
б)поправил
|
|
|
|
15.03.2010, 18:48
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
С нами:
8850305
Репутация:
259
|
|
это для первой задачи
PHP код:
program asdf;
const n=10;
a:array[1..n] of integer;
begin
writeln('Zapolnite massive');
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
writeln;
writeln('Ishodniy massive');
for i:=1 to n do
write(a[i], ' ');
writeln;
writeln('Rezultat');
for i:=n downto 1 do
write(a[i], ' ');
writeln;
readln;
end.
Это для 2
PHP код:
program asdf;
const n=30;
a:array[1..n] of integer;
begin
writeln('Zapolnite massive');
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
writeln;
X := 1;
N := A[X];
for i:=1 to n do
If N < A[I] Then
Begin
X := I;
N := A[X];
K=i
End;
X := 1;
N := A[X];
for i:=1 to n do
If N > A[I] Then
Begin
X := I;
N := A[X];
L=i
End;
for i=K to L do
write(a[i], ' ');
writeln;
readln;
end.
Последний раз редактировалось EndLeSSDre@M; 15.03.2010 в 19:08..
|
|
|
|
15.03.2010, 19:06
|
|
Участник форума
Регистрация: 25.11.2009
Сообщений: 201
С нами:
8663063
Репутация:
226
|
|
Сообщение от EndLeSSDre@M
это для первой задачи
PHP код:
writeln('Rezultat');
for i:=n to 1 do
write(a[i], ' ');
writeln;
readln;
end.
скорее for i:=n downto 1 do
|
|
|
|
15.03.2010, 20:30
|
|
Познающий
Регистрация: 17.02.2010
Сообщений: 45
С нами:
8542140
Репутация:
47
|
|
EndLeSSDre@M..Вы когда пишете код к программе хотя бы тестите его?! И прочитайте внимательнее какое задание было. Без обид, но вы такую байду выложили
MaTpOc...вот код ко второй задаче
Код:
{$APPTYPE CONSOLE}
const
n = 30;
var
a: array [1..n] of integer;
i, imax, imin, max, min: integer;
begin
min:=maxlongint;
max:=-min;
for i:=1 to n do
begin
read(a[i]);
if a[i] > max then // нахождение максимального
begin
imax:=i;
max:=a[i];
end;
if a[i] < min then // нахождение минимального
begin
imin:=i;
min:=a[i];
end;
end;
if imin = imax then write('0')
else write(abs(imin - imax) - 1);
readln;
end.
И уточните один момент, первого макс/мин или последнего в массиве?
Последний раз редактировалось Soherox; 15.03.2010 в 20:33..
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
![Аватар для [stranger]](/avatars/avatar113122.jpg?1983736){kind=avatar}
![Аватар для [stranger]](/avatars/avatar113122.jpg?1984061){kind=avatar}
Похожие темы
Комбинированный вид
