Навигация
Схема алгоритма процедуры Table_begin
29508
знаков
17
таблиц
11
изображений
2.5.1 Схема алгоритма процедуры Table_begin
 | |||||||
 | |||||||
 |  | ||||||
 | |||||||
¦Номер¦ X ¦ f(x) ¦ Номер члена ряда ¦
| |||||
 | |||||
 | |||||
 | |||||
 | |||||
2.5.2 Схема алгоритма процедуры Table_end
 | |||||
| |||||
 | |||||
 | |||||
 | |||||
2.6 Текст программы.
Program kkr1_2;
procedure Table_begin;
begin
writeln(' ----------------------------------------------------------------------------------');
writeln(' ¦Номер¦ X ¦ f(x) ¦ Номер члена ряда ¦');
writeln(' ----------------------------------------------------------------------------------');
end;
procedure Table_end;
begin
writeln(' ----------------------------------------------------------------------------------');
end;
var
K,number:integer;
A,B,H,E,X,y,f:real;
begin
Writeln ('Программа предназначена для вычисления таблицы значений функции, ');
writeln ('заданной в виде разложения в ряд.');
Writeln;
{------------------------------------------------------------------------}
{Ввод данных}
writeln('Введите границы интервала [A,B] ( причем (A<B) ); точность E (E>0)');
writeln('и шаг изменения аргумента H (H>0)');
writeln;
repeat
begin
writeln('Начало интервала A: '); readln(A);
writeln('Конец интервала B: '); readln(B);
if not (A<B) then writeln ('A должно быть меньше B !. Повторите ввод.');
end;
until (A<B);
repeat
begin
writeln('Точность E: '); readln(E);
if not (E>0) then writeln ('E должно быть больше 0 !. Повторите ввод.');
end;
until (E>0);
repeat
begin
writeln('Шаг H: ');readln(H);
if not (H>0) then writeln ('H должно быть больше 0 !. Повторите ввод.');
end;
until (H>0);
{------------------------------------------------------------------------}
writeln('Вы ввели: ');
writeln('A=',A:1:5, ' B=',B:1:5,' H=',H:1:5,' E=',E:1:5);
writeln;
{------------------------------------------------------------------------}
X:=A;
number:=0;
Table_begin;
repeat
k:=0;
y:=(cos(2*x))/3;
f:=0;
inc(number);
repeat
inc(k);
y:=y*cos(2*(k+1)*x)*(2*k-1)/((2*k+3)*cos(2*k*x));
f:=f+y;
until (abs(y)<E);
if (number mod 18)=0 then
begin
Table_end;
Table_begin;
end;
writeln(' ¦',number:5,'¦', X:20:13,' ¦ ',(4/Pi)*(0.5-f):16:13, ' ¦ ' ,k:7,' ¦');
X:=X+H;
until not (X<B);
Table_end;
end.
Похожие работы
... условий взаимной уравновешенности системы сил является одной из основных задач статики. На основе изложенной в первой главе курсовой работы алгоритм конструкции языка программирования Паскаль составим и решим ряд задач по прикладной механике. Сформулируем задачу по статике первому разделу прикладной механики. Задача. Найти центр тяжести тонкого круглого однородного стержня изогнутого по дуге ...
... в профессиональном программировании. Широкой популярностью Паскаля среди программистов способствовали следующие причины: - Благодаря своей компактности, удачному первоначальному описанию Паскаль оказался достаточно лёгким для обучения. - Язык программирования Паскаль . Отображает фундаментальные и наиболее важные концепции (идеи) алгоритмов в очевидной и легко воспринимаемой форме, что ...
... 3. Для функционирования программы необходима операционная система MS DOS 3.30 и выше или полностью совместимой с ней. Исходный текст программы написан на языке программирования высокого уровня Турбо Паскаль версии 7.0 фирмы Borland для DOS и WINDOWS с применением библиотеки Turbo Vision и содержится в файле notebook.pas в форме пригодной к использованию его как текстового документа в среде ДОС, и ...
... времени на возню с файлами на дисках или ожидание ввода, не смогут продемонстрировать какое-то впечатляющее увеличение скорости. 2. КЛАССИФИКАЦИЯ ЯЗЫКОВ ПРОГРАММИРОВАНИЯ 2.1. Машинно – ориентированные языки Машинно – ориентированные языки – это языки, наборы операторов и изобразительные средства которых существенно зависят от особенностей ЭВМ (внутреннего языка, структуры памяти и ...
0 комментариев