Вычисление производим по формуле
$S=2(ab+ac+bc)=2(Sp_{(a,b)}+Sp_{(a,c)}+Sp_{(b,c)}); \ Sp_{(x,y)}=x\cdot y$

function Sp(x,y:real):real;
begin
Sp:=x*y
end;

var
a,b,c,S:real;
begin
Write('Введите размеры сторон a,b,c: ');
Read(a,b,c);
S:=2*(Sp(a,b)+Sp(a,c)+Sp(b,c));
Writeln('Площадь поверхности равна ',S)
end.

Тестовое решение:
Введите размеры сторон a,b,c: 2.5 3.15 4
Площадь поверхности равна 60.95

0 0

4 года назад

Составить программу вычисления значений функции F(x) на отрезке [a;b] с шагом h. Результат представить в виде таблицы F(x)=коре

Shrader

$\displaystyle F(x)=\sqrt{x\cos^2(x)}=\cos (x)\sqrt x$

// PascalABC.NET 3.2, сборка 1385 от 14.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
var a,b,h:real;
Write('Введите a,b,h: '); Read(a,b,h);
var n:=Trunc((b-a)/h);
for var i:=0 to n do begin
 var x:=a+i*h;
 var y:=cos(x)*sqrt(x);
 Writeln(x:6:3,y:15:5)
 end
end.

Пример
Введите a,b,h: 0.2 3.2 0.3
0.200 0.43830
0.500 0.62054
0.800 0.62315
1.100 0.47574
1.400 0.20111
1.700 -0.16799
2.000 -0.58852
2.300 -1.01046
2.600 -1.38169
2.900 -1.65348
3.200 -1.78580

0 0

4 года назад

ПОЖАЛУЙСТА, ОБЪЯСНИТЕ, КАК??? КАК ЭТО РЕШАТЬ? На Паскале Дан целочисленный массив из 30 элементов. Элементы массива могут прини

svetyli

Ответ:

const N = 30;

var a : array[1..N] of integer;

i, j, x : integer;

Begin

for i := 1 to N do readln(a[i]);

readln(x);

for i := 1 to N do begin //перебираем элементы массива

if a[i] = x then begin //если находим элемент равный Х то

writeln('наименьший номер элемента равного X - ', i); //выводим сообщение

exit; //и завершаем программу не завершив перебор, т.к. нам нужен только наименьший номер

end;

writeln('такого элемента нет'); //если перебрав весь массив не находим совпадений то выводим сообщение

end.

Объяснение:

объяснения в комментариях программы

проверено на PascalABC

0 0

4 года назад