Logo GenDocs.ru

Поиск по сайту:  

Загрузка...

«Составление линейных программ» - файл


скачать (26.2 kb.)


МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИИ

ФЕДЕРАЛЬНОЕ ГОСУДАРСТВЕННОЕ БЮДЖЕТНОЕ ОБРАЗОВАТЕЛЬНОЕ

УЧРЕЖДЕНИЕ ВЫСШЕГО ОБРАЗОВАНИЯ

«ИЖЕВСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ

ИМЕНИ М.Т.КАЛАШНИКОВА»

Кафедра «Технология и оборудование машиностроительных производств»


Отчет по лабораторной работе №1

по дисциплине «Информационные технологии (Информатика)»

На тему: «Составление линейных программ»

Это разветвляющиеся программы

Выполнил студент
группы Б21-710-1 Козлов Д.О.

Жарков Д.М


Проверил:
канд. техн. наук, доцент Н.Н. Князева

Ижевск 2021



Цель работы

  1. Научиться составлять линейные и разветвляющиеся алгоритмы.

  2. Изучить операторы присваивания, ввода-вывода данных, сравнения.

  3. Уметь составлять линейные и разветвляющиеся программы.

Содержание работы

  1. Алгоритмы линейных программ.

  2. Операторы присваивания, ввода-вывода.

  3. Составление и отладка линейных программ. Этого в работе вашей нет-убрать

  4. Алгоритмы разветвляющихся программ.

  5. Операции отношения и логические операции. Оператор сравнения.

  6. Составление и отладка разветвляющихся программ.

Задание №2

Пример:

Составим линейную программу для вычисления:



3



y=






b=34,58 ;

a=98,765;

x=-lg3


Решение:

program var_3;

var

x,y,a,b:real;



begin

x:=sqrt(2)/10; Это не десятичный логарифм от 3

readln(a);

readln(b);

if ((abs(sqrt(a)-exp(x)+exp(3*ln(b))*cos(4*x-0.2); Не поняла, что проверяете и что вычисляете

writeln(‘x=’,x:4:1,’ y=’,y:8:4);

end

else


if ((abs(sqr(a)-sqr(b))<=10*x)) then должно быть >=

begin


y:=sin(4.5*x)/cos(4.5*x)*(x/sin(0.5*x)); Откуда в тангенсе взялся х?

writeln(‘x=’,x:4:1,’ y=’,y:8:4);



end;

writeln(‘x=’,x:4:1,’ y=’,y:8:4);



end.


Скачать файл (26.2 kb.)

Поиск по сайту:  

© gendocs.ru
При копировании укажите ссылку.
обратиться к администрации