Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 13.03.2014
Сообщений: 30
1

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

13.03.2014, 17:35. Показов 846. Ответов 5
Метки нет (Все метки)

Сделал задачу но она не совсем правильно работает.Помогите найти ошибку

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Program temp;
var
a:array [1..10, 1..2] of longint; i,j,k: longint;
begin
for i:=1 to 10 do begin
writeln(' Vvedite tempiraturu i kolicestvo osadkov za odin den ');
read(a[i,1], a[i,2]); end;
k:=0;
for i:=1 to 10 do begin
k:=k+a[i,2]; end;
writeln('Kolicestvo osadkov za dekady = ', k);
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.03.2014, 17:35
Ответы с готовыми решениями:

Определить количество осадков, выпавших в виде дождя и в виде снега за эту декаду
Помогите плиз написать программу на массив) Данные о температуре воздуха и количестве осадков за...

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

Данные о температуре воздуха и количестве осадков за декаду апреля хранятся в массивах. Определить количество осадков, выпавших в виде дождя и в в
Спасайте , на языке Паскаль, завтро экзамен =(( Добавлено через 1 минуту БУДУ ОЧЕНЬ БЛАГОДАРЕН...

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

5
Модератор
Эксперт Pascal/DelphiЭксперт NIX
6172 / 3698 / 2558
Регистрация: 22.11.2013
Сообщений: 10,574
Записей в блоге: 1
13.03.2014, 17:46 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
var
  a: array [1..10, 1..2] of longint;
  i, sd, ss: longint;
begin
  WriteLn('Введите температуру и количество осадков за')
  for i:=1 to 10 do begin
    Write(' день ',i:2,': '); ReadLn(a[i,1], a[i,2]);
    if a[i,1]>=0 then sd:=sd+a[i,2] else ss:=ss+a[i,2];
  end;
  WriteLn('Дождь: ',sd,', снег: ',ss,', всего: ',sd+ss);
end.
0
0 / 0 / 0
Регистрация: 13.03.2014
Сообщений: 30
13.03.2014, 17:51  [ТС] 3
ошибка в 6 строке : Встречено 'for', а ожидалось ';'
0
0 / 0 / 0
Регистрация: 13.03.2014
Сообщений: 30
13.03.2014, 17:57  [ТС] 4
И еще вопрос почему
день: 10
Определить количество осадков, выпавших в виде дождя и в виде снега за эту декаду. Найдите ошибку в задаче
0
0 / 0 / 0
Регистрация: 13.03.2014
Сообщений: 30
13.03.2014, 18:10  [ТС] 5
И почему где осадки в виде снега постоянно ноль ?
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
6172 / 3698 / 2558
Регистрация: 22.11.2013
Сообщений: 10,574
Записей в блоге: 1
13.03.2014, 18:21 6
Цитата Сообщение от zhen970 Посмотреть сообщение
ошибка в 6 строке : Встречено 'for', а ожидалось ';'
в конце 5-й строки добавьте точку с запятой.
Цитата Сообщение от zhen970 Посмотреть сообщение
И еще вопрос почему
день: 10
Что-то неправильно перепечатали/скопировали. Прогон:
Код
Введите температуру и количество осадков за
 день  1: 1 1
 день  2: 1 1
 день  3: 1 1
 день  4: 1 1
 день  5: 1 1
 день  6: -1 1
 день  7: -1 1
 день  8: -1 1
 день  9: -1 1
 день 10: -1 2
Дождь: 5, снег: 6, всего: 11
На всякий случай с исправленной ";":
Pascal
1
2
3
4
5
6
7
8
9
10
11
var
  a: array [1..10, 1..2] of longint;
  i, sd, ss: longint;
begin
  WriteLn('Введите температуру и количество осадков за');
  for i:=1 to 10 do begin
    Write(' день ',i:2,': '); ReadLn(a[i,1], a[i,2]);
    if a[i,1]>=0 then sd:=sd+a[i,2] else ss:=ss+a[i,2];
  end;
  WriteLn('Дождь: ',sd,', снег: ',ss,', всего: ',sd+ss);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.03.2014, 18:21

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

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

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru