12509

Формулалар бойынша есептеулер

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

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

№2 лабораториялық жұмыс Тақырыбы: Формулалар бойынша есептеулер. 1.Берілгені: Берілген n бүтін және x нақты сандары үшін берілген өрнекті есептеу алгоритмінің блоксхемасын және программасын құру. Өрнектердің мәні циклдік операторлар көмегімен есептеледі. Пр...

Казахский

2013-04-30

76 KB

3 чел.

2 лабораториялық жұмыс

  Тақырыбы: Формулалар бойынша есептеулер.

  1.Берілгені: Берілген n – бүтін және x – нақты сандары үшін берілген өрнекті есептеу алгоритмінің блок-схемасын және программасын құру. Өрнектердің мәні циклдік операторлар көмегімен есептеледі. Программа құру барысында әртүрлі циклдік операторларды қолдану қажет.

  1-тапсырма

  2. Блок-схема:

  3.Программаны сипаттау

  3.1.Жалпы мәліметтер:

  Бұл есептің программасы Турбо Паскаль тілінде жазылған.

  3.2.Функционалдық тағайындалуы:

  Бұл программа жоғарыда берілген тапсырма бойынша өрнекті программалауға пайдаланылған.

  3.3.Программаның логикалық құрылымын сипаттау:

  1-Программаның басы;

  2-Айнымалыларды белгілеу;

  3-Бөлім басы;

  4-5-Айнымалы мәнін енгізу;

          6-Бастапқы мәндерін беру;

          7-11-for операторы арқылы өрнек мәнін есептеу;

          12- Нәтижені шығару;

          13- Орындалатын бөлімнің соңы.

  3.4.Қолданылған техникалық жабдықтар:

          Процессор: Intel Pentium inside

          Монитор: Samsung A10NS LS-19A10NS

          Принтер: Samsung  ML-2160 XEV

          Пернетақта: Samsung Classic Keyboard K100

          Тышқан: GENIUS Optical NetScroll 100 Silver

  3.5.Программаны жүктеу:

  D дискісі→stud_dir→Tpas→Turbo.Exe

  3.6.Енгізген мәліметтер:

  x=2, n=2

  3.7.Шығарылған мәліметтер:

  s=4.33

  4.Программа  листингі:

  1. program bayan3;

  2. var x,s:real; f,i,n:integer;

  3. begin

  4. writeln (‘vvod’);

  5. readln(x,n);

  6. s:=0; f:=1;

  7. for i:=1 to n do

  8. begin

  9. f:=f*i;

  10. s:=s+1/f+sqrt(abs(x));

  11. end;

  12. writeln (‘s=’,s);

  13. end.

2-тапсырма:

  1.Берілгені: Берілген n  мен ε (ε )сандары үшін,берілген дәлдікпен қосындыларды есептеу,блок-схемасын және программасын құру.Өрнектің мәнін repeat операторы көмегімен есептеледі.

  

     

  2. Блок-схема:

3.Программаны сипаттау

  3.1.Жалпы мәліметтер:

  Бұл есептің программасы Турбо Паскаль тілінде жазылған.

  3.2.Функционалдық тағайындалуы:

  Бұл программа жоғарыда берілген тапсырма бойынша өрнекті программалауға пайдаланылған.

  3.3.Программаның логикалық құрылымын сипаттау:

         1-Программаның басы;

         2-Айнымалыларды сипаттау;

         3-Орындалатын бөлімнің басы;

         4-5-Айнымалының мәнін енгізу;

         6-Бастапқы мәндерін енгізу;

         7-11- repeat циклдік операторы арқылы өрнек мәнін есептеу; 

         12- Нәтижені шығару;

         13- Орындалатын бөлімнің соңы.

  3.4.Қолданылған техникалық жабдықтар:

          Процессор: Intel Pentium inside

          Монитор: Samsung A10NS LS-19A10NS

          Принтер: Samsung  ML-2160 XEV

          Пернетақта: Samsung Classic Keyboard K100

          Тышқан: GENIUS Optical NetScroll 100 Silver

  3.5.Программаны жүктеу:

  D дискісі→stud_dir→Tpas→Turbo.Exe

  3.6.Енгізген мәліметтер:

  x=5, eps=0.0001

  3.7.Шығарылған мәліметтер:

  s=0.89

  4.Программа листингі

  1. program bayan4;

  2. var x,s,eps:real; k:integer;

  3. begin

  4. writeln (‘vvod’);

  5. readln(x,eps);

  6. s:=0; k:=1;

  7. repeat

  8. l:=x/(sqr(k)*k+k*sqrt(abs(x))+1);

  9. s:=s+l;

  10. inc(k);

  11. until abs(l)<eps;

  12. writeln (‘s=’,s);

  13. end.

  

          

3-тапсырма

  1.Берілгені: Берілген n  мен ε (ε )сандары үшін,берілген дәлдікпен қосындыларды есептеу,блок-схемасын және программасын құру.Өрнектің мәнін while операторы көмегімен есептеледі.

  

