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

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

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

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 20.06.2010, 21:07   #1
A_Orlov
Пользователь
 
Регистрация: 27.04.2010
Сообщений: 26
По умолчанию Упорядочивание массива

Помогите, пожалуйста, сделать задачу на Паскале.
Ввести массив x1,x2,...,x20. Требуется расположить отрицательные элементы в порядке убывания.
A_Orlov вне форума
Старый 21.06.2010, 06:52   #2
RUSt88
Участник клуба
 
Регистрация: 29.12.2009
Сообщений: 1,166
По умолчанию

выполню за вознаграждение
прогер C\C++\C#\Delphi
ася: [семь 3]-[97]-[1 шесть]
RUSt88 вне форума
Старый 21.06.2010, 08:48   #3
A_Orlov
Пользователь
 
Регистрация: 27.04.2010
Сообщений: 26
По умолчанию

ладно........
A_Orlov вне форума
Старый 21.06.2010, 09:07   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
A_Orlov
Если у тебя есть наработки выкладывай.
Собственно как сортировать то пузырьком знаешь?
I'm learning to live...
Stilet вне форума
Старый 21.06.2010, 15:51   #5
Кристинка 789
Новичок
Джуниор
 
Регистрация: 29.04.2010
Сообщений: 1
По умолчанию Пожалуйста помогите

не могу понять что нужно сделать в задаче "Посчитать, сколько выплатит кредитополучатель за n лет (n вводится с клавиатуры), если известно, что сумма кредита составляет 20000$, банковский процент – 6, а ежегодно кредитополучатель выплачивает 2400$. Результат выдать на экран." нужно сделать в поскале.
Кристинка 789 вне форума
Старый 21.06.2010, 16:29   #6
Snejnaya
Форумчанин
 
Регистрация: 12.05.2010
Сообщений: 219
По умолчанию

Кристинка 789

Код:
var i,n:integer;
    flag:boolean;
    sum,ost:real;

begin
readln(n);
flag:=false;//признак того, что он все выплатил
sum:=0;//сумма уже выплаченных средств
ost:=20000;//то, что осталось заплатить
i:=1;//счетчик годов
while (not flag) and (i<=n) do {пока не истекло n лет или пока кредит полностью не выплачен}
begin
ost:=ost*1.06;//набежали проценты за год
if ost<=2400 then {если осталось платить меньше 2400, то все ок}
 begin
 flag:=true;//признак того, что кредит выплачен
 sum:=sum+ost;{приплюсовываем остаток к уже набежавшей сумме выплат}
 end
else {если осталось платить больше 2400, платит дальше}
 begin
 ost:=ost-2400;
 sum:=sum+2400;{к текущей выплаченной сумме добавляем 2400}
 end;
i:=i+1;
end;
writeln(sum);
end.

Последний раз редактировалось Snejnaya; 21.06.2010 в 16:33.
Snejnaya вне форума
Старый 21.06.2010, 16:47   #7
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Одна тема - один автор
I'm learning to live...
Stilet вне форума
Закрытая тема


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Упорядочивание массива A_Orlov Паскаль, Turbo Pascal, PascalABC.NET 1 14.06.2010 14:51
Упорядочивание массива простым обменом A_Orlov Паскаль, Turbo Pascal, PascalABC.NET 1 09.06.2010 23:09
Упорядочивание массива A_Orlov Паскаль, Turbo Pascal, PascalABC.NET 0 09.06.2010 20:18
Упорядочивание Arkuz БД в Delphi 7 07.11.2008 23:06
Упорядочивание Kopy3 Помощь студентам 4 16.09.2008 17:27