У вас вопросы?
У нас ответы:) SamZan.net

Лабораторная РАБОТа 3 по дисциплине Языки программирования

Работа добавлена на сайт samzan.net: 2015-07-05

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 8.6.2025

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ

Федеральное государственное бюджетное образовательное учреждение высшего профессионального образования

«Московский государственный индустриальный университет»

(ФГБОУ ВПО «МГИУ»)

Кафедра информационных систем и технологий

Лабораторная РАБОТа   3

по дисциплине  «Языки программирования»                                                           

_________________________________________________________________

на тему «Изучение языка программирования Pascal»                                                                   

Группа

3282

Студент

С. А. Галкин

Допускается к защите

Дата

«___» ___________

Преподаватель

___________

И.Б. Глазырина

Оценка работы

Дата

___________

«___» ___________

Преподаватель

___________

И.Б. Глазырина

МОСКВА 2013

Вариант II.

Задание №2.

Вывести на экран все элементы последовательности, больше заданного K.

1/x,1/x^2/1/x^3,…    (k=0.001, x=2)

Код программы:

Program laba32;

uses crt;

var res,x,a,k:real;

Begin

 writeln('Введите k');

 readln(k);

 writeln('Введите х');

 readln(x);

 a:=1;

  repeat

   x:=exp(ln(x)*a);

   res:=1/x;

   a:=a+1;

   writeln(res:1:8);

  until res<k;

End.

Задание №3.

Рассчитать сумму бесконечного ряда с заданной точностью.

Ln(1+x)=x-x^2/2+x^3/3-x^4/4+….

Код программы:

Program laba33;

 uses crt;

 var toch,s,x,a,c,i,b:real;

Begin

 writeln('Введите точность');

 readln(toch);

 writeln('Введите x');

 readln(x);

 s:=0;

 c:=1;

 i:=1;

 b:=1;

  repeat

   a:=b*exp(ln(x)*c)/i;

   s:=s+a;

   i:=i+1;

   c:=c+1;

   b:=b*(-1);  

  until a<toch;

 writeln(s);

End.




1. Реферат- Методологічні та біологічні проблеми біоніки
2. Утверждаю Директор МБОУ ДОД ДДЮТиЭ Ювента Ф
3. Междукняжеские отношения в XI-XII веках и установление на Руси областного строя
4. Смысловое поле метода обучения в отечественной педагогике
5. тематическое моделирование и проектирование Требования к оформлению контрольной работы Контрольная
6. я использовала Gzzl Gll 100-300 Пряжа коричневого цвета для ствола Пряжа чёрного цвета для подставки Крю
7. История развития космонавтики
8. Вычислить массу неоднородной пластины ограниченной заданными линиями и имеющей поверхностную плотность
9. ТЕМАТИЧНЕ МОДЕЛЮВАННЯ АВТОТРАНСПОРТНИХ ТЕХНОЛОГІЙ Сало О
10. реферат дисертації на здобуття наукового ступеня кандидата сільськогосподарських наук.1