|
Лабораторная работа №4
|
|
Тема: Составление простейших линейных программ
Задание. Составить простейшую вычислительную программу. Номер варианта по номеру в журнале.
Цель работы: Познакомиться со структурой программы, научиться составлять линейные вычислительные алгоритмы, вспомнить простейшие формулы математики.
Задания
1. Вводят несколько чисел. Найти среднее арифметическое их квадратов и среднее арифметическое их модулей.
2. Найти периметр и площадь треугольника, если даны длины его сторон.
3. Дана длина ребра куба. Найти площадь грани, площадь полной поверхности и объем этого куба.
4. Найти площадь кольца, внутренний радиус которого равен R1, а внешний радиус равен R2 (R1 меньше R2).
5. Дана сторона равностороннего треугольника. Найти площадь этого треугольника и радиусы вписанной и описанной окружностей.
6. Дана длина окружности. Найти площадь круга, ограниченного этой окружностью.
7. Дана площадь круга. Найти длину окружности, ограничивающей этот круг.
8. Найти периметр и площадь равнобедренной трапеции с основаниями a и b (a>b) и углом alpha при большем основании (угол дан в радианах).
9. Найти периметр и площадь прямоугольной трапеции с основаниями a и b (a>b) и острым углом alpha (угол дан в радианах).
10. Найти расстояние между двумя точками с заданными координатами (x1,y1) и (x2,y2).
11. Даны координаты трех вершин треугольника (x1,y1),(x2,y2),(x3,y3). Найти его периметр и площадь.
12. Дано целое четырехзначное число. Используя операции div и mod, найти сумму его цифр.
13. Дано целое четырехзначное число. Используя операции div и mod, найти произведение его цифр.
14. Написать программу вычисления углов треугольника, если заданы координаты вершин.
15. Написать программу вычисления расстояния от точки до прямой, если заданы координаты точки и уравнение прямой.
16. Напишите программу для вычисления определителя третьего порядка.
17. Дан радиус окружности, вычислить площадь вписанного треугольника.
Замечания. Вместе с кодом программы выложить контрольный пример и контрольный просчет. Просчет, как и программу, выкладывать также в тегах кода и для каждой строчки кода указывать вычисленные или присвоенные значения переменных из этой строки программного кода. Также требуется выкладывать скрин результатов выполнения.
Приведем пример выполнения задания:
Код программы:
Код program BF_exprog1;
uses printer; var a,b,c:real;
begin
writeln('Введите числа a и b: ');
readln(a,b);
c:=(a+b+abs(a-b))/2;
writeln(c)
end.
Контрольный расчет:
Код program BF_exprog1;
uses printer; var a,b,c:real;
begin
Введите числа a и b:
3 5
(3+5+|3-5|)/2=5
5
end. |
|
|
|
Задание №8
Код программы:
Код program Predator;
uses printer; var a,b,c,d,h,f,e,l,s,p,α,α°,β,sin30°,sin45°,sin60°,π:real;
begin
writeln('*****************************************************');
writeln('* laba №4 file: Mr_Pozitiv.pas == ver.1.0 *');
writeln('* exercise *');
writeln('* Malevanny V. A. Group I-14-1 Date: 15/09/14 *');
writeln('*****************************************************');
writeln('Введите кут α: ');
writeln('Введите числа a и b : ');
π:=3,14;
readln(α);
α°:=α*180°/π;
readln(a,b);
L:=a-b;
p:=e:=a-l/2;
sin30°:=1/2;
sin45°:=√2/2;
sin60°:=√3/2;
if β°=30° then readln(sin30°) else if β°=45° then readln(sin45°) else if β°=60° then readln(sin60°) else write('Error');
β:=90°-α°;
d:=c:=(sin β°)*(p/x)=x;
h:=√c^2-√f^2;
s:=(a+b/2)*h;
p:=a+b+c+d;
writeln(s,p)
End.
Контрольный расчет:
Код program Predator;
uses printer; var a,b,c,d,h,f,e,l,s,p,α,α°,sin30°,sin45°,sin60°,π:real;
begin
Введите кут α
Введите числа a и b
π:=3,14;
1,06
1,06*180°/3,14=60°
26 10
26-10=16
26-10=5
1/2
√2/2
√3/2
√3/2
90°-60°=30°
(1/2)*(8/x)=16
√16^2-√8^2=13,85
(26+10/2)*13,85=249
26+10+16+16=68
249 68
End. 
perfect ;)
№ 2 | Автор: Mr_Pozitiv |
2014-09-15, 07:31 | Изменено: Mr_Pozitiv - Ср, 2014-09-17, 21:00
|
Репутация: [ + 6 ]
|
|
|
|
Код program AlenaKit4;
uses printer;
var
a, b, c, d: real;
begin
writeln('*****************************************************');
writeln('* laba №4 file: AlenaKit.pas == ver.7.0 *');
writeln('* exercise *');
writeln('* Bibicheva O.O I-14-1 16/09/14 *');
writeln('*****************************************************');
writeln('Введите сторону куба');
read(a);
b := a * a;
c := 6 * (a * a);
d := a * a * a;
writeln('площадь грани =', b );
writeln('площадь полной поверхности =', c);
writeln('объем =', d);
end.
Контрольный расчет
Код program AlenaKit4;
uses printer;
var
a, b, c, d: real;
begin
Введите сторону куба
3
площадь грани =9
площадь полной поверхности =54
объем =27
end.
AlenaKit♥
№ 3 | Автор: AlenaKit |
2014-09-16, 18:35 | Изменено: AlenaKit - Вт, 2014-09-16, 22:26
|
Репутация: [ + 12 ]
|
|
|
|
Код программы:
Код Program ELMpr_La4;
{
OoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOo
o░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░o
O░░Lab░work░#4░░file:ELMpr_La4.pas░==░ver.1.0░░O
o░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░o
O░░░Decision task №6 of laboratory work №4.░░░░O
o░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░o
O░░©░Grankin░V.I.░Group░І-14-1░Date:░16/09/14░░O
o░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░o
OoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOo
}
Uses Printer;
Const Pi=3.14;
Var C, S: real;
Begin
Writeln('Enter C');
Readln(C);
S:=Pi*sqr(C/(2*Pi));
Writeln('S=',S);
End.
Контрольный расчет:
Код Program ELMpr_La4;
Uses Printer;
Const Pi=3.14;
Var C, S: real;
Begin
Введите длину окружности
6,28
3,14*(6,28/(2*3,14))*(6,28/(2*3,14))=3,14
3,14
End.
El_Magnifico with <3
№ 4 | Автор: El_MAgnifico |
2014-09-16, 20:11 | Изменено: El_MAgnifico - Вт, 2014-09-16, 20:45
|
Репутация: [ + 8 ]
|
|
|
|
Код program ploshad;
var
x1,y1,x2,y2,x3,y3:real;
P,S,a,b,c:real;
begin
writeln('*****************************************');
writeln('* laba#2 file:FORZOREZOR.pas==ver1.0 *');
writeln('* plosha *');
writeln('* Onufrienko E.M. I-14-1 15/09/2014 *');
writeln('*****************************************');
writeln('Координаты первой вершины');
readln(x1,y1);
writeln('Координаты второй вершины');
readln(x2,y2);
writeln('Координаты третей вершины');
readln(x3,y3);
a:=sqrt(sqr(x1-x2)+sqr(y1-y2));
b:=sqrt(sqr(x1-x3)+sqr(y1-y3));
c:=sqrt(sqr(x2-x3)+sqr(y2-y3));
P:=a+b+c;
S:=sqrt(P/2*(P/2-a)*(P/2-b)*(P/2-c));
writeln('Площадь=' ,S);
writeln('Периметр=' ,a+b+c);
readln
end.
Код program ploshad;
var
x1,y1,x2,y2,x3,y3:real;
P,S,a,b,c:real;
begin
координаты первой вершины
0,2
координаты второй вершины
-4,0
координаты третей вершины
-2,6
Площадь=10
Периметр=15.27
end.
|
|
|
|
Код Program Distance;
Var x1,y1,s,A,B,C:integer;d,k:real;
Begin
Writeln (' **************************************************** ');
Writeln (' ** Laba #4 File Olga Frolova.pas == ver.1.0. ** ');
Writeln (' *** Frolova O.R. Group I-14-1 Date 20.09.2014 *** ');
Writeln (' **************************************************** ');
Writeln (' Введите числа x1 и y1: ');
Readln (x1,y1);
Writeln (' Введите числа А и В и С: ');
Readln (A,B,C);
s:=(abs(A*x1+B*y1+C));
k:=(sqrt(A*A+B*B));d:=(s/k);
Writeln ('Summa=',s);
Writeln ('Koren=',k);
Writeln ('Distance=',d);
end.
Контрольный расчет
Код Program Distance; Var x1,y1,s,A,B,C:integer;d,k:real; [color=#828282]Begin
Введите числа x1 и y1: 1 4
Введите числа А и В и С: 1 7 2
Summa=31Koren=7.07106781186548
Distance=4.38406204335659 end.
25101996
№ 6 | Автор: OlgaFrolova |
2014-09-20, 17:28 | Изменено: OlgaFrolova - Сб, 2014-09-20, 17:47
|
Репутация: [ + 0 ]
|
|
|
|
Код Program opr;
{
*************************************************************
* laba#4 file: misha_shabelnik 97 pas == ver.1.0 *
* Shabelnik M.V. Group I-14-1 Date: 21\09\14 *
*************************************************************
}
var
a1,a2,a3,b1,b2,b3,c1,c2,c3,det:real;
begin
writeln('Введите a1 и а2 и а3');
read(a1,a2,a3);
writeln('Введите b1 и b2 и b3');
read(b1,b2,b3);
writeln('Введите c1 и с2 и с3');
read(c1,c2,c3);
det := a1*b2*c3-a1*b3*c2+b1*c2*a3-b1*c3*a2+c1*a2*b3-c1*a3*b2;
writeln('определитель 3-го порядка=',det);
end.
Контрольный расчет
Код Program opr;
var
a1,a2,a3,b1,b2,b3,c1,c2,c3,det:real;
Введите a1 и а2 и а3
1 2 3
Введите b1 и b2 и b3
4 5 6
Введите c1 и с2 и с3
7 8 9
определитель 3-го порядка=0
№ 7 | Автор: torres |
2014-09-21, 15:45 | Изменено: torres - Вс, 2014-09-21, 20:01
|
Репутация: [ + 0 ]
|
|
|
№ 7 | Автор: torres |
2014-09-21, 15:45 | Изменено: torres - Вс, 2014-09-21, 20:01
|
Репутация: [ + 0 ]
|
|
|
|
№ 8 | Автор: torres |
2014-09-21, 15:51 | Изменено: torres - Вс, 2014-09-21, 19:39
|
Репутация: [ + 0 ]
|
|
|
|
Код Program ira_butenko97;
var
R1, R2, Pi, S : real;
begin
writeln(' Введите значение R1 и R2 ');
readln(R1);
readln (R2);
Pi:=3.14;
if (R1<R2) then
begin
S:= (sqr(R2)-sqr(R1))* Pi;
writeln(S);
end
else writeln(' error! R1>=R2');
end.
контрольный расчет
Program ira_butenko97;
var
R1, R2, Pi, S : real;
writeln(' Введите значение R1 и R2 ');
readln(R1); 2
readln (R2); 3
Pi:=3.14;
if (2<3) then
S:= (sqr(3)-sqr(2))* 3.14=15.7;
end.
|
|
|
|
10. Найти расстояние между двумя точками с заданными координатами (x1,y1) и (x2,y2).
Код программы:
Код
program navi;
uses printer;var x1,y1,x2,y2,x: real;
begin
write('x1,y1: ');readln(x1,y1);
write('x2,y2: ');readln(x2,y2);
x:=sqrt(sqr(x2-x1)+sqr(y2-y1));
writeln(x);
readln;
End.
Контрольный расчет:
Код
program navi;
uses printer;
var x1,y1,x2,y2,x: real;
begin
введите x1,y1
2 2
введите x2,y2
4 4
√(4-2)^2+(4-2)^2
2.8
end.
№ 10 | Автор: Awesome |
2014-09-22, 01:47 | Изменено: Awesome - Пн, 2014-09-22, 12:46
|
Репутация: [ + 2 ]
|
|
|
|
8. Найти периметр и площадь равнобедренной трапеции с основаниями a и b (a>b) и углом alpha при большем основании (угол дан в радианах).
Код program Mr_pozitiv;
var h,rad,a,b,x,s,p,alfa,c,d:real;
begin
writeln ('Введите a');
writeln ('Введите b');
readln (a,b);
writeln ('угол rad');
readln (rad);
alfa:=((rad)*180)/3.14;
x:=(a-b)/2;
h:=x*sin(alfa)/cos(alfa);
c:=sqr(x)+sqr(h);
c:=sqrt(c);
d:=c;
s:=(a+b)*(a-b)/4*sin(alfa)/cos(alfa);
p:=a+b+c+d;
writeln ('Площадь s=',s);
writeln ('Периметр p=',p);
end.
Код *****************************************************
* laba #4 file: Mr_Pozitiv.pas == ver.1.0 *
* exercise *
* Malevanny V. A. Group I-14-1 Date: 22/09/14 *
*****************************************************
Введите a
Введите b
5 2
угол rad
49
alfa=(49*180)/3.14=26
x=(5-2)/2=1.5
h=1.5*sin(26)/cos(26)=0.51
c=1.587
d=1.587
s=(5+2)*(5-2)/4*sin(26)/cos(26)=1.81
p=5+2+5+2=14
Площадь s=1.81
Периметр p=10.1
perfect ;)
№ 11 | Автор: Mr_Pozitiv |
2014-09-22, 13:27 | Изменено: Mr_Pozitiv - Пн, 2014-09-22, 18:15
|
Репутация: [ + 6 ]
|
|
|
perfect ;)
№ 11 | Автор: Mr_Pozitiv |
2014-09-22, 13:27 | Изменено: Mr_Pozitiv - Пн, 2014-09-22, 18:15
|
Репутация: [ + 6 ]
|
|
|
|
5. Дана сторона равностороннего треугольника. Найти площадь этого треугольника и радиусы вписанной и описанной окружностей. Код Var a, rv, S, Ro: real;
Begin
Read(a);
begin
S:=a*a*sqrt(3)/4;
rv:=a*sqrt(3)/6;
Ro:=a*sqrt(3)/3;
end;
writeln (rv, #32, Ro, #32, S);
End.
Selena
№ 12 | Автор: Selena |
2014-09-22, 20:58 | Изменено: Selena - Пн, 2014-09-22, 21:00
|
Репутация: [ + 2 ]
|
|
|
|
17. Дан радиус окружности, вычислить площадь вписанного треугольника.
Код Program ProjectX
{****************************************************
* Laba#4 file: stx.pas==ver.7.0 *
* Plosha trikutnyka za radiusom opysanogo kola *
* Shkurenko Anton I-14-1 22.09.14 *
****************************************************};
var a,b,c,S,R,S1:real;
begin
S:=a*b*c;
R:=a*b*c/4*S;
S1:=R/S;
writeln('Введите a=') ;
readln(a);
writeln('Введите b=') ;
readln(b);
writeln('Введите c=') ;
readln(c);
writeln('Площа трикутника=',a*b*c);
writeln('Радіус кола=',(a*b*c)/(4*S));
writeln(R);
writeln('Площа вписаного трикутника=',(a*b*c/4*S)/(a*b*c));
read(S1);
end.
Контрольный расчёт
Код Введите a=
34
Введите b=
45
Введите c=
67
Площа трикутника=102510
Радіус кола=бесконечность
0
Площа вписаного трикутника=0
 
№ 13 | Автор: stx |
2014-09-23, 01:36 | Изменено: stx - Вт, 2014-09-23, 02:05
|
Репутация: [ + 2 ]
|
|
|
|
9) Найти периметр и площадь прямоугольной трапеции с основаниями a и b (a>b) и острым углом alpha (угол дан в радианах).
Код Program qwerty159;
var rad,a,b,c,d,S,P :real;
{
**********************************************
*** Laba#4 file: @qwerty159.pas == ver.7.0 ***
*** Olga Kabachok I-14-1 23.09.2014 ***
**********************************************
}
Begin
Writeln ('Введите a, b и rad');
Readln (a, b, rad);
S:=(d*(a+b)*sin(rad))/2;
P:=a+b+c+d;
Writeln ('Площадь', S);
Writeln ('Периметр', P);
end.
Контрольный расчёт
Код Введите a, b и rad
5 9 40
Площадь0
Периметр14
№ 14 | Автор: @qwerty159 |
2014-09-23, 22:03 | Изменено: @qwerty159 - Пт, 2014-09-26, 20:45
|
Репутация: [ + 0 ]
|
|
|
|
Задание №2. Найти периметр и площадь треугольника, если даны длины его сторон.
Код program beznoschenko;
(************************************************
* laba #4 file:beznoschenko.pas==ver.7.0 *
* exercise *
*Beznoschenko Valentina I-14-1 24/09/2014 *
*************************************************)
var a,b,c,q,P,S:real;
begin
Writeln('Введите длину a ');
Readln(a);
Writeln('Введите длину b ');
Readln(b);
Writeln('Введите длину c ');
Readln(c);
P:=a+b+c;
q:=P/2;
S:=sqrt(q*(q-a)*(q-b)*(q-c));
Writeln('Периметр треугольника=',P);
Writeln('Площадь треугольника=',S);
end.
Контрольный расчет:
Код program beznoschenko;
var a,b,c,q,P,S:real;
begin
Введите длину a
3
Введите длину b
4
Введите длину c
5
Периметр треугольника=12
Площадь треугольника=6
end.
№ 15 | Автор: beznoschenko |
2014-09-24, 14:51 | Изменено: beznoschenko - Пт, 2014-09-26, 21:09
|
Репутация: [ + 2 ]
|
|
|
|
Задание №1.
1. Вводят несколько чисел. Найти среднее арифметическое их квадратов и среднее арифметическое их модулей.
Код program Dimehion;
var a, b, c, S1, S2: real;
begin
writeln('**************************************************');
writeln('* laba #4 file: di_4.pas == ver1.0 *');
writeln('* laba #4 *');
writeln('* Bazaliy E.V. Group: I-14-1 Date: 24/09/14 *');
writeln('**************************************************');
writeln('Введите числа a, b и c: ');
readln(a,b,c);
S1:=(a*a+b*b+c*c)/3;
S2:=(abs(a)+abs(b)+abs(c))/3;
writeln('Среднее арифметическое квадратов чисел: ',S1);
writeln('Среднее арифметическое модулей чисел: ',S2);
end.
Контрольный расчет:
Код program Dimehion;
var a, b, c, S1, S2: real;
begin
Введите числа a,b и c:
10
-10
40
Среднее арифметическое квадратов чисел: 600
Среднее арифметическое модулей чисел: 20
end. 
№ 16 | Автор: dimeshion |
2014-09-24, 17:35 | Изменено: dimeshion - Ср, 2014-09-24, 18:13
|
Репутация: [ + 2 ]
|
|
|
|
9) Найти периметр и площадь прямоугольной трапеции с основаниями a и b (a>b) и острым углом alpha (угол дан в радианах).
Код Program qwerty159;
var rad,a,b,c,d,S,P :real;
{
**********************************************
*** Laba#4 file: @qwerty159.pas == ver.7.0 ***
*** Olga Kabachok I-14-1 23.09.2014 ***
**********************************************
}
Begin
Writeln ('Введите a, b, c, d и rad');
Readln (a, b, c, d, rad);
S:=(d*(a+b)*sin(rad))/2;
P:=a+b+c+d;
Writeln ('Площадь', S);
Writeln ('Периметр', P);
end.
Контрольный расчёт:
Код Введите a, b, c, d и rad
15 11 7 9 40
Площадь87.1782397760838
Периметр42
|
|
|
|
14. Написать программу вычисления углов треугольника, если заданы координаты вершин.
Код программы:
Код program bf_laba4;
var x1,x2,x3,y1,y2,y3,a,b,c,cosA,arccosA,cosB,arccosB,cosC,arccosC:real;
begin
writeln('Введите координаты точек x1, y1, x2, y2, x3, y3:');readln(x1,y1,x2,y2,x3,y3);
a:=sqrt(sqr(x1-x2)+sqr(y1-y2));
b:=sqrt(sqr(x2-x3)+sqr(y2-y3));
c:=sqrt(sqr(x3-x1)+sqr(y3-y1));
cosA:=(sqr(a)-sqr(b)-sqr(c))/((-2)*b*c);
arccosA:=abs((ARCTAN(SQRT(1-SQR(cosA))/cosA))*(180/pi));
cosB:=(sqr(b)-sqr(c)-sqr(a))/((-2)*a*c);
arccosB:=abs((ARCTAN(SQRT(1-SQR(cosB))/cosB))*(180/pi));
cosC:=(sqr(c)-sqr(a)-sqr(b))/((-2)*a*b);
arccosC:=abs((ARCTAN(SQRT(1-SQR(cosC))/cosC))*(180/pi));
Writeln('Размеры углов треугольника имеют такие значения: ',arccosA,', ', arccosB,', ',arccosC);
end.
Контрольный расчет:
Код program bf_laba4;
var x1,x2,x3,y1,y2,y3,a,b,c,cosA,arccosA,cosB,arccosB,cosC,arccosC:real;
begin
Координаты точек: x1=0, y1=0, x2=4, y2=3, x3=4, y3=0
a:=sqrt(sqr(0-4)+sqr(0-3))=5;
b:=sqrt(sqr(4-4)+sqr(3-0))=3;
c:=sqrt(sqr(4-0)+sqr(0-0))=4;
cosA:=(sqr(5)-sqr(3)-sqr(4))/((-2)*b=3*4)=0;
arccosA:=abs((ARCTAN(SQRT(1-SQR(cosA))/cosA))*(180/pi))=90;
cosB:=(sqr(3)-sqr(4)-sqr(5))/((-2)*5*4)=0.8;
arccosB:=abs((ARCTAN(SQRT(1-SQR(cosB))/cosB))*(180/pi))=36.869897645844;
cosC:=(sqr(4)-sqr(5)-sqr(3))/((-2)*5*3)=0.6;
arccosC:=abs((ARCTAN(SQRT(1-SQR(cosC))/cosC))*(180/pi))=53.130102354156;
Размеры углов треугольника имеют такие значения: 90, 36.869897645844, 53.130102354156.
end.
|
|
|
|
Дано целое четырехзначное число. Используя операции div и mod, найти произведение его цифр.
Код программы:
Код program laba4
{**************************************}
{* laba#4 file:Bonyasik.pas==ver1.0 *}
{* Prokopenko Nikol I-14-1 04.10.14 *}
{**************************************};
var a,b:integer;
begin
writeln('Введите число a:');
readln(a);
b:=(a div 1000)*(a div 100 mod 10)*(a mod 100 div 10)*(a mod 10);
writeln('Произведение цифр =',b);
end.
Контрольный расчет:
Код Введите число a:
3698
Произведение цифр =1296
http://195.208.237.170/WDE/?shared=Bonyasik/Bonyasik.pas
№ 19 | Автор: Бонясик |
2014-10-04, 18:48 | Изменено: Бонясик - Пн, 2014-10-06, 18:26
|
Репутация: [ + 0 ]
|
|
|
|
9) Найти периметр и площадь прямоугольной трапеции с основаниями a и b (a>b) и острым углом alpha (угол дан в радианах).
Код Program qwerty159;
var P,S,alpha,a,b,h,x1,x2,x3:real;
begin
read(a,b,alpha);
x1:=a-b;
x2:=x1/sin(alpha);
x3:=x2*cos(alpha);
P:=a+b+x2+x3;
S:=(a+b)*x3/2;
Writeln('Площадь s=',s:8:3);
Writeln('Периметр p=',p:8:3);
end.
Контрольный расчёт:
Код 7 11 50
Площадь s= 132.401
Периметр p= 47.957
|
|
|
|
