С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
Beauty_Girl
0 / 0 / 0
Регистрация: 06.02.2012
Сообщений: 17
1

Результаты ежедневного измерения температуры

06.02.2012, 21:30. Просмотров 573. Ответов 3
Метки нет (Все метки)

Результаты ежедневного измерения температуры занесены в одномерный массив А, состоящий из N элементов. Составить программу вычисления наименьшего значения положительной температуры по четным дням и номера этого дня от начала отсчета.Если в четные дни температура была ниже 0, то выдать соответствующее текстовое сообщение.
решить через процедуры.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.02.2012, 21:30
Ответы с готовыми решениями:

В массиве содержатся результаты измерений температуры воздуха, определить среднемесячную температуру
Задание 2. Пусть в массиве содержатся результаты измерений температуры...

В текстовом файле хранятся результаты измерений температуры воздуха в течение недели:
В текстовом файле хранятся результаты измерений температуры воздуха в течение...

В массиве содержаться результаты измерений температуры воздуха. Определить 2 самых холодных дня
Пусть в одномерном массиве содержаться результаты измерений температуры...

по введенному номеру еденицы измерения
Помогите написать программу, которая бы по введенному номеру еденицы...

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

3
I2um1
Злой няш
1408 / 1106 / 374
Регистрация: 05.04.2010
Сообщений: 1,949
06.02.2012, 22:16 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var n, min, day, t : integer;
begin
   min := 0;
   write('N = '); readln(n);
   for n := 1 to n do begin
      write('Температура ', n, '-ого дня = ');
      readln(t);
      if (t > 0) and (n mod 2 = 0) then
         if (min = 0) or (min > t) then begin
            min := t;
            day := n
         end
   end;
   if min = 0 then writeln('Положительной температуры не было.')
   else writeln('Ответ: в ', day, '-ый день температура = ', min)
end.
1
Beauty_Girl
0 / 0 / 0
Регистрация: 06.02.2012
Сообщений: 17
06.02.2012, 22:21  [ТС] 3
а можно пожалуйста через процедуры?)
0
I2um1
Злой няш
1408 / 1106 / 374
Регистрация: 05.04.2010
Сообщений: 1,949
06.02.2012, 22:52 4
Через процедуры накладно:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure solution(days : array of integer; n : integer);
   var i, min, day : integer;
   begin
      min := 0;
      for i := 1 to n do
         if (days[i] > 0) and (i mod 2 = 0) then
            if (min = 0) or (min > days[i]) then begin
               min := days[i];
               day := i
            end;
      if min = 0 then writeln('Положительной температуры не было.')
      else writeln('Ответ: в ', day, ' день температура = ', min)
   end;
 
var i, n : integer; days : array[0..100] of integer;
begin
   write('N = '); readln(n);
   for i := 1 to n do begin
      write('Температура ', i, '-ого дня = ');
      readln(days[i])
   end;
   solution(days, n)
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.02.2012, 22:52

Перевод единиц измерения длины в метры
Условие: Написать программу которая бы по введённому номеру единицы...

Определить по введенному номеру единиц измерения
Определить по введенному номеру единиц измерения (1 - килограмм, 2 -...

В массиве содержаться результаты измерения температуры
В массиве содержаться результаты измерения температуры воздуха которые...


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

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

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