Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.10.2013, 23:44   #1
Seeeeema357
 
Регистрация: 24.10.2013
Сообщений: 2
По умолчанию Циклы, подкорректируйте, пожалуйста.

Ребят, помогите с циклом, пожалуйста. Пытаюсь научиться. Например, нужна программа, которая считает среднесуточную температуру. Она считает, но хотелось бы, чтобы перед каждым вводом данных она писала (Введите температуру в 00 часов, а потом уже был сам ввод данных. И так 24 раза) Пока только такая кривая программа)
Код:
program temp;
var
i,s:integer;
srt:real;
a:array [1..24]of integer;
begin
s:=0;
for i:=1 to 24 do
writeln('Введите температуру в',i-1 ,'часов');
for i:=1 to 24 do
readln(a[i]);
for i:= 1 to 24 do
S:=S+a[i];
Srt:=S/24;
writeln ('Средняя температура за сутки');
writeln(Srt);
end.

Последний раз редактировалось Stilet; 28.10.2013 в 12:22.
Seeeeema357 вне форума Ответить с цитированием
Старый 28.10.2013, 02:24   #2
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,431
По умолчанию

Код:
var
  i, s, a: integer;
begin
  s := 0;
  for i := 1 to 24 do
  begin
    writeln('Введите температуру в ', i - 1, ' часов');
    readln(a);
    inc(s, a);
  end;
  writeln('Средняя температура за сутки: ', (s / 24):0:3);
end.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума Ответить с цитированием
Старый 30.10.2013, 18:22   #3
Seeeeema357
 
Регистрация: 24.10.2013
Сообщений: 2
По умолчанию

Спасибо большое)
Seeeeema357 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Подкорректируйте новичка;) LeXa15 Общие вопросы C/C++ 6 10.01.2012 01:28
подкорректируйте код stupidstudent Помощь студентам 6 09.09.2011 16:24
ПОДКОРРЕКТИРУЙТЕ ПАДЕЖИ Dilmur Паскаль, Turbo Pascal, PascalABC.NET 0 10.06.2010 18:36
подкорректируйте пожалуйста прогу slay09 Общие вопросы C/C++ 4 16.06.2009 20:38