Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
jekVO
0 / 0 / 0
Регистрация: 26.10.2014
Сообщений: 46
1

Определить средний курс доллара за каждую неделю месяца

26.10.2014, 12:22. Просмотров 921. Ответов 1
Метки нет (Все метки)

В массиве храниться информация о курсе доллара за каждый день месяца.Определить средний курс доллара за каждую неделю месяца.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.10.2014, 12:22
Ответы с готовыми решениями:

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

Определить дату, название месяца, квартал, неделю года, день недели
Для заданной даты и определенного значения определить дату, название месяца, квартал, неделю года,...

В массиве записан курс евро за 14 дней. Определить минимальное значение курса за первую неделю и максимальное за вторую
В массиве записан курс евро за 14 дней. Определить минимальное значение курса за первую неделю и...

Курс доллара
Составить программу «Курс доллара», позволяющую выполнять построение столбчатой диаграммы, графика...

В массиве записан курс евро за 14 дней. Найти средний курс за две недели
В массиве записан курс евро за 14 дней. Найти средний курс за две недели.

1
ildwine
Супер-модератор
3814 / 2131 / 1256
Регистрация: 04.03.2013
Сообщений: 5,077
Записей в блоге: 1
27.10.2014, 07:49 2
Лучший ответ Сообщение было отмечено jekVO как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
var
  m : array[1..4, 1..7] of real;
  i, j : integer;
  s : real;
begin
  {генерируем значения}
  {выводим}
  randomize;
  writeln('значения курса за месяц:');
  for i := 1 to 4 do
  begin
    for j := 1 to 7 do
    begin
      m[i,j] := 39 + random(3) + 0.01 * random(100);
      write(m[i,j]:7:2)
    end;
    writeln
  end;
  {средние значения за каждую неделю}
  for i := 1 to 4 do
  begin 
    s := 0;
    write('среднее значение курса за ', i, ' неделю: ');
    for j := 1 to 7 do s := s + m[i,j];
    writeln((s/7):7:2)
  end;
  readln
end.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.10.2014, 07:49

Курс Доллара Тинькофф
Здравствуйте, как получить курс доллара c сайта https://www.tinkoff.ru/about/exchange/ В пункте...

Программа «Курс доллара»
Добрый день. Нужно реализовать такую задачу: "Возле надписи «сегодня» должна появиться текущая...

Курс доллара на php +2%
Доброго вечера всем! Имеется скрипт на php, выводящий в битриксе курс доллара. Собственно,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.