Модераторы: Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Алгоритм] Поиск ставок в банке 
:(
    Опции темы
Hellride
Дата 5.12.2009, 17:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Задание 7
Даны наименования 10 банков и процентные ставки по вкладам в каждом. Вывести список банков со ставками ниже средней ставки по всем 10 банкам. Указать банк с максимальной ставкой.
PM MAIL   Вверх
ТоляМБА
Дата 5.12.2009, 18:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Котэ
***


Профиль
Группа: Завсегдатай
Сообщений: 1607
Регистрация: 15.12.2004

Репутация: 3
Всего: 252
Hellride, научись писать заголовки к темам!


Код
Program banks;
type r = record
     b:string;
     p:real;
end;
const
     n=10;
     a:array[1..n] of r = ((b:'Alpha';p:1.3),(b:'beta';p:2),
     (b:'gamma';p:4.3),(b:'delta';p:2.8),(b:'epsilon';p:4.3),
     (b:'zeta';p:3.4),(b:'eta';p:5.2),(b:'theta';p:3),
     (b:'iota';p:5.1),(b:'kappa';p:3));
var
     i,imax:integer;
     av,max:Real;
begin
     av:=0;
     max:=a[1].p;
     imax:=1;
     for i:=1 to n do
     begin
          av:=av+a[i].p;
          if a[i].p > max then
          begin
               max:=a[i].p;
               imax:=i;
          end;
     end;
     av:=av/n;
     for i:=1 to n do
         if a[i].p < av then writeln('Stavka nizhe sredey u banka: ',a[i].b);
     writeln('Max stavka u banka: ',a[imax].b);
     readln;
end.
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

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

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


 




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


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

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