Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
MrLOLS
15 / 15 / 4
Регистрация: 21.11.2010
Сообщений: 67
1

Линейный массив со сведениями о количестве осадков

27.02.2011, 22:13. Просмотров 1127. Ответов 3
Метки нет (Все метки)

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

Решения задачи на Паскале в Интернетах не нашел и написал сам:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Program Zadacha3;
var m: array[1..12] of integer; i,s,z,n,pn: integer;
Begin
s:=0; z:=0; n:=100;
write('Кількість опадів по місяцям: ');
for i:=1 to 12 do
    begin
    m[i]:=random(100);  // Заповнюємо масив
    write(m[i],' ');    // Відображаємо числа масиву
    s:=s+m[i];          // Сумуємо числа масиву
    if (m[i] < 30) then z:=z+1; // Сумуємо кількість засушливих місяців
    if n > m[i] then begin n:=m[i]; pn:=i end;  // Визначаємо найпосушливіший місяць року та запамятовуємо його номер
    end;
writeln;
writeln('Загальна кількість опадів за рік: ',s);
writeln('Середньомісячна кількість опадів за рік: ',s/12);
writeln('Кількість засушливих місяців (<30мм): ',z);
writeln('Найпосушливіший місяць року: ',pn, ' (',n,' мм)');
End.
0
Вложения
Тип файла: zip Zadacha3.zip (563 байт, 7 просмотров)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.02.2011, 22:13
Ответы с готовыми решениями:

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

Массивы. Известны данные о количестве осадков. Верно ли, что осадков не было 10 дней в месяц
Помогите пожалуйста=) Известны данные о количестве осадков, выпавших за каждый...

Известны данные о количестве осадков, выпавших за каждый день февраля. Какого числа выпало самое большое количество осадков?
Ребята плиз очень прошу, нужно написано в паскале. Тема:Использование...

Известны данные о количестве осадков, выпавших за каждый день февраля. Найти общее число осадков, выпавших по четным числам месяца
Известны данные о количестве осадков, выпавших за каждый день февраля. Найти...

Известны данные о количестве осадков, выпавших за каждый день февраля. Найти общее число осадков, выпавших по четным числам месяца
Известны данные о количестве осадков, выпавших за каждый день февраля. Найти...

3
Puporev
Модератор
55007 / 42304 / 29210
Регистрация: 18.05.2008
Сообщений: 99,961
28.02.2011, 08:15 2
Чуть поправил, а так нормально, только среднее нужно или типа real делать, или округлять до целого.
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
Program Zadacha3;
uses crt;
var m: array[1..12] of integer;
    i,s,z,n,pn: integer;
Begin
clrscr;
s:=0; z:=0; n:=100;
writeln('Кількість опадів по місяцям: ');
for i:=1 to 12 do
 begin
  m[i]:=random(100);  // Заповнюємо масив
  write(m[i],' ');    // Відображаємо числа масиву
  s:=s+m[i];          // Сумуємо числа масиву
  if (m[i] < 30) then z:=z+1; // Сумуємо кількість засушливих місяців
  if n > m[i] then
   begin
    n:=m[i];
    pn:=i
   end;  // Визначаємо найпосушливіший місяць року та запамятовуємо його номер
  end;
writeln;
writeln('Загальна кількість опадів за рік: ',s);
writeln('Середньомісячна кількість опадів за рік: ',round(s/12));
writeln('Кількість засушливих місяців (<30мм): ',z);
writeln('Найпосушливіший місяць року: ',pn, ' (',n,' мм)');
readln
End.
0
MrLOLS
15 / 15 / 4
Регистрация: 21.11.2010
Сообщений: 67
28.02.2011, 13:24  [ТС] 3
Puporev, ну ты зверюга по програмированию, как тебя еще в Силиконовую долину не забрали.
0
Puporev
Модератор
55007 / 42304 / 29210
Регистрация: 18.05.2008
Сообщений: 99,961
28.02.2011, 13:27 4

Не по теме:

Там Паскаль не в ходу...

.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.02.2011, 13:27

Известны данные о количестве осадков, выпавших за каждый день февраля. Найти общее число осадков, выпавших по четным числам месяца
11.57. Известны данные о количестве осадков, выпавших за каждый день февраля....

Известны данные о количестве осадков,
ТЕМА: Использование вложенных циклов и ветвлений при обработке массивов...

Имеется информация о количестве осадков, выпавших за каждый день месяца
Имеется информация о количестве осадков, выпавших за каждый день месяца, и о...


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

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

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