Вычислить значение выражения

@Elizar1 · Регистрация: 03.06.2014

Студворк — интернет-сервис помощи студентам

Вычислить:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?\sum_{i=1}^{100}\,\sum_{j=1}^{60}\,\sin \left(i^3+j^4 \right)$

@Don_Omare · 17.06.2014, 15:36

Pascal

uses
  crt;
 
var
  i, j: integer;
  sum: real;
 
begin
  for i := 1 to 100 do
    for j := 1 to 60 do
      sum := sum + sin(i * i * i + j * j * j * j);
  writeln('Otvet: ', sum);
  readln;     
end.

@Iriini · 17.06.2014, 15:48

uses
crt;

readln;

Зачем эти строки?

Ну, и инициализацию хорошо бы выполнить перед циклом

sum:=0;

@Cyborg Drone · 18.06.2014, 19:32

Насчёт readln не согласен. Если уже скомпилированная программа запускается в виндовс (если, конечно, программа на такое способна), окошко с программой (если не применять всяческих ухищрений) закроется сразу после writeln, и результата прочитать не удастся. При запуске из MS-DOS обычно ещё присутствует файловый менеджер, например, Norton Commander, и, чтобы увидеть результат, придётся гасить, как минимум, левую нортоновскую панель. Так что уж лучше readln написать, чтобы программа по-любому показывала результат, сколько душе угодно, а душе угодно, пока <Enter> не нажмёшь...

@Don_Omare · 18.06.2014, 19:45

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

Зачем эти строки?

Зачем да зачем. У Вас кажется цель находить у меня ошибки и недочеты. Про инициализации мы уже с Вами обсуждал Лучше оставили бы свою программу и тут выложили бы. И я и автор темы извлекли бы
больше пользы

@Iriini · 18.06.2014, 20:01

Don_Omare, я не заметила, что это снова Вы. Никоим образом не хотела вас вновь обидеть. Я только подумала, что можно число считать, как строку и вывести его длину, а вот и код готов. Если можно без преобразования типа и второй строки, то почему бы об этом не написать? Мне кажется это полезно заметить... А программ и без меня здесь много кто пишет и оперативно выкладывает.

@Elizar1 0 / 0 / 0 Регистрация: 03.06.2014 Сообщений: 12
		1
	Вычислить значение выражения 17.06.2014, 12:12. Показов 434. Ответов 5 Метки нет (Все метки) Вычислить: $https://www.cyberforum.ru/cgi-bin/latex.cgi?\sum_{i=1}^{100}\,\sum_{j=1}^{60}\,\sin \left(i^3+j^4 \right)$ 0

@Iriini 266 / 192 / 50 Регистрация: 16.06.2014 Сообщений: 424
	17.06.2014, 15:48	3
	uses crt; readln; Зачем эти строки? Ну, и инициализацию хорошо бы выполнить перед циклом sum:=0; 0

@Cyborg Drone Модератор 9597 / 4921 / 3246 Регистрация: 17.08.2012 Сообщений: 15,355
	18.06.2014, 19:32	4
	Насчёт readln не согласен. Если уже скомпилированная программа запускается в виндовс (если, конечно, программа на такое способна), окошко с программой (если не применять всяческих ухищрений) закроется сразу после writeln, и результата прочитать не удастся. При запуске из MS-DOS обычно ещё присутствует файловый менеджер, например, Norton Commander, и, чтобы увидеть результат, придётся гасить, как минимум, левую нортоновскую панель. Так что уж лучше readln написать, чтобы программа по-любому показывала результат, сколько душе угодно, а душе угодно, пока <Enter> не нажмёшь... 0

@Don_Omare 78 / 80 / 70 Регистрация: 18.12.2013 Сообщений: 211
	18.06.2014, 19:45	5
	Сообщение от Iriini Зачем эти строки? Зачем да зачем. У Вас кажется цель находить у меня ошибки и недочеты. Про инициализации мы уже с Вами обсуждал Лучше оставили бы свою программу и тут выложили бы. И я и автор темы извлекли бы больше пользы 0

@Iriini 266 / 192 / 50 Регистрация: 16.06.2014 Сообщений: 424
	18.06.2014, 20:01	6
	Don_Omare, я не заметила, что это снова Вы. Никоим образом не хотела вас вновь обидеть. Я только подумала, что можно число считать, как строку и вывести его длину, а вот и код готов. Если можно без преобразования типа и второй строки, то почему бы об этом не написать? Мне кажется это полезно заметить... А программ и без меня здесь много кто пишет и оперативно выкладывает. 0

Опции темы