Решение практической задачи на паскале

Автор работы: Пользователь скрыл имя, 28 Июня 2011 в 18:21, курсовая работа

Описание работы

Известна температура каждого дня апреля. Определить самую тёплую декаду (в апреле 3 декады по 10 дней), указав её среднюю температуру. Учесть, что таких декад может быть несколько. Для каждой из самых тёплых декад определить среднюю температуру.

Содержание работы

Текст задания.
Алгоритм выполнения задания в виде блок-схемы.
Исходный текст программы.
Сеансы работы программы.
Выводы по результатам работы программы.
Список литературы и Интернет-ресурсов.

Файлы: 1 файл

КУРСОВАЯ.doc

— 62.00 Кб (Скачать файл)
ГОУ ВПО «Московский государственный  открытый университет»

Чебоксарский  политехнический институт (филиал)

Кафедра информационных технологий и программирования 
 
 
 
 
 
 

КУРСОВАЯ  РАБОТА 

         по  дисциплине: Информатика 

         на  тему : Решение практической задачи на паскале 
 
 
 
 
 

                                          Выполнила:

                                          Студентка ______________

                                          Проверил:______________ 
 
 
 
 
 
 
 
 

Чебоксары - 2011

Оглавление 

  1. Текст задания.
  2. Алгоритм выполнения задания в виде блок-схемы.
  3. Исходный текст программы.
  4. Сеансы работы программы.
  5. Выводы по результатам работы программы.
  6. Список литературы и Интернет-ресурсов.
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Текст задания 

Известна  температура каждого дня апреля. Определить самую тёплую декаду (в  апреле 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.
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Сеансы  работы программы.

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Выводы  по результатам работы программы.

Обобщая результаты работы программы, делаем вывод, что задача решена правильно. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Список  литературы и Интернет-ресурсов.

  1. Могилев А.В. и др. «Информатика». – М., 1999. – 816 с.
  2. Шауцукова.Л.З. Информатика.
  3. И.А. Бабушкина, Н.А. Бушмелева, С.М. Окулов, С.Ю. Черных «Практикум по Турбо Паскалю».
  4. Ф.С.Воройский. «Информатика. Энциклопедический словарь-справочник: введение в современные информационные и телекоммуникационные технологии в терминах и фактах». 2006. 768 стр. 
  5. Иванова Г.С. «Основы программирования. Учебник для вузов. 2-изд. перераб. и дополн. Из серия: Информатика в техническом университете». 417 стр. 
  6. В.А.Каймин. «Информатика». Учебник. 2001 год. 286 стр.
  7. Могилев, Пак, Хённер. «Практикум по информатике». 2005 год. 600 стр.
  8. Савельев А.Я. «Основы информатики». Учебное. пособие. 2001 год.
  9. Джонс Ж., Харроу К. «Решение задач в системе Турбо-Паскаль». - М.: Финансы и статистика, 1991. - 720 с.
  10. Климов Ю.С., Касатин А.И., Мороз С.М. «Программирование в среде TURBO PASCAL». - Минск: 1992. - 158 с.
  11. Шарикова Т.Г., Дружинин А.В. «Основы практического программирования на языке Паскаль»: Учебное пособие. 2000 г. – 66 с.

Информация о работе Решение практической задачи на паскале