Хелпикс

Главная

Контакты

Случайная статья





Программа линейной структуры



 

      

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

              Программа линейной структуры

                 Группа Птм 41 Чурбанов Сергей Вадимович

                                       Вариант 8

 Задание 1. Составить программу для вычислиения арифметического выражения

 

 

Решение:            Программа 1. 1

Av=((41+29/72)-((18+7/8)-(5+1/4))*((10+1/2)-(7+1/3)))/(22+7/8)

print" Av="; Av

end

 

Результаты расчета по Программе 1. 1

Av=-0. 7619915e-1

 

 Задание 2. Составить программу для вычисления алгебраического выражения

 

 

Решение:        Программа 1. 2

 

a=4. 3

z=a^8-9. 3*a^7+8. 7*a^6-12

print" a="; a, " z="; z

end

 

Результаты расчета по Программе 1. 2

a=4. 3    z=-80925. 447

 

 Задание 3. Составить программу для вычисление значение элементарной функции

 

Решение:            Программа 1. 3

  

n=4. 3

y=(exp(2*n)-1)/(exp(-2*n)+1)*(sin(5*n)-cos(5*n))

print" n="; n, " y="; y

end

 

Результаты расчета по Программе 1. 3

n=4. 3    y=7348. 66865

 

 

Задание 1А. Составить программу для вычисление объема цилиндра

 

Решение:

 

 CLS

Input" Введите высоте цилиндра: "; H

Input" Введите радиос основания: ", R

V=3. 14*R^2*H

S=2*3. 14*R*H: Print

Print" Объем цилиндра ="; V

Print" Площадь боковой поверхности ="; S

end

 

Введите высоту цилиндра: 5

Введите радиус основания: 3

 

Объем цилиндра=141. 3

Площадь боковой поверхности=94. 2

 

 

Задание 2А. Вычислить произведение всех цифр произвольного четырехзначного числа

 

Решение:

 

  

 

CLS

Input": "; Number

Print: Print: Number; ": ";

Number=ABS(Number)

i=int(Number/1000): Print i;

j=int(Number/100)Mod 10: Print j;

k=int(Number/10)Mod 10: Print k;

l=Number Mod 10: Print 1

P=i*j*k*l*1

Print: Print; P

End



  

© helpiks.su При использовании или копировании материалов прямая ссылка на сайт обязательна.