Программирование циклических алгоритмов. вычислить количество отрицательных значений sin(fi)на интервале [а, b] с заданным шагом

Var a,b,h,fi,y:real; k,i:integer;
begin
 writeln('a, b, h:');
 readln(a,b,h);
 k:=0;
 fi:=a-h;
 for i:=1 to round((b-a)/h)+1 do
  begin
  fi:=fi+h;
  y:=sin(fi);
  if y<0 then k:=k+1;
  writeln(fi:4:1,' ',y:5:3);
  end;
 writeln('k = ',k);
 end.

Пример:
a, b, h:
-0.5 0.5 0.1
-0.5 -0.479
-0.4 -0.389
-0.3 -0.296
-0.2 -0.199
-0.1 -0.100
-0.0 -0.000
 0.1 0.100
 0.2 0.199
 0.3 0.296
 0.4 0.389
 0.5 0.479
k = 6

PS. Значения, очень близкие к 0, можно не учитывать. В этом случае вместо y<0 можно написать, например, условие abs(y)<eps, где eps - малое число.

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

begin
  var a,b,h,fi:real;
  Write('Укажите границы интервала табуляции и шаг: ');
  Read(a,b,h);
  var k:=0;
  fi:=a;
  while fi<=b+0.1*h do begin
    if sin(fi)<0 then k+=1; fi+=h
    end;
  Writeln('Отрицательных значений- ',k)
end.

Пример
Укажите границы интервала табуляции и шаг: -6 5 0.2
Отрицательных значений- 25

Вариант для большого количества промежуточных точек, снижающий влияние накапливающейся из-за возможной неточности представления вещественных чисел, погрешности:

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

begin
  var a,b,h,fi:real;
  Write('Укажите границы интервала табуляции и шаг: ');
  Read(a,b,h);
  var n:=Trunc((b-a)/h)+1;
  var k:=0;
  for var i:=1 to n do begin
    fi:=a+h*(i-1); Println(fi,sin(fi));
    if sin(fi)<0 then k+=1
    end;
  Writeln('Отрицательных значений- ',k)
end.

Первым великим изобретением древнего Китая считается бумага. Согласно китайским летописям династии Восточная Хань, бумагу изобрел придворный евнух династии Хань — Цай Лун в 105 году н.э. 
В глубокой древности в Китае до появления бумаги для записей использовали скрученные в свитки полоски из бамбука, свитки из шелка, деревянные и глиняные таблички и т.д. Наиболее же древние китайские тексты или «цзягувэнь» были обнаружены на черепашьих панцирях, которые датируются 2-м тысячелетием до н. э. (династия Шан). 
В ІІІ веке бумагу уже широко применяли для письма вместо более дорогих традиционных материалов. Разработанная Цай Лунем технология производства бумаги состояла в следующем: кипящая смесь из пеньки, коры тутового дерева, старых рыболовных сетей и тканей превращалась в пульпу, после чего её растирали до пастообразного однородного состояния и смешивали с водой. В смесь погружали сито в деревянной раме из тростника, вычерпывали ситом массу и встряхивали, чтобы жидкость стекла. При этом в сите образовывался тонкий и ровный слой волокнистой массы. 
Эту массу затем опрокидывали на гладкие доски. Доски с отливками клали одна на другую. Связывали стопку и укладывали сверху груз. Затем затвердевшие и окрепшие под прессом листы снимались с досок и сушились. Изготовленный по такой технологии бумажный лист получался легким, ровным, прочным, менее желтым и более удобным для письма!

Книгопечатание уже в XV в. распространилось почти по всей Европе; известно до 1000 имён печатников того времени, число же изданий, вероятно, доходит до 30000 (так называемые инкунабулы); 6/7 этого количества составляют сочинения религиозные и схоластические, остальные — научные и древняя и новая литература. Формат — in folio, разделённый на два столбца, или in quarto. Шрифт остался прежний — письменный готический прямоугольный. Только в Италии печатники начали применять употреблявшийся там ещё с XIV века круглый шрифт, так называемый римский, который впоследствии и вытеснил готический.  Начало книгопечатания в Европе связано со многими именами. Так, например, в истории есть сведения о некоем Прокопе Вальдфогеле. Он обладал 48 металлическими литерами и прочими инструментами. Однако книги, изданные им, не сохранились. 
Среди прочих лиц в истории встречается и Жан Брито, и врач Памфилио Кастади. О придворном печатнике короля Франции Никола Жансоне, издававшем книги в Венеции и Париже, говорят несколько источников. 

Тесно связано начало книгопечатания в Европе с церковным служкой из Нидерландов. Звали его Лауренс Янсзон Костер. Предполагается, что секрет печатания он перенял от восточных армян-беженцев. Ближе к старости Костер изготовил для своих внуков подвижные буквы и напечатал несколько изданий. Книги эти сохранились, однако сведений, что их изготовил Костер, на них нет. 

Во многих европейских городах установлены памятники людям, в той или иной степени связанным с книгопечатанием. Однако их приоритет в изобретении типографской технологии не доказан историей. Идею издания удалось более наглядно воплотить в середине 15 века.

изобретение бумаги в Китае- 2 век до нашей эры
Китайцы в отличие от других народов оказались более наблюдательными и более изобретательными. Они заметили гнёзда ос, которые тоже из бумаги, которую они делали из разжёванного дерева и превращали ешо в целлюлозу и потом вбумагу. проанализировав это они создали технологию изготовления бумаги, ктоторую делают до сих пор по тойже технологии во всём мире. Но самое удивительное изобретение китайцев это зеркало, технология которого до сих пор не отгадана учёными. И дело не в том как они это сделали. Как они умудрились до этого додуматься. Вкратце напомню что любое китайское зеркало в солнечном зайчике давало изображение дракона и иероглифов. До сих пор это тайна для современных технологий.