<em>ПАСКАЛЬ</em>
var
x,y,z:real;
function ST(a,b,h:real):real;
begin
ST:=(a+b)*h/2
end;
begin
Write('Введите длины оснований и высоту трапеции: ');
Read(x,y,z);
Writeln('Площадь трапеции равна ',ST(x,y,z):0:5)
end.
<u>Пример</u>
Введите длины оснований и высоту трапеции: 10.4 7.3 8
Площадь трапеции равна 70.80000
===== PascalABC.NET =====
begin
var (a, b) := ReadReal2('Введите два неотрицательных числа:');
if a = b then
Println('Введенные числа равны')
else
Println('Квадрат наибольшего:', Sqr(Max(a,b)),
' корень квадратный наименьшего:', Sqrt(Min(a,b)));
end.
512=2^9 ---> 9 бит для кодировки одного символа
F = 4096*9=1024*4*9 бит =9*2^12 бит =4,5 *2^13 бит =4,5 Кбайт
ответ 4,5 Кбайт
Const n=5;
var a:array[1..n,1..n+1] of integer;
i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n-i+1 do a[i,j]:=j+i-1;
for j:=n-i+2 to n+1 do a[i,j]:=0;
end;
for i:=1 to n do
begin
for j:=1 to n+1 do write(a[i,j]:2);
writeln;
end;
end.
Результат:
1 2 3 4 5 0
2 3 4 5 0 0
3 4 5 0 0 0
4 5 0 0 0 0
5 0 0 0 0 0
Вроде так
Мы взяли функцию f(x) = sin(x)-2*cos(x).
В процедуру-функцию function можно вставлять любые функции
program func;
uses Crt;
var a, b, x, y:real;
function f(var x:real):real;
begin
f:=sin(x)-2*cos(x);
end;
begin
ClrScr; {Очистка экрана}
Write (' a= '); ReadLn(a);
Write (' b= '); ReadLn(b);
WriteLn;
x:=a;
while x<=b do
begin
y:=f(x);
WriteLn ('y(', x:1:0, ')= ', y:4:2);
x:=x+1;
end;
ReadLn;
end.