Это делается очень просто.
Для начала открываем IDE для Паскаля - ту, к которой вы привыкли.
Смотрим, есть задача. По ней нужно составить алгоритм, чтобы закодировать его. В формулировке данной задачи алгоритм фактически присутствует.
Первым шагом нужно считать число. Readln.
Цикл пока переменная имеет какое-то значение Repeat..Until или While.
Если число четное, то одно действие, а если нечетное, то другое. If, := и оператор mod наши друзья.
Ну и результат надо вывести. Writeln.
Все, программа готова.
Правильным ответом на вопрос: "Что не является элементом окна программа?" является ответ под вариантом Д, т.е. ПАНЕЛЬ ЗАДАЧ.
А вот наглядный пройденный тест, на который я ответила неверно, выбрав ответ А. Придется пересдавать.
Сумму бесконечного ряда можно вычислить только приближенно (с определенной степенью точности).
е - точность
slag - текущее слагаемое
s - сумма
var
i:integer;
e,s,slag:real;
begin
write('Введите точность вычислений: ');
readln(e);
s:=0;
slag:=1/3;
i:=1;
while slag>=e do
begin
i:=i+1;
slag:=1/(i*(i+2));
s:=s+slag;
end;
writeln('Сумма=',s);
end.
Входные данные значение угла альфа в переменную alfa
Выходные данные значение z1 и z2
Начало;
запрос Значения угла альфа;
вычисление функции z1=1-1/4*sin(alfa)^2<wbr />;
вычисление функции z2=cos(alfa)^2+sin(a<wbr />lfa)^2;
вывод значения функции z1;
вывод значения функции z2;
Конец;
БЛОК-СХЕМА
Пример :входные данные угол=0.261799388
Пример выдачи результатов:
0.261799388
Z1=1.803525404
Z2=0.9375
входные данные угол=0.523598776
Пример выдачи результатов:
0.523598776
Z1= 1.3125
Z2= 0.8125