ГОУ ВПО «Московский государственный открытый университет» Чебоксарский политехнический институт (филиал) Кафедра информационных технологий и программирования КУРСОВАЯ РАБОТА по дисциплине: Информатика на тему : Решение практической задачи на паскале Выполнила: Студентка ______________ Проверил:______________ Чебоксары - 2011 |
Оглавление
5. Выводы по результатам работы программы.
Текст задания
Известна температура каждого дня апреля. Определить самую тёплую декаду (в апреле 3 декады по 10 дней), указав её среднюю температуру. Учесть, что таких декад может быть несколько. Для каждой из самых тёплых декад определить среднюю температуру.
Алгоритм выполнения задания в виде блок-схемы
Исходный текст программы.
var
a:array[1..30] of integer;
i,p,pmax:integer;
begin
for i:=1 to 30 do
read(a[i]);
for i:=1 to 10 do
p:=p+a[i];
if p>pmax then pmax:=p;
p:=0;
for i:=10 to 20 do
p:=p+a[i];
if p>pmax then pmax:=p;
p:=0;
for i:=21 to 30 do
p:=p+a[i];
if p>pmax then pmax:=p;
p:=0;
writeln('Самая тёплая декада: ',pmax);
write('Её средняя температура: ',pmax/10);
end.
Сеансы работы программы.
Выводы по результатам работы программы.
Обобщая результаты работы программы, делаем вывод, что задача решена правильно.
Список литературы и Интернет-ресурсов.