Курсовая работа по информатике

Вид материала

Курсовая

Содержание Вопрос 3. Программирование задач, связанных с обработкой одномерных массивов.

Подобный материал:

• Курсовая работа по информатике на тему: «применение алгебры высказываний в информатике», 221.48kb.
• Методические рекомендации по выполнению курсовых работ курсовая работа по «Общей психологии», 54.44kb.
• Курсовая работа Социокультурные лакуны в статьях корреспондентов, 270.94kb.
• Подготовка студентов педвузов по социальной информатике в условиях информатизации образования, 327.22kb.
• Учебно-методический комплекс курса по выбору "задачи егэ по информатике" (физико-математический, 704.64kb.
• Курсовая работа, 30.27kb.
• Курсовая работа тема: Развитие международных кредитно-финансовых отношений и их влияние, 204.43kb.
• Курсовая работа+диск + защита, 29.4kb.
• Курсовая работа+диск + защита, 118.7kb.
• Курсовая работа на математическом, 292.45kb.

Федеральное агентство по образованию

Государственное образовательное учереждение

Высшего профессионального образования

«Пермский государственный технический университет»


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

ПО ИНФОРМАТИКЕ


Выполнил студент

Заочного отделения

гр. РНГМз-09-2

шифр.0913050344

Пискунов Алексей Юрьевич

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

Худяков А.А.


Пермь, 2011


Вариант 4.

Задание 1. Программирование алгоритмов разветвляющейся и циклической структуры.

Реализация приема программирования – табулирования функции от одного аргумента (вычисление значений функции при изменении значения аргумента в заданном диапазоне с шагом ∆х).Разработать алгоритм табулирования функции. Вычислить значение функции при изменении аргумента в диапазоне [0,2;2,8] и с заданным шагом. ∆х=0,2 a=2,3. Организовать вывод значения аргумента и вычисленного значения функции в виде таблицы. .

:


program z1;

uses crt;

var a, x, y, xn, xk, dx: real;

begin

clrscr;

writeln(‘введите данные’);

readln (a,x,xn,xk,dx);

writeln(‘Таблица функции y(x)’); writeln(‘X’,’ ‘,’Y(X)’); x:=xn;

repeat if(x<1)then y:=1,5*sqr(cos(x));

if(x=1)then y:=1,8*a*x;

if(x>1) and (x<2) then y:=sqr(x-2)+6;

if(x>=2)then y:=3*tg(x);

writeln (x:8:3, ‘ ‘,y:8:3); x:=x+dx;

until x>=xk;

end.

Задание 2. Программирование вычисления суммы и произведения.

.



program z2;

uses crt;

const x=0,3;

var i, s, p, n, m: real;

begin

clrscr;

writeln(‘введите данные’);

readln (i, n, m, s, p);

s:=0; p:=1;

for i:=1 to n do

begin s:=s+((-1)i)/((2*i+1)*i); end;

for i:=1 to m do

begin p:=p*(((i)/(i+1))-(cos(abs(x))i)); end;

writeln(‘S’, s:8:3);

writeln(’P’, p:8:3);

end.

Вопрос 3. Программирование задач, связанных с обработкой одномерных массивов.

Задан массив, состоящий из 5 элементов. Вычислить значение функции у=х2 при значениях аргумента, заданных в массиве х, и поместить их в массив у. напечатать массивы х и у в виде двух столбцов.



Program z3;

uses crt;

const n=5;

var x,y: array[1..n] of real;

begin

clrscr;

writeln(‘введите с клавиатуры элементы массива’);

for i:=1 to n do

begin readln(x[i]); end;

for i:=1 to n do

begin

y[i]:=sqr(x[i]);

writeln(‘Таблица значений массивов x и y’);

writeln(x[i],’ ‘,y[i]);

end;

end.