<span>Создание самого первого компьютера-1946
Создание первого отечественного компьютера-1957
Открытие радиосвязи-1895
Первый полет человека в космос-1961
Принятие христианства на Руси-988
Первое упоминание в летописи о Москве-1147
Начало Великой Отечественной войны-1941
Запуск первого искусственного спутника Земли-1957
Открытие Колумбом Америки-1492</span>
//Z(x)=cos(2x)sin(x),если переменная х меняется в интервале [-5;5] с шагом hx=0.345
PROGRAM B07;
CONST
min=-5;
max=5;
hx=0.345;
VAR
x,z,k:real;
BEGIN
x:=min;
while (x<=max) do begin
writeln ('x=', x:6:3, ' ', cos(2*x)*sin(x), ' ' );
x:=x+hx;
end;
END.
60*40=2400 байт
место выделяется кластерами, для 1.2 дискеты 512 байт
кластеров для полезной информации на 1,2 дискете (это ещё 5" древность)
2*80*15 - 2*2 -14 =2382
2382*512=1219584
1219584/2400=508,16
получается 508 страниц
Pascal
var
m : integer;
a,b,y : real;
begin
writeln ('menu:');
writeln ('1) y= (a+b)2');
writeln ('2) y= a^2-b^2');
writeln ('3) y= 1/(a+b)')
writeln ('a=');
readln(a);
writeln ('b=');
readln(b);
readln (m);
case m of
1: y := (a+b)*2;
2: y :=sqr(a)-sqr(b);
3: y := 1/(a+b);
end;
writeln ('y=',y:3:2);
end.