Модераторы: volvo877, Snowy, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Одномерный массив, Помогите пожалуйста найти ошибку в проге 
:(
    Опции темы
pon4ik
Дата 1.7.2006, 00:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 30.6.2006

Репутация: нет
Всего: нет
Люди, пожалуйста умоляю, помогите!!! три часа просидел над прогой, сил уже нет...скоро родной русский язык позабуду.....буду разговаривать на паскале......с ошибками!!! Протестите прогу пожалуйста и найдите в ней ошибку!!! В общем суть проги: дан одноерный массив, надо ввести в него числа, и чтобы прога потом вывела их от большего к меньшему!!! она их выводит, тока вот, если на месте последнего числа поставить число меньшее предпоследнего, прога не увидит самое меньшее число!!! не знаю в чем глюк, помогите пожалуйста!!!

Код проги:

Код
Program c2;
uses crt;
var pr: array [1..100] of integer;
    obr: array [1..100] of integer;
    a,str,b,z: integer;
    k, t,i: integer;
begin
clrscr;
writeln ('Vvedite kolichestvo chisel');
readln(z);
writeln;
writeln('Vvedite chisla!!!');
 for i:=1 to z do begin
 readln(pr[i]);
 writeln;
end;
writeln;

b:=z;

 for k:=1 to 100 do begin
 a:=pr[1];
 for i:=1 to b do begin
 if a<pr[i] then begin a:=pr[i];
 t:=i;
 end;
 end;

 obr[k]:=a;
 for i:=t to b do begin
 pr[i]:=pr[i+1];
 end;

 b:=b-1;
 end;
 for i:=1 to z do begin
 writeln(obr[i]);
 end;
 readln;
 end.


Про теги не забывай ! 

Это сообщение отредактировал(а) volvo877 - 1.7.2006, 01:15
PM MAIL   Вверх
volvo877
Дата 1.7.2006, 01:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116
Цитата(pon4ik @  1.7.2006,  00:40 Найти цитируемый пост)
тока вот, если на месте последнего числа поставить число меньшее предпоследнего, прога не увидит самое меньшее число!!!

Правда? Я ввел 5 чисел:
1, 2, 3, 8, 5
и программа отработала как положено... С чего бы это? Какие данные ты вводил? 
PM MAIL   Вверх
Palladin
Дата 1.7.2006, 02:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: нет
Всего: 17
Согласен с Volvo всё пашет smile  ввёл 10 чисел

1,2,3,4,8,9,12,15,22,13

на выходе
22
15
13
12
9
8
4
3
2
1

 smile  


--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
pon4ik
Дата 1.7.2006, 08:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 30.6.2006

Репутация: нет
Всего: нет
Я вводил 5 чисел: 4, 4, 9, 4, 1 - единицу он не видит 
PM MAIL   Вверх
fist13
Дата 1.7.2006, 08:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 1.3.2006

Репутация: нет
Всего: нет
да ладно вам народ, такие простые проги надо уметь самим писать. стыдно батенька. стыдно должно быть.

Добавлено @ 08:29 
кстати да. я тож попробовал. не пашит. ха
 
PM MAIL   Вверх
Palladin
Дата 1.7.2006, 11:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: нет
Всего: 17
Щас напишу по своему 


--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
Palladin
Дата 1.7.2006, 11:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: нет
Всего: 17
Эта точно пашет, проверено 10 тестами smile 


Код

Program RooR;
var
a:array[1..100] of integer;
i,n,g,j:integer;
begin
 Write('Vvedite kol-vo elementov');
 Readln(n);
 for i:=1 to n do
   begin
    Write('A[',i,']=');
    readln(a[i]);
   end;
       for i:=n downto 2 do
         for j:=1 to i-1 do
         if a[j]<=a[j+1] then
         begin
         g:=a[j];
         a[j]:=a[j+1];
         a[j+1]:=g;
        end;
        

Wrtieln;


           for i:=1 to n do
            Writeln('A[',i,']=',a[i]);
             Readln;
end.


P.S. Класическая сотрировка 3 стаканами, если я не ошибаюсь smile    

Это сообщение отредактировал(а) RooR - 1.7.2006, 12:09


--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
pon4ik
Дата 1.7.2006, 17:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 30.6.2006

Репутация: нет
Всего: нет
Спасибо огромное всем, кто помогал!!! smile  
PM MAIL   Вверх
Водолейчик
Дата 11.12.2006, 18:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 11.12.2006

Репутация: нет
Всего: нет
Помогите пожалуйста !!!! Помогите решить :   В одномерном числовом массиве X(N) вычислить сумму элементов значение которых больше значения первого положительного элемента.
Заранее большое спасибо!!!!!!!
PM MAIL   Вверх
Zero
Дата 11.12.2006, 19:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24
Водолейчик, а ты правила то прочитай для начала, и скажи, где ты увидел, что разрешено в одной теме задавать по несколько вопросов.
PM MAIL ICQ   Вверх
Водолейчик
Дата 11.12.2006, 22:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 11.12.2006

Репутация: нет
Всего: нет
А почему по несколько вопросов?Это одно задание!И я не он а она
PM MAIL   Вверх
Zero
Дата 12.12.2006, 08:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24
Цитата(Водолейчик @  11.12.2006,  23:21 Найти цитируемый пост)
А почему по несколько вопросов?Это одно задание!
 Понимаешь, эту тему создал pon4ik, и он уже задал вопрос, на который получил ответ. А если ты хочешь задать свой вопрос, то тоже создавай отдельную тему, и в ней незабудь указать как пыталась решить, и что конкретно у тебя не получилось. Тогда получишь ответ.
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

1. Обсуждать и делится взломанными компонентами или программным обеспечением

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0490 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.