прикладная математика

Люди человеки,помогите пожалуйста с задачкой нуна вот чё Составить прогу используя оператор цикла с предусловием. Вычислить количество отрицательных значений Sin(Fi) на интервале {а.в} с заданным шагом.Я вам стока плюсов натыкаю;0))

Добавлено (08.02.12, 11:42)
---------------------------------------------
uses crt;
var a,b,f,h,y:real;
k:integer;
begin
clrscr;
repeat
writeln('Введите диапазон вычислений a<b');
readln(a,b);
until a<b ;
repeat
write('Шаг вычислений h<',b-a:0:1,' h=');
readln(h);
until h<b-a;
k:=0;
f:=a;
while f<=b+h/2 do
begin
y:=sin(f);
writeln('f=',f:4:1,' sin(f)=',y:5:2);
if y<0 then k:=k+1;
f:=f+h;
end;
write('Количество отрицательных=',k);
readln
end.
ВОТ ТАКУ НАПИСАЛ НО СИНУС СЧИТАЕТ НЕПРАВИЛЬНО В ЧЁМ ОШИБКА.ПОМОГИТЕ ЛЮДИ ДОБРЫЕ.

Program ABC;
var
A:array[1..50,1..50]of integer;
B:array[1..50,1..50]of integer;
C:array[1..50]of integer;
max,d,n,m,s,i,j:integer;
begin
writeln('Введите n,m');
readln(n,m);
writeln(‘Как будем вводить1 – с клавиатуры,2 – генератором случайных чисел');
readln(d);
if d=1 then
begin
for i:=1 to n do
begin
for j:=1 to m do
read(A[i,j]);
readln
end;
end
else
begin
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
A[i,j]:=10-random(20);
end;
writeln;
end;
end;
max:=A[i,j];
for i:=1 to n do
for j:=1 to m do
if(A[i,j]>max)then
max:=A[i,j];
for i:=1 to n do
for j:=1 to m do
B[i,j]:=A[i,j]*max;
for i:=1 to n do
for j:=1 to m do
if i=j then (C[i]=B[i,j])
for i:=1 to n do
for j:=1 to m do
if(C[j]>C[j+1]) then
begin
s:=C[j+1];
C[j]:=s;
end;
writeln('Полученная матрица:');
for i:=1 to n do
begin
for j:=1 to m do
write(B[i,j],' ');
writeln;
end;
writeln('Полученный вектор:');
for i:=1 to n do
write(C[i],' ');
end.

а ты бы не мог,пожалуйста,написать ссылку на этот раздел именно,а то здесь много информации по поводу файлов....зарание спасибо

Привет всем :) Помогите решить задачу. Написать модуль программы в delphi. Вот сама задача. Дан числовой ряд от A до B, нужно все числа которые делются на 4 вывести на экран.