МЕНЮ


Фестивали и конкурсы
Семинары
Издания
О МОДНТ
Приглашения
Поздравляем

НАУЧНЫЕ РАБОТЫ


  • Инновационный менеджмент
  • Инвестиции
  • ИГП
  • Земельное право
  • Журналистика
  • Жилищное право
  • Радиоэлектроника
  • Психология
  • Программирование и комп-ры
  • Предпринимательство
  • Право
  • Политология
  • Полиграфия
  • Педагогика
  • Оккультизм и уфология
  • Начертательная геометрия
  • Бухучет управленчучет
  • Биология
  • Бизнес-план
  • Безопасность жизнедеятельности
  • Банковское дело
  • АХД экпред финансы предприятий
  • Аудит
  • Ветеринария
  • Валютные отношения
  • Бухгалтерский учет и аудит
  • Ботаника и сельское хозяйство
  • Биржевое дело
  • Банковское дело
  • Астрономия
  • Архитектура
  • Арбитражный процесс
  • Безопасность жизнедеятельности
  • Административное право
  • Авиация и космонавтика
  • Кулинария
  • Наука и техника
  • Криминология
  • Криминалистика
  • Косметология
  • Коммуникации и связь
  • Кибернетика
  • Исторические личности
  • Информатика
  • Инвестиции
  • по Зоология
  • Журналистика
  • Карта сайта
  • Программирование элементов разветвляющейся структуры

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

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

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

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

    Конец

    Начало


    Приглашения

    09.12.2013 - 16.12.2013

    Международный конкурс хореографического искусства в рамках Международного фестиваля искусств «РОЖДЕСТВЕНСКАЯ АНДОРРА»

    09.12.2013 - 16.12.2013

    Международный конкурс хорового искусства в АНДОРРЕ «РОЖДЕСТВЕНСКАЯ АНДОРРА»




    Copyright © 2012 г.
    При использовании материалов - ссылка на сайт обязательна.