Часть 1 Программа на языке Turbo Pascal

Стр 1 из 6Следующая ⇒

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ

РОССИЙСКИ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ИННОВАЦИОНЫХ ТЕХНОЛОГИЙ И ПРЕДПРИНИМАТЕЛЬСТВА

ПЕНЗЕНСКИЙ ФИЛИАЛ

Кафедра «Защита в чрезвычайных ситуациях»

Курсовая работа

По дисциплине «Информатика и программирование»

На тему: «Решение задач с помощью компьютера»

Вариант №16

Выполнил: студентка гр. 11-Т1

Трынова А.В.

Проверил: ст. преподаватель

Макришина М.В.

2012

Реферат

Пояснительная записка состоит из 31 листа, 4 источника литературы, 14 графических объектов, 1 блок-схема алгоритма и 9 приложений.

КОМПЬЮТЕР, ПРОГРАММА, РАСЧЕТ, ПРЕЗЕНТАЦИЯ, СИСТЕМА, ОКНО, МАТРИЦА, ЗАДАЧА, КНОПКА.

Цель курсовой работы: показать свои знания в Microsoft Excel, Turbo Pascal, MathCAD, Microsoft Word и умение применять их для решения различных задач.

В процессе работы были изучены язык программирования Turbo Pascal и приложение Microsoft Excel, также разработана программа нахождения произведения элементов в каждой строке двумерного массива.

Содержание

Введение………………………………………………………………………..4

Часть1 Программа на языке Turbo Pascal………………………………………5

1.1 Алгоритм программы……………………………………………………………..5

1.2 Текст программы …………………………………………………………………7

Часть 2 Рабочая книга MicrosoftExcel………………………………………………9

2.1 Лист презентации………………………………………………………………...10

2.2 Лист меню………………………………………………………………………...11

2.3 Лист расчёта……………………………………………………………………...13

2.4 Лист решения нелинейного уравнения…………………………………………14

2.5 Лист решение системы линейных уравнений..………………………………...15

2.6 Лист решение задачи оптимизации……………………………………………..17

2.7 Лист решение физической задачи………………………………………………18

Заключение…………………………………………………………………………...20

Список использованной литературы……………………………………………….21

Приложение А………………………………………………………………………..22

Приложение B………………………………………………………………………..23

Приложение C………………………………………………………………………..24

Приложение D………………………………………………………………………..25

Приложение E...……………………………………………………………………...26

Приложение F...……………………………………………………………………...27

Приложение G...……………………………………………………………………...28

Приложение H...……………………………………………………………………...29

Приложение J....……………………………………………………………………...30

Введение

Данная курсовая работа состоит из 2 частей: работа в Excel и Pascal.

Программа MS Excel, являясь лидером на рынке программ обработки электронных таблиц, определяет тенденции развития в этой области.

К значительным достижениям в новой версии программы Excel можно отнести появление трехмерных документов (блокнотов).

Язык программирования Паскаль был создан швейцарским профессором Никлаусом Виртом в 1968-1971 годах и назван в честь выдающегося французского математика и философа Блеза Паскаля. Изначально язык Паскаль задумывался как учебный язык для обучения студентов навыкам программирования. Вирт сознательно пошел на заведомое ограничение возможностей языка, прежде всего это касалось функций ввода и вывода данных, а также средств, зависящих от компьютера и операционной системы, обеспечивая простоту и эффективность. Наиболее известной реализацией Паскаля, обеспечившей широкое распространение и развитие языка, является Turbo Pascal фирмы Borland, выросшая затем в объектный Паскаль для DOS (начиная с версии 5.5) и Windows и далее в Delphi, в которой были внедрены значительные расширения языка.

Диалекты Паскаля, применяемые в Turbo Pascal для DOS и Delphi для Windows, стали популярны из-за отсутствия других успешных коммерческих реализаций.

Turbo Pascal — это среда разработки для языка программирования Паскаль. Используемый в Turbo Pascal диалект базировался на более раннем UCSD Pascal, получившем распространение, в первую очередь, на компьютерах серии Apple II.

Когда в 1983 году появилась первая версия Turbo Pascal, такой тип среды разработки был относительно новым. На сегодняшний день Turbo Pascalпрактически повсеместно применяется как учебный язык программирования.

Часть 1 Программа на языке Turbo Pascal

В данном курсовом проекте требовалось составить программу: Дана вещественная матрица А размером М x N, где M, N – заданные натуральные числа. Найти среднее арифметическое значение элементов матрицы, расположенных в четных столбцах.

Текст программы:

Program kursovaia;

uses crt;

var

i,j,n,m:byte;

k,s:real;

a:array[1..100,1..100] of byte;

c:array[1..100] of byte;

c:array[1..100] of real;

BEGIN

clrscr;

s:=0;

write ('vvedite kol-vo strok: ');

readln(n);

write ('vvedite kol-vo stolbcov: ');

readln(m);

for i:=1 to n do begin

writeln;

for j:=1 to m do begin

write('a[',i,',',j,']=');

readln(a[i,j]);

end;

end;

writeln('matrica imeet vid');

begin

for i:=1 to n do

begin

for j:=1 to m do

write (a[i,j],' ');

writeln;

end;

end;

for j:=1 to m do

if (j mod 2 =0) then begin

b[j]:=0;

for i:=1 to n do

b[j]:=b[j]+a[i,j];

end;

for i:=1 to m do

c[i]:=b[i]/n;

writeln ('srednee arif elementov chetnih stolbcov ravno : ');

for i:=1 to m do

if (i mod 2 = 0) then begin

write (c[i]:3:1,' ');

s:=s+c[i];

end;

writeln;

writeln('rrednne arifm elementov chetnih stolbcov ravno:',s:3:1);

readln;

END.

Результат работы программы представлен в Приложении A.

12 3 4 5 6 Следующая ⇒

Последнее изменение этой страницы: 2018-04-12; просмотров: 600.

stydopedya.ru не претендует на авторское право материалов, которые вылажены, но предоставляет бесплатный доступ к ним. В случае нарушения авторского права или персональных данных напишите сюда...