Создать последовательность аi=100*sin(5/i),сохранить ее в файл округлив до сотых.Найти среднее значение

@Т@ · Регистрация: 24.12.2012

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

добрый день)))Помогите пожалуйста составить программу
Создать последовательность аi=100*sin(5/i),сохранить ее в файл округлив до сотых.Найти среднее значение решения задачи использовать циклы с постусловием и параметром.

@baquaqa · 24.12.2012, 16:20

Здравствуйте.

Pascal

program seq;
 
const
 
 N = 35;
 output = 'output.txt';
 
var
 
 fo:text;
 i:integer;
 rAi,rSumm,rMean:real;
 
Begin
{out Ai & inc summ}
 
 Assign(fo,output);rewrite(fo);
 for i:=1 to N do begin
                   rAi:=100*sin(5/i);
                   rSumm:=rSumm+rAi;
                   write(fo,rAi:0:2,' ')
                  end;
 
{ calc. & output mean }
 
 rMean:=rSumm/N;
 writeln(fo);
 writeln(fo,rMean:0:2);
 Close(fo);
 End.

@Т@ 0 / 0 / 0 Регистрация: 24.12.2012 Сообщений: 7
		1
	Создать последовательность аi=100sin(5/i),сохранить ее в файл округлив до сотых.Найти среднее значение 24.12.2012, 15:52. Показов* 1333. Ответов 1 Метки нет (Все метки) добрый день)))Помогите пожалуйста составить программу Создать последовательность аi=100*sin(5/i),сохранить ее в файл округлив до сотых.Найти среднее значение решения задачи использовать циклы с постусловием и параметром. 0

	24.12.2012, 16:20

Опции темы

Создать последовательность аi=100*sin(5/i),сохранить ее в файл округлив до сотых.Найти среднее значение

Решение