Массивы

[Seeeeema357]

Ребята, помогите, пожалуйста написать программу. На картинке 5й вариант. Сильно надо, а в массивах не разбираюсь. Буду очень благодарен.

[Rififi]

Seeeeema357

... Буду очень благодарен.

"очень" - это как-то совсем неопределенно.
озвучь размер благодарности и способ получения (Qiwi, WebMoney, PayPal, ...)

[Vanta11a]

Вот жеж хрень (у меня нет другого слова для этой "постановки" задачи).
Лучше бы файл залил на какой-нибудь гуглодокс и дал доступ.

Присоединюсь к предыдущему оратору, "очень"-это как? Вы будете сторублевоблагодарны, двухсотрублево благодарны или ... ?

[Seeeeema357]

https://drive.google.com/file/d/0BxF...it?usp=sharing Я буду сторублёво благодарен. Спасибо передаст Qiwi.

[Vanta11a]

3 задачи + 3 блок-схемы.
Время выполнения одной задачи: ну пусть 10 минут. Время выполнения блок-схемы - тоже 10 минут.
Итого суммарное затрачиваемое время: 1 час, который у меня стоит ~250 рублей.
Вывод: сторублевая благодарность пока что не интересна, но есть предложение:
Вы (автор) читаете соседние темы, и пусть даже методом копипаста обеспечиваете решение задач, а я Вам помогаю консультациями и разжевыванием. Бесплатно. Единственное условие - отсутствие вопросов, которые гуглятся, например "Что такое readln?". Принимаются вопросы вида: "Как работает алгоритм?", "Что в нем изменить?" и т.п.
Сумеете сами решить задачи - блок-схемы по Вашему коду нарисую бесплатно.

[Seeeeema357]

Т.е выполнение вами всех этих задач для студента 1го курса будет стоить 250 рублей? Верно?

[Seeeeema357]

Нужно написать программу на языке Pasacl(желательно ABC.net) От меня 100-150 рублёвая благодарность через QIWI. https://drive.google.com/file/d/0BxF...it?usp=sharing (5й вариант Задача номер 1)

[Mad_Cat]

var
  x, y: integer;
  i, j: integer;
  lnx: array[1..10, 1..10] of real;

begin
  write('x=');readln(x);  
  write('y=');readln(y);
  i := 1;
  while i <= x do 
  begin
    j := 1;
    repeat
      if odd(j) then lnx[i, j] := (1 + j / i / i) / 2 * arctan(j / i)
      else lnx[i, j] := -(1 / (2 * j + 1) / (i + 1)) + ln(abs(sin(i / j)));
      inc(j);
    until(j > y);
    inc(i);
  end;
  for i := 1 to x do
  begin
    for j := 1 to y do
      write(lnx[i, j]:6:3, ' ');
    writeln;
  end;
end.

x=8
y=3
0.785 -0.835 2.498
0.290 -0.239 0.860
0.179 -0.053 0.524
0.130 -0.135 0.382
0.103 -0.547 0.303
0.085 -1.987 0.251
0.072 -1.073 0.215
0.063 -0.301 0.188

http://s020.radikal.ru/i719/1310/18/d58a92931359.png
и зачем тут три проги хз! кошелек в подписи - с киви на вм норм переводится

[Vanta11a]

Мне почему-то показалось, что нужно сделать 3 программы, с циклами while, for и repeat отдельно. Ну да ладно.

[Seeeeema357]

Спасибо за помощь!) Только что заметил, завтра скажу спасибо на qiwi)