|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.05.2013, 09:13 | #1 |
Новичок
Джуниор
Регистрация: 29.05.2013
Сообщений: 2
|
перевести код с Паскаля на С++
Вычислить бесконечную сумму с заданной точностью
program p119; uses Crt; {------------область переменных---------------} var eps: real; i: byte; {*******ввод информации********} procedure VvodInfo; begin write('введите точность вычисления '); readln(eps); end; {*******Значение функции*********} procedure Func; var s4et4ik, fact: integer; tmp_1, tmp_2: real; vr: real; begin tmp_1:=-1; tmp_2:=-0.5; i:=2; fact:=2; while eps <= abs(tmp_1-tmp_2) do begin tmp_1:=tmp_2; inc(i); fact:=fact*i; vr:=1/fact; if i mod 2 = 1 then vr:=-fact; tmp_2:=tmp_2+vr; end; writeln('значение функции ', tmp_2:5:2); end; {*******начало основной программы*******} begin ClrScr; VvodInfo; Func; ReadKey; end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перевести код с Паскаля на Си | majuw | Помощь студентам | 0 | 20.04.2013 13:50 |
Перевести код из Паскаля в С++. | cristianoman | Помощь студентам | 4 | 26.03.2013 00:15 |
Перевести код из паскаля на делфи с формами | Миледи | Помощь студентам | 2 | 18.04.2012 09:59 |