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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Помогите по Паскалю 
:(
    Опции темы
fantastick
Дата 23.1.2004, 00:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Нужно написать прогу в Паскале:
запросить ввод 30 целых чисел, посчитать сууму четных, определить максимальное и минимальное значение и самое главное отсортировать все числа в порядке возрастания!!

Заранее спасибо smile.gif
PM MAIL   Вверх
Vit
Дата 23.1.2004, 00:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207
Это в раздел работа? Тогда надо обговорить цену... Здесь помогают решить проблему, но не будут всё делать за тебя...


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
Medved
Дата 23.1.2004, 02:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 7209
Регистрация: 15.9.2002
Где: Kazakhstan, Astan a

Репутация: 14
Всего: 154
Ну елки-палки, это же задача из школьного курса информатики. Что же в ней сложного? Попробуйте решить сами, я уверен, у Вас получиться.


--------------------
http://extreme.sport-express.ru/
...и неважно сколько падал, важно сколько ты вставал...
PM MAIL WWW ICQ Skype GTalk   Вверх
Fedor
Дата 23.1.2004, 02:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Днепрянин
****


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

Репутация: нет
Всего: 32
Я всеже помогу:
Код

var
 i,j:word;
 oddsum:integer;
 a:array[1..30] of integer;
 max,min:integer;
 t:integer;
begin
 min:=maxint; max:=-maxint+1;
 for i:=1 to 30 do
  begin
    write('Введите a[',i,']'); readln(a[i]);
    if i mod 2 = 0 then oddsum:=oddsum+a[i];
    if a[i]>max then max:=a[i];
    if a[i]<min then min:=a[i];
  end;
 for i:=2 to 30 do
  for j:=30 downto i do
    begin
      if a[j]<a[j-1] then
       begin
           t:=a[j]; a[j]:=a[j-1]; a[j-1]:=t;
       end;
    end;
 writeln('MIN = ',min);
 writeln('MAX = ',max);
 writeln('SUMODD = ',oddsum);
 for i:=1 to 29 do
  write(a[i],' ');
 writeln(a[30]);
end.


Написал за пять мин, правда не тестировал... Писал прямо в окно форума...



--------------------
Мы - Днепряне. Мы всех сильней.
PM ICQ   Вверх
Paradox
Дата 23.1.2004, 06:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: нет
Всего: 1
Morpheus ИМХО зря, лучше бы навел человека на мысль
А так он никогда не научится - даже если ему программирование и не надо вовсе
Мы ведь в институтах и университетах сдавали и учили то чего вроде бы и не надо, тем не менее помогает развивать мозги


--------------------
---
PM MAIL WWW   Вверх
Fedor
Дата 23.1.2004, 14:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Днепрянин
****


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

Репутация: нет
Всего: 32
Если оно программирование не надо, то он никогда и не будет его знать... sad.gif Так что спасти человека нужно. Хотя задача действмиельно ламерская, и ЕСЛИ ТАКОМУ не научили, то...


--------------------
Мы - Днепряне. Мы всех сильней.
PM ICQ   Вверх
fantastick
Дата 24.1.2004, 21:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(Morpheus @ 23.1.2004, 02:57)
...Написал за пять мин, правда не тестировал... Писал прямо в окно форума...

Большое спасибо thumbs-up.gif
Программа отлично работаетsmile.gif

P.S: Я паскаль начал изучать 2 месяца назад и в этой проге у меня ни как не получалось задать правельно сортировку чисел по возрастанию... у меня получалось все, что угодно кроме того что надо..
PM MAIL   Вверх
ilona
Дата 28.1.2004, 16:56 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Парни! Пожалуста помогите мне написать программу в Паскаль! Не понимаю хоть застрелись, а завтра надо здавать лабораторную, единицу не хочется получать.
a1x+b1>=0
a2x+b2>=0 Eti dva neravenstva zakljuceni v sistemu i nuzno sostavitj programmu reshenija etoj sistemi, pomoemu opredelitj promezutok!
Надеюсь, кто-нибудь поможет! Надежда на вас господа! [email protected]
  Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

1. Публиковать ссылки на вскрытые компоненты

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

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

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

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


 




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


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

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