ПЕНЗЕНСКИЙ
ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ
Кафедра МО и ПЭВМ
Лабораторная работа № 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.
Блок-схема
Задание Б.
Произвести
вычисление значения функции:
в диапазоне значений х
от до , изменяющегося с шагом 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.
Блок-схема
Другие работы по теме:
Методы анализа эффекивности деятельности предприятия
Экономический анализ — это метод исследования и познания объективного действия экономических законов. Метод экономического анализа базируется на диалектическом материализме, что означает изучение материалистической диалектики в единстве анализа и синтеза, индукции и дедукции.
Имидж НЛП
Аббревиатура НЛП расшифровывается как нейро-лингвистическое программирование, а воспринимается как нейро-лингвистическое манипулирование.
Программирование алгоритмов управления
МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ Государственное образовательное учреждение высшего профессионального образования
Экзамен 9 семестр Всего- 300 Требования стандарта по дисциплине
«Требованиям к обязательному минимуму содержания и уровня подготовки выпускника высшей школы», утв. Госкомитетом РФ по высшему образованию от 27 марта 2000 г по циклу «Дисциплины специализации» од. С. Оо: Автоматика и робототехника, согласно которым специалист после изучения дисциплины должен
1. Введение в предмет
Целью курса является изучение принципов и освоение практических навыков параллельного программирования с использование технологии mpi
Диагностика кризисов процедуры управления
Понятие и характерные черты диагностики, ее основные параметры и этапы реализации, предъявляемые требования. Методика диагностики кризисных ситуаций на предприятии, сферы ее применения. Закономерности и нормативное обоснование диагностики банкротства.
Решение головоломки Ж. Арсака
Работа посвящена решению головоломки, условие которой находится в книге Ж.Арсака «Программирование игр и головоломок».
Визуальное программирование
Визуализация - это процесс графического отображения сложных процессов (в данном случае построения) на экране компьютера в виде графических примитивов (графических фигур).
Информатика и ВТ
Вычисление произведения элементов массива. Обсуждение алгоритма. Текст программы. Линейный, циклический и разветвляющийся вычислительные процессы.
Распределенное программирование
Развитие современной вычислительной аппаратуры характеризуется четко выраженной тенденцией распространения многопроцессорных компьютеров и вычислительных сетей как локальных, так и глобальных.
Отчет по лабораторной работе №1
МОСКОВСКИЙ ИНСТИТУТ РАДИОТЕХНИКИ, ЭЛЕКТРОНИКИ И АВТОМАТИКИ (ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ) Отчет по лабораторной работе №1 Программирование на языках В/У
Лабораторная работа №5
Цель работы: изучение условного оператора, оператора отбора, составного оператора и правил программирования разветвляющихся алгоритмов. Задание № 17
Лабараторная работа №4
Цель работы: изучение правил записи констант, переменных, выражений, операторов присваивания, раздела определения констант, раздела описания переменных и общей структуры программы на языке Turbo-Pascal.
Алгоритмы и блок-схемы
Понятие алгоритма, его назначение, представление (изобразительные средства для описания), типы, способы записи, схемы. Основные принципы разработки алгоритмов и программ. Характеристика языков программирования. Средства и правила построения блок-схем.
Программирование на языке Си++
Вычисление значений выражений при вещественных типах данных float и double. Нахождение суммы элементов, используя оператор цикла. Вычисление функций с разложением в степенной ряд. Работа со строками. Обработка массивов с использованием функций.
Особенности разработки программы KURS.EXE
C++ как универсальный язык программирования, его сущность, назначение, классы и возможности. Блок-схема и листинг программы KURS.EXE, ее принцип работы, системные требования, возможные неполадки и способы их устранения. Листинг заставки VOVA777.EXE.
Программирование Рascal
Вариант 2 Задания Дано c, d. Вычислить . Если , то вычислить и отпечатать . Если , напечатать «y=0», иначе вычислить Дано a. Вычислить значение функции изменяется в интервале от 0,8 до 2 с шагом 0,1. Вывести на печать значения функции
Программирование на VBA
Министерство образования и науки российской федерации Государственное образовательное учреждение высшего профессионального образования «Липецкий государственный технический университет»
Модульное программирование 5
МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ Лабораторная работа №3 по дисциплине «Информатика и программирование» Москва, 2010 « Модульное программирование».
Программирование цифрового фильтра
Задание: Выполнить программную реализацию цифрового фильтра, задаваемого импульсной хар-кой вида Фильтр - нерекурсивный. Число отсчетов – 7. Структурная схема фильтра:
Отчет по программированию
Пензенский государственный университет Кафедра "Информационно-вычислительные системы" ЗАПИСИ Отчет о лабораторной работе №1 по дисциплине «Информатика и программирование».
Внутренняя речь 3
«Внутренняя речь, внутреннее проговаривание и внутреннее программирование речевого высказывания суть три разных психологических процесса, сходных, но не идентичных» (Ушакова 1989).