1368

Разработка программы на языке высокого уровня

Курсовая

Информатика, кибернетика и программирование

Разработать программу на языке высокого уровня и блок-схему для вычисления арифметического выражения при заданных значениях исходных данных. Составить блок-схему алгоритма и программу для вычис-ления значения функции U, зависящей от нескольких аргументов, значения которых выбираются произвольно и задаются по вводу.

Русский

2013-01-06

130.5 KB

20 чел.

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

Подольский институт (филиал)

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

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

«Московский государственный открытый университет»

Кафедра «Информационные технологии»

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

по дисциплине «Теория и технология программирования»

Выполнил:

студент группы 6-21

Карпова А.Г.

Шифр: 609436

Проверил

преподаватель:

Челяпина О.И.

Подольск, 2010

Задание №1.

Этапы программирования

Выполнение

1) Постановка задачи

Разработать программу на языке высокого уровня и блок-схему для  вычисления арифметического выражения при заданных значениях исходных данных.

2) Математическое описание

3) Разработка блок-схемы

                            

4) Написание программы

Program pr1;

Var a, b, x, S, Q: real;

Begin

readln;

a:=16.6;

b:=3.4;

x:=0.61;

S:= exp(3*ln(x))*(1-cos(2*exp(2*ln(x+b)))/1+cos(2*exp(2*ln(x+b))))+a/sqrt(x+b);

Q:=(b*exp(2*(ln(x)))-a)/(exp(a*x)-1);

writeln ('Q=', Q);

writeln ('S=', S);

End.

5) Вывод результата

Q=-0.000613806205496508

S=8.51662541268611

Задание №2.

Этапы программирования

Выполнение

1) Постановка задачи

Составить блок-схему алгоритма и программу для вычисления значения функции U, зависящей от нескольких аргументов, значения которых выбираются произвольно и задаются по вводу.

2) Математическое описание

U= max(a,b)

y≠0; cos(x)≠cos(y)

3) Разработка блок-схемы

См. на след. стр.

4) Написание программы

Program pr2;

Var a, b, x, y, U: real;

Begin

writeln ('x=');

readln (x);

writeln ('y=');

readln (y);

If (y<>0) and (cos(y)<>cos(x))  then begin

a:=ln(abs(cos(x)-cos(y)))+(exp(2*ln(x)))/(2*y);

b:=exp(exp(2*ln (x))+exp(2*ln(y)))+sin(abs(4*x-2));

writeln (‘a=’,x);

Writeln(‘b=’,b);

end;

If a>b then u:=a ;

If b>a then u:=b else writeln(‘a=b’);

writeln (‘u(‘max)=’, u);

end.

5)Вывод результата

При x=2.5; y=3.5; a=2.5

b=108254988.739589

U=108254988.739589

Задание №3 (а).

Этапы программирования

Выполнение

1) Постановка задачи

Разработать программу на языке высокого уровня и структограмму для вычисления значения функции. Осуществить ввод значений вводимых исходных данных и результат вычисления значения функции, сопровождая вывод наименованиями переменных.

2) Математическое описание

   

a = 2.5

3) Разработка структограммы

Описание переменных: a, b, x, w

a:=2.5;

Ввод: x

Да

x>a

Нет

w:=exp(3*ln(x))*sqrt(x-a);

Да

x=a

Нет

w:=x*sin(a*x);

Да

x<a

Нет

w:=exp(-a*x)*cos(a*x);

Вывод:x,y

4) Написание программы

program pr31;

var a, b, x,w: real;

begin

a:=2.5;

writeln ('x=');

readln (x);

if x>a then w:=exp(3*ln(x))*sqrt(x-a);

if x=a then w:=x*sin(a*x);

if x<a then w:=exp(-a*x)*cos(a*x);

writeln('x:=',x);

writeln ('w=', w);

end.

5)Вывод результата

x:=2

w=0.00191130077129597

x:=2.5

w=-0.082948041368892

x:=3

w=19.0918830920368


Задание №3
(б).

Этапы программирования

Выполнение

1) Постановка задачи

Модифицировать программу для многократного вычисления значений функции при изменении аргумента в указанном диапазоне и с заданным шагом. Организовать вывод значений аргумента и функции в виде таблицы.

2) Математическое описание

   a=2.5

3) Разработка структограммы

Описание переменных: a, b, x, w

a:=2.5; x:=1;

Да

x>a

Нет

w:=exp(3*ln(x))*sqrt(x-a);

Да

x=a

Нет

w:=x*sin(a*x);

Да

x<a

Нет

w:=exp(-a*x)*cos(a*x);

x:=x+0.5;

x>5

4) Написание программы

program pr32;

var a, b, x,w: real;

begin

readln;

a:=2.5;

x:=1;

Repeat

if x>a then w:=exp(3*ln(x))*sqrt(x-a);

if x=a then w:=x*sin(a*x);

if x<a then w:=exp(-a*x)*cos(a*x);

writeln('x:=',x);

writeln ('w=', w);

x:=x+0.5;

until x>5;

end.

5)Вывод результата

x:=1

w=-0.0657618725797153

x:=1.5

w=-0.019297706425682

x:=2

w=0.00191130077129597

x:=2.5

w=-0.082948041368892

x:=3

w=19.0918830920368

x:=3.5

w=42.875

x:=4

w=78.3836717690616

x:=4.5

w=128.870210871248

x:=5

