Пожалуйста помогите решить задачи на Массивы, текстовые данные и оператор цикла

[alena-yalymova]

А не подскажите, можно как-нибудь из блокнота вПаскаль перенести? А тоя печать уже замучалась.

[alena-yalymova]

Rusl92 Все твою задачу посмотрела, но там данные вводятся не типа "товар_цена", а просто цена. И вычисления не правильное - не на 10% увеличивается.

[Xardas]

Сообщение от alena-yalymova

А не подскажите, можно как-нибудь из блокнота вПаскаль перенести? А тоя печать уже замучалась.

Открыть -> Указываешь *.txt -> Ищешь файл и открываешь его

[puporev]

Не понимаю, почему у вас моя четвертая программа не работает, у меня все нормально.
Если я правильно понял формулу, а также то, что интервал вычислений [-1,7]и шаг вычислений 0,5, то вот рабочий и проверенный код. Если я где-то не прав, это легко поправить.
Прикладываю код первой программы, а также сами программы к задвчам №№1,4.

Program ZAD1;
uses crt;
const h=0.5;
var y,x,cs,sn,tn:real; //cos,sin,tg
i:integer;
begin
clrscr;
x:=-1;i:=1;  //начальные значения
while x<=7 do
begin
cs:=0.41*0.41*0.41*sqr(sin(x+0.5)/cos(x+0.5))*(sin(x+0.5)/cos(x+0.5));
if cs=0 then  //если косинус=0, то arccos=pi/2
writeln('x',i,'=',x:5:1,' y':5,i,'=',(pi/2):7:4)
else if (cs>1)or(cs<-1) then  //если |косинус|>1 то угла не существует
writeln('x',i,'=',x:5:1,' y':5,i,' ne opredelen')
else begin
sn:=sqrt(1-sqr(cs));//вычисляем синус
tn:=sn/cs;             //вычисляем тангенс
y:=arctan(tn);    //вычисляем Y, т.к. функции arccos в Паскале нет
writeln ('x',i,'=',x:5:1,'y':5,i,'=',y:7:4);
end;
x:=x+h;   //увеличиваем значение х
i:=i+1;   //переходим к следующему числу
end;
readln
end.

[alena-yalymova]

Спасибо Всем, огромное, за решение всех задач. Вы мои спасители!

[alena-yalymova]

Мне сегодня задали (так же до утра воскресенья) еще 4 задачки по типу тех на Оператор цикла и массивы.
Можете еще разик помочь?
Задачки во вложение в формате документа в Word.
Очень надеюсь на Вашу помощь.