это быстро и бесплатно
Оформите заказ сейчас и получите скидку 100 руб.!
ID (номер) заказа
1973598
Ознакомительный фрагмент работы:
Лабораторная работа №1
Задание 1
Program vysotytr;
var a,b,c:integer;
ha,hb,hc,p:real;
begin
read(a,b,c);
p:=(a+b+c)/2;
ha:=(2/a)*sqrt(p*(p-a)*(p-b)*(p-c));
hb:=(2/b)*sqrt(p*(p-a)*(p-b)*(p-c));
hc:=(2/c)*sqrt(p*(p-a)*(p-b)*(p-c));
writeln('ha=',ha:5:3,' ','hb=',hb:5:3,' ','hc=',hc:5:3);
end.
Задание 2
Program obem;
var V,om,corner,sABC, am,h1,h2,ab,bm,bc:real;
begin
Readln(ab);
Readln(corner);
bc:=ab;
bm:= bc / 2;
am:= sqrt(sqr(ab) - sqr(bm));
h1:= am / 3;
h2 := h1;
sABC := 0.5 * bc * am;
V:= (1 / 3) * sABC * h2;
Writeln('V=',V);
end.
Задание 3
Program L1_3;
var V,V0, a, t:real;
begin
V := 8;
V0 := 0;
t:=10;
a := V/t;
Writeln('a=',a);
end.
Лабораторная работа №2
Задание 1
На плоскости даны две точки А(Х1, У1), В(Х2, У2). Составьте программу, определяющую, принадлежит ли заданная точка Z(X,Y) множеству точек, равноудаленных от точек А и В.
Program L2_1;
var X1, Y1, X2, Y2, X, Y:real;
begin
writeln('Введите координаты точки A(X1,Y1)');
readln(X1,Y1);
writeln('Введите координаты точки B(X2,Y2)');
readln(X2,Y2);
writeln('Введите координаты точки Z(X, Y)');
readln(X, Y);
if (sqrt(sqr(X-X1)+sqr(Y-Y1)-sqr(X-X2)-sqr(Y-Y2))=0)
then write('Принадлежит') else write('Не принадлежит');
end.
Задание 2
Длина основания равнобедренного треугольника равна А, величина угла при вершине F.Составьте программу вычисления длины наименьшей медианы данного треугольника.
Program L2_2;
var A,B,F,mA,mB, min:real;
begin
writeln('Введите основание треугольника A');
readln(A);
writeln('Введите величину угли при вершние F');
readln(F);
B := A/2*(1-cos(F));
mA := (sqrt(4*B*B-B*B))/2;;
mB:=B*B+B/2-2*B*B*cos(F);
if (mA writeln('Наименьшая медиана треугольника=', min);
end.
Задание 3
Составьте программу вычисления значений функции y=(x+2)/(x*x-1) с учетом ее области определения
Program L2_3;
var x,y:real;
begin
writeln('Введите x');
readln(x);
if (x=1) or (x=-1) then write ('y не определен')
else begin y := (x+2)/(x*x-1) ; write ('y=',y); end;
end.
Лабораторная работа №4
Задание 1
Cоставьте программу табулирования функции y=3sinx+xcos(25x) на отрезке [-5, 5] с шагом 1.
Program L4_1;
Var x:integer;
Begin
for x:=-5 to 5 do
writeln('y=',3*sin(x)+x*cos(22*x):0:3, ' x= ',x);
End.
Задание 2
Составьте программу подсчета натуральных чисел, не превосходящих 1000, которые при делении на три дают в остатке 2.
Program L4_2;
Var a,b:integer;
begin
b:=0;
for a:=1 to 1000 do
begin
if (a mod 3) = 2 then b:=b+1;
end;
writeln('kol:',b);
end.
Лабораторная работа №5
Элементарные задачи целочисленной арифметики
Задание 1
Cоставьте программу подсчета числа делителей, кратных трем, натурального числа М.
Program L5_1;
var m,s,i:integer;
begin
readln(m);
for i:=1 to m do
if(m mod i=0)and(i mod 3=0) then s:=s+1;
writeln ('Ответ: ',s);
end.
Задание 2
Составьте программу вычисления суммы составных делителей натурального числа М.
Program L5_2;
var m,s,i:integer;
begin
readln(m);
f...
Сделайте индивидуальный заказ на нашем сервисе. Там эксперты помогают с учебой без посредников 
Разместите задание – сайт бесплатно отправит его исполнителя, и они предложат цены.
Цены ниже, чем в агентствах и у конкурентов
Вы работаете с экспертами напрямую. Поэтому стоимость работ приятно вас удивит
Бесплатные доработки и консультации
Исполнитель внесет нужные правки в работу по вашему требованию без доплат. Корректировки в максимально короткие сроки
Гарантируем возврат
Если работа вас не устроит – мы вернем 100% суммы заказа
Техподдержка 7 дней в неделю
Наши менеджеры всегда на связи и оперативно решат любую проблему
Строгий отбор экспертов
К работе допускаются только проверенные специалисты с высшим образованием. Проверяем диплом на оценки «хорошо» и «отлично»
Работы выполняют эксперты в своём деле. Они ценят свою репутацию, поэтому результат выполненной работы гарантирован 
Ежедневно эксперты готовы работать над 1000 заданиями. Контролируйте процесс написания работы в режиме онлайн 
Требуется разобрать ст. 135 Налогового кодекса по составу напогового...
Решение задач, Налоговое право
Срок сдачи к 5 дек.
Школьный кабинет химии и его роль в химико-образовательном процессе
Курсовая, Методика преподавания химии
Срок сдачи к 26 дек.
Реферат по теме «общественное мнение как объект манипулятивного воздействий. интерпретация общественного мнения по п. бурдьё»
Реферат, Социология
Срок сдачи к 9 дек.
Выполнить курсовую работу. Образовательные стандарты и программы. Е-01220
Курсовая, Английский язык
Срок сдачи к 10 дек.
Изложение темы: экзистенциализм. основные идеи с. кьеркегора.
Реферат, Философия
Срок сдачи к 12 дек.
«Всё сдал!» — безопасный онлайн-сервис с проверенными экспертами
Используя «Свежую базу РГСР», вы принимаете пользовательское соглашение
и политику обработки персональных данных
Сайт работает по московскому времени:
Принимаем к оплате
© 2011—2025 Всё сдал!
Заполните форму и узнайте цену на индивидуальную работу!
Мы ВКонтакте 
Трейлер о сайте