Государственное образовательное учреждение высшего профессионального образования «московский государственный технический университет имени н.Э.Баумана»
Калужский филиал
Факультет " Фундаментальных Наук "
Кафедра " Программного Обеспечения ЭВМ, Информационных Технологий и
Прикладной Математики "
ЛАБОРАТОРНАЯ РАБОТА №1
ПО КУРСУ «Информатика»
НА ТЕМУ: «Типы данных, переменные, выражения»
Вариант 2
Студент Бадалян А. В. ( __________ )
Группа ИНК Б-12
Преподаватель Наймушин А.Л. ( __________ )
Калуга, 2011.
Задание 1
Даны действительные числа x, y, z . Вычислить:
Алгоритм решения задачи
Результат
Исходные данные:
4, 5 ,6
Результат:
а=216,20
в=19,34
Вывод
В процессе выполнения данной лабораторной работы я научился работать с типами данных, переменными и выражениями.
Листинг программы
Program 1;
var x,y,z:integer;
a,a1,a2,b1,b2,b: real;
BEGIN
writeln('vvedite chislo x');
read(x);
writeln('vvedite chislo y');
read(y);
writeln('vvedite chislo z');
read(z);
a1:=(1+sin(x+y)*sin(x+y));
a2:=(2+abs(x-2*x/(1+x*x*y*y)));
a:=a1/a2+(z*z*z);
b1:=((x+y)*(x+y)/Ln(x*x*x));
b2:=((Cos(x)*Cos(x)+Sin(z)/Cos(z)));
b:=b1-b2;
writeln('a=',a:6:2);
writeln('b=',b:6:2);
readln
END.
Задание 2
Точка задана своими координатами (x, y). Написать программу, которая используя логическое выражение, выводит TRUE, если точка принадлежит заштрихованной области и FALSE - если не принадлежит.
Алгоритм решения задачи
Результат
Исходные данные:
х=1, у=1
х=2, у=1
х=-4, у=3
х=-3, у=1
Результат:
True
False
False
True
Вывод
В процессе выполнения данной лабораторной работы я научился работать с логическим типом данных.
Листинг программы
Program Tema2;
var x,y:real;
p:boolean;
BEGIN
write('Vveditre kordinati tochki x i y cherez probel');
readln(x,y);
p:=(x>=-3)and(x<=1)and(y>=-1)and(y<=1);
writeln(p);
readln
END.
Задание 3
Н
айти
разность первой цифры дробной части и
второй цифры с конца целой части значения
выражения
Алгоритм решения задачи
Результат
Исходные данные:
a= 5
Результат:
cs=3
Вывод
В процессе выполнения данной лабораторной работы я научился выполнять целочисленные операции.
Листинг программы
var a:real ;
cs,n:integer;
BEGIN
write('Vedite deystvitelnoe chislo');
readln(a);
a:=(23*sqr(a)*sqr(a)/sqr(a+1));
writeln('a=',a:6:2);
cs:=(trunc(a) mod 1000 div 100 );
writeln('cs=',cs);
readln
END.