Цикл с параметром, массивы, матрицы, функции, файловый тип

[Dimasik777]

Помогите пожалуйста!!! Нужно написать проги на Паскале. Буду Вам очень благодарен!!

1) По циклу с параметром
Нужно вычислить

1/1!+1/2!+...-1/10!

2) По массивам.
Даны действительные а1, ..., а18. Получить а1, а10, а2, а11, ..., а9, а18.

3 По матрицам.
Дана целочисленная квадратная матрица (Aij) размером 7х7. Получить b1, ..., b7, где bj - это значение первого по порядку положительного элемента i-той строки (если таких элементов нет, то принять bi=-1).

4) По функциям.
Найти значения острых углов прямоугольного треугольника, заданного длиной катетов.

5) По файловым типам.
Компонентами файла f являются действительные числа. Найти наибольшее из значений компонент.

[Utkin]

Что у Вас не получается?

[Stilet]

Что вот прям все все и написать?
Ты ведь знаешь что это затраты времени.

[Dimasik777]

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

Что у Вас не получается?

Я вообще в программировании ничего не понимаю. А все эти задания- задания по Самостоятельной работе студента. Завтра нужно срочно сдать, а нето пропаду.

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

Что вот прям все все и написать?
Ты ведь знаешь что это затраты времени.

Если все не получается, то хоть сколько-нибудь можете решить?

[Utkin]

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

Я вообще в программировании ничего не понимаю. А все эти задания- задания по Самостоятельной работе студента. Завтра нужно срочно сдать, а нето пропаду.

Сколько ты готов уделить на решение этих вопросов?
В смысле 2 варианта:
1. Противный и медленный - ты говоришь свои идеи и предложения, тебя тыкают носом и дают рекомендации по решению и иногда конкрентные куски кода из которых ты составляешь прогу.
2. Быстрый - платишь за работу некоторым товарищам и они с удовольствием решают за тебя, расписывают код на комментарии, дают подсказки и т.д.

ЗЫ. Я сторонник первого варианта.

[ОДИНОЧЕСТВО В СЕТИ]

1

a:=1;
  s:=0
for i:=1 to 10 do begin
a:=a/i;
s:=s+a;end;

3

for i:=1 to 7 do
begin 
b[i]:=-1;
for j:=1 to 7 do
 if a[i,j]>0 then begin b[i]:=a[i,j];break;end;
end;

5

read(f,a);
max:=a;
while not eof (f) do
begin
read(f,a);
if a>max then max:=a;
end;

4)

function ArcTan2(const Y, X: double): Extended;
asm
  FLD Y
  FLD X
  FPATAN
  FWAIT
end;
.....
ua:=arctan2(a/b,Sqrt(1 - a/b * a/b));
ub:=180-90-ua*180/pi;

4 -ая мне нравится больше всех

[Dimasik777]

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

Сколько ты готов уделить на решение этих вопросов?
В смысле 2 варианта:
1. Противный и медленный - ты говоришь свои идеи и предложения, тебя тыкают носом и дают рекомендации по решению и иногда конкрентные куски кода из которых ты составляешь прогу.
2. Быстрый - платишь за работу некоторым товарищам и они с удовольствием решают за тебя, расписывают код на комментарии, дают подсказки и т.д.

ЗЫ. Я сторонник первого варианта.

Так и знал, что помощи не дождусь.

[dr.Chas]

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

Так и знал, что помощи не дождусь.

Выдержка из правил:

4. Если пользователь создает несколько тем с просьбой сделать задание, темы автоматически будут рассматриваться как долги по сессии, курсовые работы и причислены к ряду платных услуг;

http://www.programmersforum.ru/showthread.php?t=73029