w=197.642353760524


Задание №4
.

Этапы программирования

Выполнение

1) Постановка задачи

Разработать программу на языке Pascal и структограмму для вычисления первых n-членов степенного ряда.

2) Математическое описание

3) Разработка структограммы

Описание переменных: n,I,x,y

Ввод: x,n

Y:=1;

For i:=1 to n do

y:=y+(exp(i*ln(x)))/(i+1);

Вывод: y

4) Написание программы

program pr4;

var n,I: integer;

Var x,y: real;

Begin

Writeln('x=',x);

readln(x);

Writeln('n=',n);

readln(n);

y:=1;

For i:=1 to n do begin

y:=y+(exp(i*ln(x)))/(i+1);

end;

Writeln('y=',y);

End.

5)Вывод результата

x=2

n=5

y=18.0666666666667

Задание №5.

Этапы программирования

Выполнение

1) Постановка задачи

Разработать программу на языке Pascal с использованием подпрограммы.

2) Математическое описание

3) Написание программы

Program pr5;
Var m: integer;
Var a, z, r: :real;
Function step(n:integer;x:real):real;
Var i: integer;
p:real;
Begin
p:=1;
For i:=1 to n do
p:=p*x;
step:=p;
end;
Begin
Readln (a,m);
z:=step(5,a);
z:=z+step(3,1/a);
if m=0 then R:=1 else if m>0 then
R:=step(m,a) else R:=step(abs(m),1/a);
z:=z/(2*r);
writeln(z);
end.

4)Вывод результата

Задание №6.

Этапы программирования

Выполнение

1) Постановка задачи

Разработать программу для распечатки слова в обратном порядке.

2) Написание программы

program pr6;

var a: string;

var i, k: integer;

begin

readln;

a:=’karpova’;

k:=length(a);

for i:=k downto 1 do

write (a[i]);

writeln;

end.

3)Вывод результата

«avoprak»


 

А также другие работы, которые могут Вас заинтересовать

43591. Безопасность и экологичность проектных решений к дипломному проекту 65.09 KB
  В этом разделе описаны некоторые рекомендации по организации труда при работе с ЭВМ а также требования представленные в СанПиН Опасные и вредные производственные факторы На рабочем месте инженерапрограммиста можно выделить следующие опасные факторы: повышенная или пониженная температура воздуха рабочей зоны; повышенная или пониженная влажность воздуха обычно пониженная; повышенная или пониженная подвижность воздуха скорость воздушного потока может возникнуть переохлаждение или перегрев; повышенный уровень шума на рабочем...
43592. Обучение аппликации соломкой на занятиях изобразительной деятельности с детьми старшего дошкольного возраста 87.09 KB
  В работе с соломкой есть какая то магическая притягательность. Сохранить традиции восстановить недостающее звено в цепи преемственности ремесленного и художественного опыта в какой то мере помогут методические рекомендации поэтому крайнее важно обеспечить методическими рекомендациями по работе с соломкой учреждения дополнительного образования детей. Селивон не раз отмечали в своих трудах что ознакомление дошкольников с таким традиционным видом белорусского...
43593. Разработка модели платье для вечеринки «Баска» 113.1 KB
  На сегодняшний же день баску заслуженно считают одним из главных модных трендов 2012г - 2013г. Женственные образы с таким элементом были замечены во многих коллекциях Giorgio Armani, Christian Dior, Elie Saab, Chanel, Nina Ricci, Vera Vang, YSL, Loewe и других модных дизайнеров.
43595. Исследование стартовых культур LV1 и LV4 в производстве хлеба из пшеничной и ржаной муки 2.73 MB
  Традиционная технология приготовления ржаных сортов хлеба основана на приготовлении заквасок. Данная технология длительна и трудоемка. Кроме того имеет место развитие малых предприятий, которые часто работают по одно- или двусменному графику, и поэтому использовать традиционную технологию затруднительно.
43596. Экспериментальное исследование эффективности методики развития физических качеств дошкольников 5.19 MB
  Теоретическое обоснование проблемы развития физических качеств детей дошкольного возраста в процессе физической подготовленности. Характеристика и сущность изучения развития физических качеств. Двигательные навыки и возрастные анатомофизиологические особенности развития детей дошкольного возраста. Экспериментальное исследование эффективности методики развития физических качеств дошкольников.
43597. Механизмы реализации государственной политики КАБАНСКОГО ДРСУ ФГУП «БУРЯТАВТОДОР» 41.13 KB
  Кабанское дорожное ремонтно-строительное управление является обособленным подразделением Государственного унитарного предприятия по подрядному строительству, ремонту и содержанию автомобильных дорог Республики Бурятия «Бурятавтодор» без прав юридического лица.
43598. Охорона праці. Методичні вказівки 83.92 KB
  Наведені структура та зміст мають загальний характер. В залежності від теми дипломної роботи (дисертації) та специфіки його виконання консультант з охорони праці видає індивідуальні завдання, в яких більш докладно розглядаються найбільш актуальні питання охорони праці за відповідними пунктами розділу.
43599. Педагогічні арт-технології виховання у студентської молоді культури користування кіберпростором 123.51 KB
  Враховуючи актуальність проблеми, її недостатню наукову розробленість, а також орієнтуючись на запити практики, визначена тема бакалаврського дослідження: «Використання арт-теропії в процесі розвитку у студентської молоді культури користування кіберпростором»