Программирование алгоритмов итерационной циклической структуры

@Ilishan098 · Регистрация: 07.06.2019

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

Напишите программу на Pascal ABC:

Условие: Пользуясь тем, что sin(x)=x-x^3/3!+x^5/5!-x^7/7!+... вычислить значения sin(x) для указанного значения x(0), заданного в радианах, с точностью E= 0.001. Точность вычисления считается выполненной, если последнее слагаемое в табл. (7.1) удовлетворяет условию (abs(x^2n-1/n!))<E.

Таблица (7.1)

@Puporev · 08.06.2019, 21:15

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
const e=0.001;
var x,t,s:real;
    n:integer;
begin
write('x=');
readln(x);
n:=0;
t:=x;
s:=t;
while abs(t)>e do
 begin
  n:=n+1;
  t:=-t*x*x/(2*n)/(2*n+1);
  s:=s+t;
 end;
writeln('S=',s:0:3);
write('sin(x)=',sin(x):0:3)
end.

Не понял нафига ты приложил эту фотку.

@Ilishan098 · 08.06.2019, 22:59 **[ТС]**

не работает при вводе в окне

Добавлено через 2 минуты
программа не работает!

@Puporev · 09.06.2019, 08:24

Я так понял что еще больше отупел. У меня все работает.

@Ilishan098 · 09.06.2019, 16:12 **[ТС]**

а почему все ваши программы такие короткие?

@Puporev · 09.06.2019, 16:13

Какие задачи, такие и программы.

@Ilishan098 · 09.06.2019, 16:16 **[ТС]**

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program lab_6;
const n=5;
Var mas:array[1..n,1..n] of real; sum:array[1..n] of real;
i,j:integer;
d:real;
begin
d:=0;
for i:=1 to n do
for j:=1 to n do
mas[i,j]:=cos((j-1)*pi/3);
for i:=1 to n do
sum[i]:=0;
for i:=1 to n do
for j:=1 to n do
sum[i]:=sum[i]+abs(mas[i,j]);
for i:=1 to n do
if sum[i]>d then
d:=sum[i];
for i:=1 to n do
begin
for j:=1 to n do
write(mas[i,j]:5:3, ' ');
writeln;
end.

У меня вот такие получались

@Puporev · 09.06.2019, 16:19

Интересно зачем 2 массива если нужно всего-то вычислить 1 значение?

Новые блоги и статьи Все статьи Все блоги /
«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .

@Ilishan098 0 / 0 / 0 Регистрация: 07.06.2019 Сообщений: 48

	Программирование алгоритмов итерационной циклической структуры 08.06.2019, 20:33. Показов 1402. Ответов 7 Метки нет (Все метки) Напишите программу на Pascal ABC: Условие: Пользуясь тем, что sin(x)=x-x^3/3!+x^5/5!-x^7/7!+... вычислить значения sin(x) для указанного значения x(0), заданного в радианах, с точностью E= 0.001. Точность вычисления считается выполненной, если последнее слагаемое в табл. (7.1) удовлетворяет условию (abs(x^2n-1/n!))<E. Таблица (7.1) Миниатюры 0

@Ilishan098 0 / 0 / 0 Регистрация: 07.06.2019 Сообщений: 48
	08.06.2019, 22:59 [ТС]
	не работает при вводе в окне Добавлено через 2 минуты программа не работает! 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	09.06.2019, 08:24
	Я так понял что еще больше отупел. У меня все работает. Миниатюры 0

@Ilishan098 0 / 0 / 0 Регистрация: 07.06.2019 Сообщений: 48
	09.06.2019, 16:12 [ТС]
	а почему все ваши программы такие короткие? 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	09.06.2019, 16:13
	Какие задачи, такие и программы. 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	09.06.2019, 16:19
	Интересно зачем 2 массива если нужно всего-то вычислить 1 значение? 0

Программирование алгоритмов итерационной циклической структуры

Решение