2.Блок-схема:

3.Программаны сипаттау

  3.1.Жалпы мәліметтер:

  Бұл есептің программасы Турбо Паскаль тілінде жазылған.

  3.2.Функционалдық тағайындалуы:

  Бұл программа жоғарыда берілген тапсырма бойынша өрнекті программалауға пайдаланылған.

  3.3.Программаның логикалық құрылымын сипаттау:

          1-Программаның басы;

          2 -Айнымалыларды сипаттау;

          3-Орындалатын бөлімнің басы;

          4-5-Айнымалының мәнін енгізу;

          6-Бастапқы мәндерін беру;

          7-11- while операторы арқылы өрнек мәнін есептеу;

          12- Нәтижені шығару;

          13- Орындалатын бөлімнің соңы.

  3.4.Қолданылған техникалық жабдықтар:

          Процессор: Intel Pentium inside

          Монитор: Samsung A10NS LS-19A10NS

          Принтер: Samsung  ML-2160 XEV

          Пернетақта: Samsung Classic Keyboard K100

          Тышқан: GENIUS Optical NetScroll 100 Silver

  3.5.Программаны жүктеу:

  D дискісі→stud_dir→Tpas→Turbo.Exe

  3.6.Енгізген мәліметтер:

  x=2, eps=0.0001

  3.7.Шығарылған мәліметтер:

  s=8.9

  4.Программа  листингі

         1) repeat:

  1. program bayan5;

  2. var x,s,eps,l:real; k:integer;

  3. begin

  4. writeln (‘vvod’);

  5. readln(x,eps);

  6. l:=0.5; k:=1;

  7. while abs(l)>eps do

  8. begin

  9. l:=x/(sqr(k)*k+k*sqrt(abs(x))+1);

  10. s:=s+l;

  11. inc(k);

  12. end;

  12. writeln (‘s=’,s);

  13. end.


Басы

Енгізу

(x,n)

s:=0

f:=1

i:=1

i<n

:=f*i

s:=s+1/f+sqrt(abs(x))

i:=i+1

4

Шығару

(s)

Соңы

Басы

Енгізу

(x, eps)

s:=0; k:=1

k:=k+1

s:=s+l

abs(l)<eps

Шығару

(s)

Cоңы

3

Басы

Енгізу

(x,eps)

s:=0; k:=1; l:=0.5

abs(l)>eps

l:=x/(sqr(k)*k+k*sqrt(abs(x))+1)

s:=s+l

k:=k+1

3

Шығару

(s)

Соңы

Рисунок


 

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

73200. Основы молекулярно-кинетической теории. Термодинамические параметры. Масса и размеры молекул 348 KB
  Все тела - твёрдые жидкие и газообразные - представляют собой совокупность большого числа атомов и молекул. При изучении свойств тел и физических явлений происходящих с телами возможны два направления исследований: а молекулярно-кинетическое устанавливает законы протекания различных...
73201. Идеальные газы 136.5 KB
  Используя выводы рассмотренных вопросов разберем основные законы для газов. Основные газовые законы. Из основного уравнения кинетической теории газов можно вывести все газовые законы ранее установленные экспериментально.
73202. Основы термодинамики, Связь теплоты и работы. Механический эквивалент тепла 134.5 KB
  Термодинамика, в отличие от статистической физики, не рассматривает конкретные молекулярные картины. На основании опытных данных формулируются основные законы (принципы или начала). Эти законы и их следствия применяются к конкретным физическим явлениям, связанным с превращением энергии...
73203. Процессы в газах 161.5 KB
  Если тело не получает извне никакой энергии, то работа А при расширении совершается за счет внутренней энергии U (U = кинетической энергии теплового движения атомов вещества + потенциальной энергии их взаимодействия друг с другом).
73204. Второй закон термодинамики 155.5 KB
  Первое начало термодинамики ничего не говорит о направлении теплообмена – от какого из двух различно нагретых тел должна передаваться теплота. Оно допускает переход теплоты как от горячих к холодным, так и наоборот.
73206. Волновое движение 1.28 MB
  В механике волновой процесс происходит в среде, частицы которой связаны между собой упругими силами. Общий характер волновых процессов обычно рассматривается на примере возникновения и распространения механических волн.
73207. Поляризация света. Естественный и поляризованный свет 240 KB
  Поляризация света - физическая характеристика оптического измерения описывающая поперечную анизотропию световых волн т. источниками света являются атомы а их количество в источнике N то пространственную ориентацию для произвольно выбранного момента расположение векторов источника...
73208. Дисперсия света 170.5 KB
  Под действием энергии электромагнитной волны электроны атомов, молекул и ионов среды начинают совершать гармонические колебания и становятся источником вторичных электромагнитных волн. Электроны атомов, молекул и ионов – это внешние, слабосвязанные электроны называются оптическими электронами.