IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Массив
Анна
сообщение 6.06.2007 19:21
Сообщение #1


Бывалая
***

Группа: Пользователи
Сообщений: 290
Пол: Женский
Реальное имя: Анютка

Репутация: -  7  +


Программа выводит на экран наибольшую разность между парами элементов массива.
Как на экран вывести эту пару?

program mass6(input,output);
uses crt;
var a: array[1..4] of real;
    n,i,j,k:integer;
    max:real;
    el1,el2:integer;

begin
n:=4;
randomize;
     for i:=1 to n do begin
         a[i]:=random(10);
         end;
         clrscr;
         writeln;
         writeln('Исходный массив: ');
       for i:=1 to n do
           write(a[i]:5:0);
           writeln;

        max:=A[1]-A[2];
        for j:=1 to n do begin
         for k:=1 to n do begin
            if max < A[j]-A[k] then max:=A[j]-A[k];
         writeln('********************');
         writeln(a[j]:5:0,a[k]:5:0);
         end;
         end;

         write('naibolshaya raznost =');
         writeln(max:2:0);
         write('para elementov : ');
{???}
         readln;



end.


 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 4)
compiler
сообщение 6.06.2007 19:33
Сообщение #2


Человек
*****

Группа: Пользователи
Сообщений: 1 050
Пол: Мужской
Реальное имя: Станислав

Репутация: -  3  +


может както так...

{...}
el1,el2:real;
{...}
if max < A[j]-A[k] then begin
		el1:=A[j]; el2:=A[k]; 
                max:= A[j]-A[k];
end;
{...}
write('para elementov : ', el1, el2);
{...}

ЗЫ а куда ты все это выводишь ?

Сообщение отредактировано: compiler - 6.06.2007 19:38


--------------------
Спасибо!
Удачи!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Анна
сообщение 6.06.2007 20:32
Сообщение #3


Бывалая
***

Группа: Пользователи
Сообщений: 290
Пол: Женский
Реальное имя: Анютка

Репутация: -  7  +


На экран ))
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
compiler
сообщение 6.06.2007 20:43
Сообщение #4


Человек
*****

Группа: Пользователи
Сообщений: 1 050
Пол: Мужской
Реальное имя: Станислав

Репутация: -  3  +


Цитата(Анна @ 6.06.2007 20:32) *
На экран ))
и у тебя выводится Исходный массив?


--------------------
Спасибо!
Удачи!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
compiler
сообщение 7.06.2007 14:54
Сообщение #5


Человек
*****

Группа: Пользователи
Сообщений: 1 050
Пол: Мужской
Реальное имя: Станислав

Репутация: -  3  +


и еще если у тебя массив вещественных чисел то вместо
a[i]:=random(10);
пиши
a[i]:=random(10)+random;
, для добавления дробной части... или уже объявляй вектор целых чисел


--------------------
Спасибо!
Удачи!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия 28.07.2025 1:01
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"