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

ещё одна блок-схема

12.12.2012, 16:01. Просмотров 210. Ответов 0
Метки нет (Все метки)

uses crt;
const eps=0.0001;
var x_nach,x_kon,x,s,delta_x,t:real;
n:integer;
begin
clrscr;
write('Введите начало интервала x_nach<-1 x_nach=');
readln(x_nach);
repeat
write('Введите конец интервала, больше ',x_nach:0:1,' x_kon=');
readln(x_kon);
until x_kon>x_nach;
repeat
write('Введите шаг табуляции, меньше ',x_kon-x_nach:0:1,' delta_x=');
readln(delta_x);
until delta_x<x_kon-x_nach;
clrscr;
x:=x_nach;
writeln(' Табулирование функции F(x)=e^-x,');
writeln(' представленной разложением в степенной ряд');
writeln(' на интервале ',x_nach:0:1,'..',x_kon:0:1,' с шагом ',delta_x:0:1);
writeln;
writeln(' -----------------------------------');
writeln(' | X | S | e^-x | n | ');
writeln(' -----------------------------------');
while x<=x_kon+delta_x/2 do
begin
n:=0;
t:=1;{текущий член ряда x^n/n!}
s:=t;{сумма}
while abs(t)>=eps do
begin
n:=n+1;
t:=-t*x/n;
s:=s+t;
end;
writeln(' |',x:6:1,' |',s:8:4,' |',exp(-x):8:4,' | ',n:4,'|');
x:=x+delta_x;
end;
writeln(' -----------------------------------');
readln
end.

Добавлено через 2 часа 40 минут
ещё одна блок-схема
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.12.2012, 16:01
Ответы с готовыми решениями:

ещё одна графика
Вот ещё одна задача. Нарисовать раскачивающийся маятник, который со временем...

Какими ещё способами можно ещё сделать?
Задание: Известно, что: 1 в третей степени будет=1 2 в третей степени...

Выяснить, имеется ли у него одна самая короткая строка или таких строк несколько. Вывести одна или не одна.
дaн текстовый файл с произвольным именем. Выяснить, имеется ли у него одна...

Блок-схема
uses crt; var f,g,p:file of real; r:real; c:char; begin clrscr;...

блок схема
помогите пожалуйста составить блок схему к проге: ...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.12.2012, 16:01

Блок схема
Нужна блок схема на этот код program mas; uses crt; var a:array of integer;...

Блок-схема
составить блок-схему к программе Program Massiv2; сonst n=10; var a:...

блок-схема!!!
program p24; uses crt; type mas=array of real; procedure readMas(var...


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

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

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