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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 22.11.2013, 18:00   #41
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,602
По умолчанию

Код:
 for i:=1 to 10 do 
    if abs(a[i]-n) < ans(a[ind]-n) then ind := i;
тут abs должно быть. Опечатка
ZX Spectrum-128 вне форума
Старый 22.11.2013, 20:49   #42
AZelensky
Пользователь
 
Регистрация: 15.11.2013
Сообщений: 52
По умолчанию

В общем, вот что у меня в итоги получилось:

Код:
USES CRT;
CONST
MaxElMass = 30;
Var
Mass: array [1..MaxElMass] of REAL;
number: REAL;
n: INTEGER;
i, minindnum: byte;
Begin
TextBackGround(White);
TextColor(Black);
CLRSCR;
write('Enter number: '); READ(number);
write('Enter max element: '); READ(n);
writeln('Enter values: ');
For i:= 1 to n Do begin
    write('Element[', i, '] = ');
    READLN(Mass[i]);
end;
writeln('The resulting array: ');
write('Array: [');
For i:= 1 to n Do begin
    write(',', Mass[i]:1:0);
end;
write(']');
ReadLN;
TextColor(20);
writeln('');
writeln('Press "ENTER" to continue...');
ReadLN;
TextColor(Black);
minindnum:= 1;
For i:= 1 to n Do
If ABS(Mass[i] - number) < ABS(Mass[minindnum] - number) then
   minindnum:= i;
writeln('The index min element = ', minindnum);
ReadLN;
END.
Вот прога в действии:


Я так понял, что всё верно и правильно работает?
AZelensky вне форума
Старый 22.11.2013, 21:06   #43
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,602
По умолчанию

Попробуйте 1,2,3 и n=10
ZX Spectrum-128 вне форума
Старый 22.11.2013, 21:14   #44
AZelensky
Пользователь
 
Регистрация: 15.11.2013
Сообщений: 52
По умолчанию

Цитата:
Сообщение от ZX Spectrum-128 Посмотреть сообщение
Попробуйте 1,2,3 и n=10
Так?:

AZelensky вне форума
Старый 22.11.2013, 21:17   #45
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,602
По умолчанию

Да, все в порядке
ZX Spectrum-128 вне форума
Старый 22.11.2013, 21:21   #46
AZelensky
Пользователь
 
Регистрация: 15.11.2013
Сообщений: 52
По умолчанию

Цитата:
Сообщение от ZX Spectrum-128 Посмотреть сообщение
Да, все в порядке
Ой, спасибище огромное!
AZelensky вне форума
Старый 22.11.2013, 23:04   #47
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

пожалуйста!

тему закрываем?
Serge_Bliznykov вне форума
Старый 23.11.2013, 10:03   #48
AZelensky
Пользователь
 
Регистрация: 15.11.2013
Сообщений: 52
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
пожалуйста!

тему закрываем?
Да, можно закрывать. И спасибо!
AZelensky вне форума
Закрытая тема


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дана непустая последовательность вещественных чисел, оканчивающаяся числом 1000. Последовательность является неубывающей. fanatloko Паскаль, Turbo Pascal, PascalABC.NET 1 23.06.2013 14:25
Дана последовательность вещественных чисел. каждая пара чисел задает границы отрезка. Найти количество целых чисел на отрезках 'studentka' Помощь студентам 6 30.11.2011 18:35
Последовательность вещественных чисел ch1c1sT Помощь студентам 1 09.10.2011 19:05
Ввести строку символов,в которой задана последовательность целых чисел (возможно со знаком), разделенных killoff1234 Помощь студентам 0 16.05.2010 18:37