VPF::Подсчет суммы вложенным циклом

PrinceMike

Дата 25.12.2006, 18:25 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 184
Регистрация: 23.11.2006
Где: Москва

Репутация: нет
Всего: 1

Код


program lab4;
uses CRT;
const z=1.873;
function a(k: integer): real;
 begin
  a:=(sqr(cos(z/k)))/(exp(k*ln(z))-(ln(k)/ln(6)));
 end;
function b(i, k: integer): real;
 begin
  b:=(exp((i-k)/2))/(exp(3*ln(z))+exp((1/3)*ln(sqr(i)+sqr(k))));
 end;
var S: real;
    i, k: integer;
begin
clrscr;
 s:=0;
 for k:=1 to 4 do
  begin
    for i:=1 to 6 do
    S:= s+a(k);
    S:=S-b(i,k);
    end;
 writeln('Result:');
 writeln('S=', S:6:2);
 writeln('Press Enter to continue...');
 readln;
end.

ZERO, проверь пожалуйста я циклы так вложил или нет?
user posted image

--------------------

Zero

Дата 25.12.2006, 19:59 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24

Цитата(PrinceMike @ 25.12.2006, 18:25

)

ZERO, проверь пожалуйста я циклы так вложил или нет?

Кхе-кхе... Тут ведь и кроме меня народу много бывает. smile

Ну да ладно, я не проверял, но чисто визуально могу сказать, тут:

Код


for i:=1 to 6 do
    S:= s+a(k);

у тебя 6 раз просумируется левая часть скобки, что помоему не совсем так, должна быть правая часть. Ну и следующая строчка соответственно тоже неправильная, грубо говоря нужно их поменять местами и чуть-чуть изменить. smile

PrinceMike

Дата 25.12.2006, 20:12 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 184
Регистрация: 23.11.2006
Где: Москва

Репутация: нет
Всего: 1

В этом и суть) ток как) напиши как правильно плиз ;)
А тебя попросил, так как наиболее понятные объяснения полчаю, а другие чет .. ну хз че делают)
я исключиельно благодаря тебе научисля паскалю юзать ;)

--------------------

Zero

Дата 25.12.2006, 20:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24

Ну по идее должно быть так:

Код


...
for k:=1 to 4 do
  begin
    S:= s+a(k);
    for i:=1 to 6 do
      S:=S-b(i,k);
  end;
...

если только в функциях нигде случайно неошибся. smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »