Составить программы на языке паскаль и схемы?

[Stebaslo]

Сдравствуйте, помогите пожалуйста с (курсовой) програмками!

Задание: Составить программы на языке паскаль, схемы и распечатать результаты решения для следующих задач:

1) Вычислить функцию у=cos x для х, изменяющегося на отрезке (-12,16) с шагом 2,05. Сколько раз значение было равно нулю?


2) В массиве А, состоящем из 10 элементов, есть хотя бы один отрицательный элемент. Вычислть произведение элементов массива до первого отрицательного.

3) На картинке DSC00024.jpg


Ребята! Умоляю помогите! Буду век благодарен!

Интересует сами программы, их результат и если возможно схемы к ним!

[Stebaslo]

Ну что, кто нибудь поможет???

[Noor]

http://pascal.hop.ru/cgi-bin/index.pl?0,7

[DM_bite]

2.

program Vektor;
const n=10;
var a:array [1..n] of integer;
    i,pr: integer;
    begin
    pr:= 1;
    for i:= 1 to n do
     begin
     ReadLn(a[i]);
     if a[i]>0 then pr:= pr*a[i]
     else
     begin
     break;
     end;
     end;
     WriteLn(pr);
     ReadLn;
     end.

[DM_bite]

1.

program Vektor;
var y: real;
    d: real;
    k: integer;
    begin
    k:= 0;
    d:= -12;
    while d<= 16 do
     begin
     d:= d+2.05;
     y:= cos(d);
     WriteLn(y);
     if y=0 then inc(k);
     end;
    WriteLn(k);
    ReadLn;
    end.

[Stebaslo]

DM_bite - большое человеческое спасибо!