Const a=1.2; b=2; h=0.1;
var x,y:real; n,i:integer;
begin
x:=a-h;
n:=round((b-a)/h)+1;
writeln(' № x y');
for i:=1 to n do
begin
x:=x+h;
y:=sqrt((x-1)/sin(1/x));
writeln(i:2,' ',x:3:1,' ',y:8:4);
end;
end.
Результат:
№ x y
1 1.2 0.5198
2 1.3 0.6567
3 1.4 0.7814
4 1.5 0.8992
5 1.6 1.0127
6 1.7 1.1232
7 1.8 1.2316
8 1.9 1.3385
9 2.0 1.4442
На экране графического вывода стало возможно получать рисунки , чертежи в таком же виде ,как на бумаге ...
8 бит = 9,54×(10 в -7 степени) МБ
8 бит = 9,31×(10 в -10 степени) ГБ
8 бит = 9,09×(10 в -13 степени) ТБ
A-50 Б-30 В-20 Г-5
Один из возможных вариантов кодирования:
А=0 (1 бит) Б=10 (2 бит) В=110(3 бита) Г=111 (3 бита)
Всего: 50*1+30*2+20*3+5*3=50+60+60+15=185 (бит) <---- ответ
Var g,t:integer;
s:real;
begin
g:=10;
writeln('Время падения в секундах равно ');
read(t);
while t<>0 do
begin
s:=(g*sqr(t))/2;
writeln('Высота колодца равна ',s,' метров.');
writeln('Время падения в секундах равно ');
read(t);
end;
end.<span>
</span>