Proga

Министерство образования и науки России

Федеральное государственное бюджетное образовательное учреждение высшего профессионального образования «Национальный исследовательский университет Московский энергетический институт»

(ФГБОУ ВПО «НИУ МЭИ»)

Кафедра информационной и экономической безопасности

Отчёт по самостоятельной работе по дисциплине «Языки программирования»

Работу выполнил:

студент гр. ИЭс-149-14

Акулинина Д.С.

Работу проверил:

Коротких Т. Н.

Москва 2015

Вариант 10.

Задание 1.1.

Условие. Записать по правилам языка программирования заданную формулу. Составить программу вычисления значения по ней для Х, принадлежащему [0,1;0,6].

Листинг программы.

program Zadacha1_1_2;

var x,y:real;

begin

x:=0.1;

while x<=0.6 do begin

y:=sqrt(exp(ln(exp(ln(x)*4))*(1/5))+exp(ln(exp(ln(x)*4-x))*(1/5)))+ln(abs(x-20.5));

writeln('При x=',x:0:1,' y=',y:0:4);

x:=x+0.1; end;

readln;

end.

Вывод.

Блок-схема.

Класс	Имя	Тип	Структура	Смысл
Входная	x	real	Простая	Ввод значений х в формулу
Выходная	y	real	Простая	Результат вычислений

Задание 1.2.

Условие. Составить алгоритм и программу вычисления таблицы значений функции f(x) из задачи 1.1 для N значений аргумента X, равномерно распределенных на отрезке [A,B]. Для проверки программы задать N=10; A=0,55; B=1.

Листинг программы.

program Zadacha1_2_2;

var x,y:real;

n:integer;

function ras(a:real):real;

var rez:real;

begin

rez:=sqrt(exp(ln(exp(ln(x)*4))*(1/5))+exp(ln(exp(ln(x)*4-x))*(1/5)))+ln(abs(x-20.5));

ras:=rez;

end;

begin

x:=0.55;

n:=1;

writeln(' n x y');

while x<=1 do

begin

y:=ras(x);

writeln(n:2,' ',x:3:2,' ',y:5:4);

n:=n+1;

x:=x+0.05;

end;

y:=ras(x);

writeln(n:2,' ',x:3:2,' ',y:5:4);

readln;

end.

Вывод.

Блок-схема.

Класс	Имя	Тип	Структура	Смысл
Входная	x	real	Простая	Ввод значений х в формулу
Выходная	y	real	Простая	Результат вычислений
Промежуточная	n	integer	Простая	Номер вычисления
Промежуточная	ras	real		Функция с формулой
Входная	a	real	Простая	Ввод значений в функцию
Выходная	rez	real	Простая	Результат вычислений функции

Задание 1.3.2

Условие. Создать циклический алгоритм и программу для вычисления результатов по формуле. Для проверки программы задать X=0,5, n=20.

Листинг программы.

program Zadacha1_3_2_2;

var x,y,cons:real;

k,n:integer;

begin

y:=0;

writeln('Введите N');

readln(n);

writeln('Введите X');

readln(x);

cons:=sqrt(x)*ln(x);

for k:=1 to n do

y:=sqrt(power(x,k-1)/(k+1/3))+0.5;

y:=cons-y;

writeln('В результате Y = ',y:0:5);

readln;

end.

Вывод.

Блок-схема.

Класс	Имя	Тип	Структура	Смысл
Входная	n	integer	Простая	Ввод количества расчётов
Входная	x	real	Простая	Переменная Х
Выходная	y	real	Простая	Результат вычислений
Промежуточная	cons	real	Простая	Часть формулы, которая не меняется