Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 12.12.2013, 19:01   #1
Alekzinder
Пользователь
 
Регистрация: 05.05.2012
Сообщений: 24
По умолчанию Не работает прогамма

Помогите доработать программу.
Составить программу, которая отыскивает среди пар элементов одномерного массива М те, разность между элементами которых есть величина наибольшая для данного массива.
Код:
Program zad1;
const n=10;
var i,f:byte;
k,max:integer;
arr:array[1..n] of integer;
begin
randomize;
max:=0;
for i:=1 to n do
begin
for f:=1 to n do
if i>f then
k:=abs(arr[i]-arr[f]);
if max<k then
max:=k;
end;
writeln(arr[f],' ',arr[i]);
readln;
end.
и кто может напишите пожалуйста коды к задачкам
1.Слить две упорядоченные последовательности в одну, используя рекурсивный алгоритм.
2. На скрине задание
Изображения
Тип файла: png Безымянный.png (5.3 Кб, 55 просмотров)
Alekzinder вне форума
Старый 12.12.2013, 19:17   #2
type_Oleg
Старожил
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Сообщений: 2,538
По умолчанию

Код:
then  max:=k;
И все ?
Нашли саму максимальную разность, а надо найти элементы, то есть их индексы.
И вообще, я подозреваю, что массив arr заполнен нулями. Он не инициализирован.
Процедура Randomize - она для функции Random, а я ее не вижу.
type_Oleg вне форума
Старый 12.12.2013, 19:34   #3
Alekzinder
Пользователь
 
Регистрация: 05.05.2012
Сообщений: 24
По умолчанию

вот даа! он заполнен нулями, я просто не пойму как с помощью рандомайза заполнить числами. мне хотябы такой вид программы чтобы заработал)
Alekzinder вне форума
Старый 12.12.2013, 19:39   #4
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,602
По умолчанию

Код:
For i:=1 to n do
For j:=1 to n do
  Arr[i,j]:=random(m); // числа от 0 до m-1
ZX Spectrum-128 вне форума
Старый 12.12.2013, 20:37   #5
Alekzinder
Пользователь
 
Регистрация: 05.05.2012
Сообщений: 24
По умолчанию

Спасибо большое!
Alekzinder вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
С++ прогамма которая определяет высокосный или нет год vireles Помощь студентам 3 15.03.2012 21:00
Прогамма на С под Windows Alessandro Rossi Общие вопросы C/C++ 1 28.11.2010 16:33
как работает прогамма? matsa Помощь студентам 0 22.01.2010 00:36
Прогамма для проведения автогонок mancubus Фриланс 16 15.05.2009 13:18
прогамма для роботы с сетью blackstersl Работа с сетью в Delphi 4 23.01.2009 16:36