24. 03. 22 Пр 10 Разработка и тестирование программы
 Скачать 14.9 Kb.
|
|
24.03.22 ПР 10 Разработка и тестирование программы 1. Вычислить периметр и площадь прямоугольного треугольника, если известны a, b, с. var a,b,c,pl,per: real; begin write('Введите значение катета a '); read(a); write('Введите значение катета b '); read(b); write('Введите значение гипотенузы c '); read(c); per:=a+b+c; pl:=1/2*a*b; write('Периметр прямоугольного треугольника = ', per, ', а площадь = ', pl); end. 2. Вычислить площадь круга заданного радиуса R. var l,s,r:real; const p=3.14; begin writeln('введите радиус'); readln(r); s:=p*r*r; l:=2*p*r; writeln('площадь равна = ',s,' длина равна = ',l); readln; end. 3. Даны два числа. Найти среднее арифметическое кубов этих чисел. var a, b: real; begin Write('Введите два числа через пробел '); Readln(a, b); Writeln('Среднее арифметическое кубов равно ', (a * sqr(a) + b * sqr(b)) / 2); Writeln('Среднее геометрическое модулей равно ', sqrt(abs(a * b))) end. 4. Даны два действительных числа x и y. Вычислить их сумму, разность, произведение и частное. var x,y,s,r,p,ch:real; begin readln(x,y); s:=x+y; r:=x-y; p:=x*y; ch:=x/y; writeln('summa=',s); writeln('raznost=',r); writeln('proizvedenie=',p); writeln('chastnoe=',ch); end. 5. Дана сторона равностороннего треугольника. Найти площадь этого треугольника. var a,ploshad,maxrad,minrad: real; begin clrscr; write('введите длину стороны равностороннего треугольника: '); readln(a); ploshad:=(sqr(a)*sqrt(3))/4; maxrad:=(a*sqrt(3))/3; minrad:=(a*sqrt(3))/6; writeln('площадь треугольника = ',ploshad:6:1); writeln('радиус вписанной окружности = ',minrad:6:1); writeln('радиус описанной окружности = ',maxrad:6:1); end. 6. Найти площадь шара, радиуса R. var R,V:Real; begin Writeln('Введи R:'); Readln(R); V:=4.2*(sqr(R)*r); Writeln('Об’єм шара:',v:4:1); end. 7. Вычислить площадь треугольника по формуле Герона, если заданы его стороны. var A,B,C,p,S:real; begin writeln ('Введите длины сторон треугольников'); readln(A,B,C); p:=(A+B+C)/2; S:=sqrt(p*(p-A)*(p-B)*(p-C)); writeln ('Площадь треугольника S=',S); readln end.Задание 2. Выполните компиляцию, отладку и тестирование разработанного приложения, докажите его работоспособность.
|