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

[alena-yalymova]

Здрасвтсвуйте. Пожалуйста, помогите решить четыре задачки до субботы (можно утром в воскресенье 05.04.2008 г.)
1.Вычислить значения функции и распечатать в виде таблицы y=((Xi,Yi/arccosX)+0,41(в 3 степ.)*tg(x+0,5))(вся скобка в 3 степ.) X1=-1, Xi+1+Xi=0.5, i=0.1,...,7 (Выглядит вот так)

( Xί,Yί +0.41³*tg(x+0.5))³
y= arccosX X1=-1, Xί+1=0.5, ί=0.1,…,7

2. Найти произведение ненулевых элементов в одномерном числовом массиве и напечатать.

3. Дана строка вида "число1+число2-число3". Вычислить числовое значение выражения и распечатать.

4. Задан массив из семи строк. В каждой строке "наименование товара_цена". Увеличить цены на 10%, отсортировать массив по возрастанию цен, распечатать.

Очень надуюсь на Вашу помощь. А то не охота, чтоб с пятого курса отчислили, из-за того, что я Паскаль вообще не понимаю.

[Stilet]

Найти произведение ненулевых элементов в одномерном числовом массиве и напечатать.

var a:array[1..10] of integer;i:integer;
begin
for i:=1 to 10 do a[i]:=5-random(9)
for i:=1 to 10 do
 if a[i]<>0 then writeln(a[i]:5);
end.

Дана строка вида "число1+число2-число3". Вычислить числовое значение выражения и распечатать.

var s:string;r,c,i:integer;
begin  {$o-}
   s:='12+65-99';
val(copy(s,1,pos('+',s)),i,c);
delete(s,1,pos('+',s));
r:=i;
val(copy(s,1,pos('-',s)),i,c);
delete(s,1,pos('-',s));
r:=r+i;
val(s,i,c);
r:=r-i;
Writeln(r);
end.

[alena-yalymova]

[QUOTE=Stilet;87610]

var a:array[1..10] of integer;i:integer;
begin
for i:=1 to 10 do a[i]:=5-random(9)
for i:=1 to 10 do
 if a[i]<>0 then writeln(a[i]:5);
end.

Вот в этой строке for i:=1 to 10 do он пишет, что "Error 42: error in expression". Тут чего то не хватает?

[Stilet]

for i:=1 to 10 do a[i]:=5-random(9) ;
Точку с запятой провтыкал

[alena-yalymova]

А про строку "число1+...". Ошибки он не выдает, но и открывать не хочет, хотя комплитирует, но не запускает. Что-то не прописано?

[alena-yalymova]

Сообщение от Stilet

for i:=1 to 10 do a[i]:=5-random(9) ;
Точку с запятой провтыкал

Я поставила точку с запятой, но ошибка появилась все равно.

[alena-yalymova]

for i:=1 to 10 do
А вот без этой строки все нормально, но опять не открывает программу.

[alena-yalymova]

Все получилось, только в этой программе

var s:string;r,c,i:integer;
begin  {$o-}
   s:='12+65-99';
val(copy(s,1,pos('+',s)),i,c);
delete(s,1,pos('+',s));
r:=i;
val(copy(s,1,pos('-',s)),i,c);
delete(s,1,pos('-',s));
r:=r+i;
val(s,i,c);
r:=r-i;
Writeln(r);
end.

[/QUOTE]
Ответ получается -99. А как можно сделать, чтоб числа вводить самому?

И еще, огромное спасибо, что вы удилили мне время и помогли. Вы мой спаситель.

[Stilet]

Ну не числа а строку:
предположим:

var s:string;r,c,i:integer;   
begin  {$o-}   
Write('Веедите матоперацию X+Y-Z'); readln(s);
{   s:='12+65-99';   }
...

но опять не открывает программу.

Что значит не открывает? Не открывает файл или просто результаты не показывает?

[alena-yalymova]

Сообщение от Stilet

Ну не числа а строку:
предположим:

var s:string;r,c,i:integer;   
begin  {$o-}   
Write('Веедите матоперацию X+Y-Z'); readln(s);
{   s:='12+65-99';   }
...

И все равно ответ получается -99. Сюда надо ввечти еще переменную, чтоб считались введенные пользователем числа?

Сообщение от Stilet

Что значит не открывает? Не открывает файл или просто результаты не показывает?

Уже все открывается.