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

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

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

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

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

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

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

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

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

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

шифр.

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

Пермь, 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.