Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Sergey12312
0 / 0 / 0
Регистрация: 24.10.2013
Сообщений: 26
#1

На примере данной программы написать противоположную - Pascal ABC

24.12.2013, 23:12. Просмотров 200. Ответов 3
Метки нет (Все метки)

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
25
26
27
28
program prog;
var
x,a,b:real;
c,i,n,k,m,f:integer;
begin
writeln('Введите число X ');
readln(x);
writeln('Введите целое число N ');
readln(n);
a:=0;
b:=1;
c:=1;
k:=1;
m:=(2*n)-1;
for i:=1 to m do
begin                                
b:=b*x;
c:=c*i;
if i mod 2=0 then
a:=(a+0)
else
begin
a:=a+k*b/c;
k:=-1*k;
end;
end;
writeln('Результат вычислений = ',a);
end.
Данная программа выдает синус числа введенного в радианах.
Мне нужно что бы данная программа выводила синус.
P.s нельзя использовать простой код writeLn (cos(x)).

Добавлено через 11 минут
Использовать цикл с параметром
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.12.2013, 23:12
Я подобрал для вас темы с готовыми решениями и ответами на вопрос На примере данной программы написать противоположную (Pascal ABC):

Нужно написать простую программу на примере интеллектуальной системы
Здраствуйте! Помогите пожалуйста чем сможете! Срочно нужно разработать любую...

Построена корона с использованием процедур. Пожалуйста отредактируйте её, под вид программы в примере
uses graphABC; procedure Fig(x1,y1,x2,y2,x3,y3,r,c,k:integer); begin...

Пожалуйста посмотри в чем ошибка данной программы...
мне было задано разработать программы решение нелинейных уравнений методом...

составить блок схему для данной программы
uses crt; const n=5; var a:array of integer; i,j:byte; s:integer;...

Шифрование. написать расшифровку к данной программе
Здравствуйте, написал программу, как шифровать разобрался, а вот как...

Написать программу для расчета данной функций
pascal. написать программу для расчета данной функций ...

3
Puporev
Модератор
54146 / 41779 / 28885
Регистрация: 18.05.2008
Сообщений: 98,327
25.12.2013, 07:59 #2
Что-то очень запутанная программа. Вот программы синуса и косинуса через разложение в ряд Тейлора
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
25
uses crt;
var x,t,s:real;
    n,i:integer;
begin
write('Ââåäèòå ÷èñëî X=');
read(x);
write('Ââåäèòå öåëîå ÷èñëî N=');
read(n);
t:=x;
s:=t;
for i:=2 to n do
 begin
  t:=-t*x*x/((2*i-2)*(2*i-1));
  s:=s+t
 end;
writeln('sinx=',s:0:4);
s:=1;
t:=1;
for i:=1 to n do
 begin
  t:=-t*x*x/(2*i*(2*i-1));
  s:=s+t;
 end;
writeln('cosx=',s:0:4);
end.
0
Sergey12312
0 / 0 / 0
Регистрация: 24.10.2013
Сообщений: 26
25.12.2013, 10:48  [ТС] #3
Puporev, как нам сказали - на этой программе работает sin(x) и cos(x)
0
Puporev
Модератор
54146 / 41779 / 28885
Регистрация: 18.05.2008
Сообщений: 98,327
25.12.2013, 10:58 #4
Ну так разбей это на 2 программы
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.12.2013, 10:58
Привет! Вот еще темы с решениями:

Определить, что будет выведено после выполнения данной программы
какой тут ответ будет? begin k:=0; for i:=1 to N do for j:=N-i+1...

Что будет выведено на экран, после выполнения данной программы:
Что будет выведено на экран, после выполнения данной программы: 1) a=8, n=5...

Определить наибольшее значение переменной s после выполнения данной программы
1983 В программе описан одномерный целочисленный массив с индексами от 0 до...

Как вывести результаты работы программы в текстовый файл в данной программе?
Разработать программу на языке Pascal. Заданный метод должен быть реализован в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru