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

@Jeremy_Bentam · Регистрация: 24.03.2010

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

@Жека-старший · 28.03.2010, 17:54

Pascal

program pr1;
var k,n:byte; s,x:real;
begin
  writeln('Введите n');
  readln(n);
  writeln('Введите x');
  readln(x);
  s:=0;
  for k:=1 to n do
  s:=s+sin(k*x)/sqr(k);
  writeln('S= ',s:10:5);
end.

Добавлено через 15 минут

Pascal

program pr1;
var k,n:byte; s,x:real;
begin
  writeln('Введите n');
  readln(n);
  writeln('Введите x');
  readln(x);
  s:=0;
  for k:=1 to n do
  s:=s+sin(k*x)/sqr(k);
  for k:=1 to 45 do
  write('_');
  writeln;
  writeln('| Сумма ряда','| Значение N':13,'| Исходный данные   |');
  for k:=1 to 45 do
  write('_');
  writeln;
  writeln('|  ',s:7:3,'|':4,n:5,'|':7,'x=':4,x:8:3,'|':8);
  for k:=1 to 45 do
  write('_');
  writeln;
end.

вот верный
картинку не рассмотрел)

@Jeremy_Bentam · 28.03.2010, 18:06 **[ТС]**

да, спасибо, я уже сам исправил

@Жека-старший · 28.03.2010, 18:24

пожалуйста)

@Jeremy_Bentam 5 / 0 / 2 Регистрация: 24.03.2010 Сообщений: 18
		1
	Составьте программу, реализующую алгоритм вычисления суммы данного ряда. Записать результат работы программы при заданн 28.03.2010, 17:29. Показов 1990. Ответов 3 Метки нет (Все метки) Составьте программу, реализующую алгоритм вычисления суммы данного ряда. Записать результат работы программы при заданном значении аргумента 0

@Jeremy_Bentam 5 / 0 / 2 Регистрация: 24.03.2010 Сообщений: 18
	28.03.2010, 18:06 [ТС]	3
	да, спасибо, я уже сам исправил 0

@Жека-старший Студент 498 / 344 / 162 Регистрация: 15.03.2010 Сообщений: 601
	28.03.2010, 18:24	4
	пожалуйста) 0

Опции темы