Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » ЗАДАЧА (Срочно, ПОЖАЛУЙСТА!)
ЗАДАЧА
Даны действительные числа а19011902,...,а1950- количество осадков (в миллиметрах), выпавших в Москве в течении первых 50 лет нашего столетия. Надо вычислить среднее количество осадков и отклонение от среднего для каждого года
1 | Автор: Beijulecitm | 2013-05-17, 15:07   |  Репутация: [ + 0 ]
1 | Автор: Beijulecitm | 2013-05-17, 15:07   |  Репутация: [ + 0 ]
формулы может какие есть?

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2013-05-17, 18:41   |  Репутация: [ + 211 ]
К сожалению нет.(((
3 | Автор: Beijulecitm | 2013-05-18, 07:38   |  Репутация: [ + 0 ]
3 | Автор: Beijulecitm | 2013-05-18, 07:38   |  Репутация: [ + 0 ]
поищи может?)

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
4 | Автор: Berestovskiy | 2013-05-18, 10:35   |  Репутация: [ + 211 ]
или у препода спроси

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
5 | Автор: Berestovskiy | 2013-05-18, 10:35   |  Репутация: [ + 211 ]
uses CRT;const n=50;varmas:array[1..n] of real;i:integer;sr:real;Procedure input;Begin  sr:=0;  for i:=1 to n do    begin    clrscr;
    writeln('Введите кол-во осадков в',i+1900,' году.');    readln(mas);    sr:=sr+mas;    end;  sr:=sr/n;End;Procedure proc;Begin  for i:=1 to n do    if mas>sr then      writeln('В ',1900+i,' кол-во осадков было на ',(mas-sr):0:2,'мл больше нормы.')    else if mas<sr then      writeln('В ',1900+i,' кол-во осадков было на ',(-1*(mas-sr)):3:2,'мл меньше нормы.')    else      writeln('В ',1900+i,' кол-во осадков было в норме.');End;BEGIN  input;
  writeln('Среднее кол-во осадков=',sr:0:2,'.');  proc;
  readln;END.

Добавлено (18.05.13, 12:39)
---------------------------------------------
Преподаватель ничего не объясняет,сказала,что арифмитическая прогрессия. Вот то, что в интернете есть, но такой способ не понятен. И результата не дает, среднее не выводит.

6 | Автор: Beijulecitm | 2013-05-18, 12:39   |  Репутация: [ + 0 ]
напиши это всё структурировано может?)

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
7 | Автор: Berestovskiy | 2013-05-19, 01:19   |  Репутация: [ + 211 ]
uses CRT;const n=50;varmas:array[1..n] of real;i:integer;sr:real;Procedure input;Begin  sr:=0;  for i:=1 to n do    begin    clrscr;
    writeln('Введите кол-во осадков в',i+1900,' году.');    readln(mas);    sr:=sr+mas;    end;  sr:=sr/n;End;Procedure proc;Begin  for i:=1 to n do    if mas>sr then      writeln('В ',1900+i,' кол-во осадков было на ',(mas-sr):0:2,'мл больше нормы.')    else if mas<sr then      writeln('В ',1900+i,' кол-во осадков было на ',(-1*(mas-sr)):3:2,'мл меньше нормы.')    else      writeln('В ',1900+i,' кол-во осадков было в норме.');End;BEGIN  input;
  writeln('Среднее кол-во осадков=',sr:0:2,'.');  proc;
  readln;END.

Добавлено (21.05.13, 07:06)
---------------------------------------------
uses CRT;
const n=50;
var
mas:array[1..n] of real;
i:integer;
sr:real;
Procedure input;
Begin
  sr:=0;
  for i:=1 to n do
    begin
    clrscr;
    writeln('Введите кол-во осадков в',i+1900,' году.');
    readln(mas);
    sr:=sr+mas;
    end;
  sr:=sr/n;
End;
Procedure proc;
Begin
  for i:=1 to n do
    if mas>sr then
      writeln('В ',1900+i,' кол-во осадков было на ',(mas-sr):0:2,'мл больше нормы.')
    else if mas<sr then
      writeln('В ',1900+i,' кол-во осадков было на ',(-1*(mas
-sr)):3:2,'мл меньше нормы.')
    else
      writeln('В ',1900+i,' кол-во осадков было в норме.');
End;
BEGIN
  input;
  writeln('Среднее кол-во осадков=',sr:0:2,'.');
  proc;
  readln;
END.

Добавлено (28.05.13, 09:44)
---------------------------------------------

Цитата (Berestovskiy)
напиши это всё структурировано может?)
Ну, вы можете помочь?
8 | Автор: Beijulecitm | 2013-05-28, 09:44   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » ЗАДАЧА (Срочно, ПОЖАЛУЙСТА!)
Страница 1 из 11
Поиск: