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

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

Вид работы: реферат

Рубрика: Информатика и программирование

Размер файла: 45.78 Kb

Скачать файл: referat.me-138542.docx

Краткое описание работы: ПЕНЗЕНСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ Кафедра МО и ПЭВМ Лабораторная работа № 6 Тема: «Программирование элементов разветвляющейся структуры» Выполнил: студент гр. 02ТП1

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

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

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

Лабораторная работа № 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

    Цель работы: Изучение операторов ввода и вывода, управление формой вывода данных, получение навыков организации печати в удобном для пользователя виде.

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

    Цель работы: Освоение правил составления программ циклической структуры с параметром. Задание № 17 . Вычислить значение функции , по указанному графику для значений аргумента

  • Лабораторная работа №5

    Цель работы: изучение условного оператора, оператора отбора, составного оператора и правил программирования разветвляющихся алгоритмов. Задание № 17

  • Лабораторная работа №11

    Цель работы: Изучение правил и получение навыков составления программ с использованием сложных типов данных массивов. Задание№ 17 . Из символов произвольного предложения сформировать массив целых чисел, соответствующих порядковому номеру литер в коде ASCII. Определить максимальный элемент этого порядка.

  • Лабораторная работа №1 по Delphi

    Министерство общего и профессионального образования Владимирский Государственный Университет Кафедра УИТЭС Лабораторная работа №1 «Исследование характеристик феррорезонансного стабилизатора напряжения»

  • Лаба по информатике

    Министерство общего и профессионального образования РФ Владимирский Государственный Университет Кафедра УИТЭС Лабораторная работа 1 СИСТЕМЫ СЧИСЛЕНИЯ

  • Работа с типами данных записи

    Создание программы для обработки структуры данных. Возможность ввода и записи данных на персональном компьютере. Прикладное программирование на языке Turbo Pascal. Свободное редактирование записанных данных с помощью программы, написанной на Turbo Pascal.

  • Алгоритмизация и программирование на языке Паскаль

    Составление алгоритмов и программ для вычисления значений неизвестных: программирование формул; операторы ввода и вывода; условный оператор; цикл с предусловием и с постусловием, с заданным числом повторений; графические средства; тестирование программы.

  • Выявление функциональной зависимости в массиве данных

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

  • Программирование на языке Си++

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