Очень важно(задача на паскале для 1 курса)

[mille]

Очень важно(задача на паскале для 1 курса)

Вычислить элементы массива
где x – корни серии уравнений Аx + sini = 0, , А = 5.5.
простая программа, которую я сделал:
program project1;
{$APPTYPE CONSOLE}
uses
SysUtils, Math;
const
n=10; a=5.5;
var
y:array[1..n] of real;
i:integer;
x:real;
begin
for i:=1 to n do
begin
x:=-sin(i)/a;
if (x>0) then

y:=arccos(0.65);
if (x=0) then
y:=power(x,1/3)
else
if (x<0) then
y:=exp(x);
writeln('y[',i,']=',y:0:2);
ReadLn;
end;
end.


Эту программу нужно сделать в "приложение"
А я вообще ничего не понимаю.

 

[Alex GFDS]

Учиться надо , а не прогуливать или ...опу просиживать)

 

[Vladimir_S]

А я вообще ничего не понимаю.

Ну что ж, всё правильно, кроме, разве что, того, что шестая снизу строка ("if (x<0) then") — абсолютно лишняя. Либо можно удалить седьмую снизу — "else", но тогда в конце восьмой снизу поставить ";". Потому что шестая и седьмая (снизу) строки декларируют одно и то же.
Ну а если Вы "вообще ничего" в программировании — грустно, но помочь ничем не можем. И чего Вы от нас ждёте? На что надеетесь?

 

[mille]

Учиться надо , а не прогуливать или ...опу просиживать)

не нужно судить, ничего не зная.

 

[mille]

Ну а если Вы "вообще ничего" в программировании — грустно, но помочь ничем не можем. И чего Вы от нас ждёте? На что надеетесь?

Я жду помощи с лаб.работой и надеюсь, что смогу сдать последнюю работу в общем, ознакомительном и не профильном курсе, который длиться пол семестра.

 

[Alex GFDS]

Я жду помощи с лаб.работой и надеюсь

Вам нужна не надежда , а знания, понимание и усвоение !!!
Как вы следующий материал будете усваивать, не разобравшись в нынешнем ?

 

[mille]

Как вы следующий материал будете усваивать, не разобравшись в нынешнем ?

Мне кажется я ДОВОЛЬНО ЯСНО написала, что это ПОСЛЕДНЯЯ работа в курсе программирования(это конечно логично, но думаю лучше уточнить для некоторых, что СЛЕДУЮЩЕГО материала не будет)! И мне кажется, что так же ясно выразилась о том, что этот курс не является профильным и он мне не нужен!

 

[Vladimir_S]

Я жду помощи с лаб.работой и надеюсь, что смогу сдать последнюю работу в общем, ознакомительном и не профильном курсе, который длиться пол семестра.

Прекрасно, дорогая (?, см. P.P.S.) mille! Так всё-таки — чего Вы конкретно хотите? Вы выложили программу, я её прокомментировал, указав на одну неряшливость, и что? Вам нужны построчные объяснения, или как? Сформулируйте, пожалуйста, чётко Ваши пожелания.
P.S. Сейчас обратил внимание, что там ветвления малость перепутаны: где "if x>0" должно быть "if x=0" и наоборот.
P.P.S. Не то, чтобы важно, но всё-таки удобнее общаться с человеком, представляя себе его половую принадлежность. А у Вас то "программа, которую я сделал:", "Помогите, а то я сильно тупой" (в другой теме), то "я ДОВОЛЬНО ЯСНО написала". Уточните, пожалуйста, если можно.