Бесплатные Рефераты >>> Информатика, Программирование  



 

 

Программирование элементов разветвляющейся структуры

 

ПЕНЗЕНСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ

Кафедра МО и ПЭВМ

Лабораторная работа № 6

Тема: «Программирование элементов разветвляющейся структуры»

Выполнил: студент гр. 02ТП1

Пахомов В. Е.

Проверил: Ракова А. Н.

2003

Задание А.

Определить во сколько раз среднее геометрическое чисел натурального ряда кратных трём в диапазоне от 1 до 31 превышает среднее арифметическое этих чисел.

Программа:

uses crt; function koren(X : real; power : integer) : real; var

I : integer; begin if power mod 2 0 then power := power * 2; for i := 1 to power div 2 do begin

X := sqrt(X); end; koren := X; end;

var n,i : integer; avs, avg, sum, gem :real; begin i := 1; n := 0; sum :=0; gem := 1; while i < 31 do begin

sum := sum + i; gem := gem * i; i := i + 3; inc(n); end; writeln('Сумма = ',Sum:3:4,' Производные = ', gem:3:4); avs := sum / n; avg := koren(gem,n);

{writeln('avs = ',avs:3:4,' avg = ', avg:3:4,' n = ',n );} writeln('Ответ = ',avg/avs:3:4,' raz'); readkey; end.

Блок-схема

Задание Б.

Произвести вычисление значения функции:

[pic] в диапазоне значений х от [pic] до [pic], изменяющегося с шагом h. На печать выводить только положительные значения функции, при соответствующих значениях аргумента.

Программа:

uses crt; var h,n,e,i,y : real; begin clrscr; writeln('Введите значение нижнего предела Х '); readln(n); writeln('Введите значение верхнего предела Х'); readln(e); writeln('Введите значение шага '); readln(h); i := n; while i < e do begin y := (i*i*i+sin(sqr(i)))/(1+sqrt(abs(i)))*cos(i); i := i + h; if y > 0 then writeln('Значения фукции ',y:4:5,' x =
',i:4:4); end; readkey; end.
Uses crt;
Var h, n, e, i, x, y:real; begin clrscr; writeln('Введите значение нижнего предела X'); readln(n); writeln('Введите значение вврехнего предела X'); readln(e); writeln('Введите значение шага'); readln(h); i:=n; repeat y:=(i*i*i+sin(sqr(i)))/(1+sqrt(abs(i)))*cos(i); i:=i+h; if y>0 then writeln('Значения функции ', y:4:5,' x=',i:4:4); until i>e; readkey; end. uses crt;

Var y :real; i, n, e:integer;

Begin clrscr; writeln('Введите значение нижнего предела X'); readln(n); writeln('Введите значение верхнего предела X'); readln(e); for i:=n to e do begin y := (i*i*i+sin(sqr(i)))/(1+sqrt(abs(i)))*cos(i); if y>0 then writeln('Значения функции ',y:3:3); end; readkey; end.

Блок-схема

----------------------- avs := sum / n; avg := koren(gem,n);

I=1;31;3

i := 1; n := 0; sum :=0; gem := 1;

avg/avs

sum := sum + i; gem := gem * i; i := i + 3; inc(n);

Конец

Начало

y,x

y>0

n,e,h

I=1;e;h

i := n;

y := (i*i*i+sin(sqr(i)))/(1+sqrt(abs(i)))*cos(i);

Конец

Начало


 


 

Отечественные статистические пакеты
Кафедра Экономической Информатики и Автоматизации Управления. Ростовский Государственный Экономический Университет (РИНХ) Реферат на тему: «Отечественные статистические пакеты».Выполнила Рыбакова О.А. ...

Тестирование ППП автоматизации учета основных средств
Московский государственный университет сервиса Поволжский технологический институт сервиса Кафедра «Прикладная информатика в экономике» КОНТРОЛЬНАЯ РАБОТА по дисциплине «Разработка и применение ППП в экономике» на...

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

Локальные вычислительные сети на базе IBM PC AT совместимых ПЭВМ
ОГЛАВЛЕНИЕОГЛАВЛЕНИЕ 1 Введение 2 Постановка задачи 3 Анализ методов решения задачи 3 Базовая модель OSI 5 Сетевые устройства и средства коммуникаций 9 Топологии...

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

Информационно-аналитическая система Казанского вокзала
4 Министерство Образования Российской Федерации Камский Государственный Политехнический Институт Кафедра ММИТЭ КУРСОВАЯ...

Кэш-память современных микропроцессоров фирм Intel и AMD
Кэш-память современных микропроцессоров фирм Intel и AMD Реферат по дисциплине: "Основы построения компьютеров" выполнил Р.Великанов. Институт Транспорта и Связи Рига, 2004. ...

Макросы в Super Calc4
ВЕДЕНИЕ В MACRO. MACRO - это последовательность указаний (MACRO - команд), которые могут контролировать работу таблицы и состояние экрана в SuperCalc4.SuperCalc4 предлагает широкий выбор MACRO - команд. Последовательности MACRO -...

Контент-вопрос. Видеоконтент в телекоммуникациях, или Video over Broadband как символ времени
Контент-вопрос. Видеоконтент в телекоммуникациях, или Video over Broadband как символ времени П. РЕБРОВ, менеджер по развитию направления Video over IP компании CTI В интересное время живем, господа! Если бы историей...

ATM-коммутация
ATM-коммутация Кроме коммутаторов, поддерживающих стандартные протоколы локальных сетей и передающих кадры с порта на порт по алгоритмам моста, в локальных сетях стали применяться коммутаторы другого вида, а именно коммутаторы технологии...

Организация работы с файлами в системе “ТУРБО-ПРОЛОГ”
Организация работы с файлами в системе “ТУРБО-ПРОЛОГ” 1. Определение файлов. В П. используются традиционное для других языков программирования определение файла. Для указания порядка работы с конкретными файлами в...