| ← Декабрь 2011 → | ||||||
|
2
|
4
|
|||||
|---|---|---|---|---|---|---|
|
5
|
6
|
7
|
8
|
11
|
||
|
12
|
13
|
14
|
16
|
17
|
||
|
21
|
22
|
23
|
24
|
25
|
||
|
26
|
27
|
29
|
30
|
|||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://prog.rusfaq.ru/pascal
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на языке Pascal
Хостинг портала RFpro.ru: РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты по данной тематике
/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Pascal (Паскаль)
Консультация # 184779: Здравствуйте! Прошу помощи в следующем вопросе: Ранее в запросе №184671 была составлен программа тему: Вычисление таблицы значений функции, заданной в виде разложения в ряд Где было необходимо составить программу вычисления таблицы значений функции, заданной в виде разложения в ряд. Значение функции вычислять с точностью e (эпсилон)>0,... Консультация # 184785: Здравствуйте! Прошу помощи в следующем вопросе: Ранее в запросе №184672 была составлена программа для транспонирования матрицы A(I,J), I ≤ 10, J ≤ 15. Суть этого вопроса в следующем: По данной программе необходимо провести: 1. Математическая формулировка задачи; 2. Численный метод решения. Здравствуйте! Прошу помощи в следующем вопросе: Код : uses crt;
const
en = 5;
var
a, b, h, x, sqrx, el, fx, e: real;
i, count: integer;
begin
clrscr;
Writeln ('Программа предназначена для вычисления таблицы значений функции, ');
writeln ('заданной в виде разложения в ряд.');
writeln;
{------------------------------------------------------------------------}
{Ввод данных}
writeln('Введите границы интервала [A,B] ( причем (A<=B) ); ');
writeln('шаг изменения аргумента H (H>0) и точность E (E>0)');
writeln;
repeat
begin
write('Введите границу интервала A = ');
readln(a);
write('Введите границу интервала B = ');
readln(b);
if not (A<=B) then writeln ('A должно быть меньше или равно B! Повторите ввод.');
end;
until (A<=B);
repeat
begin
write('Введите велечину изменения шага аргумента H = ');
readln(h);
if not (H>0) then writeln ('H должно быть больше 0! Повторите ввод.');
end;
until (H>0);
repeat
begin
write('Введите точность вычисления E (эпсион) = ');
readln(e);
if not (e>0) then writeln ('E должно быть больше 0! Повторите ввод.');
end;
until (E>0);
writeln;
{------------------------------------------------------------------------------}
{Вывод введенных значений}
writeln('Вы ввели: ');
writeln('A=',a:1:en, ' B=',b:1:en,' H=',h:1:en,' E=',e:1:en);
writeln;
{------------------------------------------------------------------------------}
{Вывод шапки таблицы}
writeln('---------------------------------------------------------------------------');
writeln('№ номер':5, ' ':3, 'X', ' ':9, 'f(X)', ' ':6, 'Номер члена ряда');
writeln('---------------------------------------------------------------------------');
{------------------------------------------------------------------------------}
{Условия для выполнения}
x := a;
count := 1;
while (x<=b) do begin
sqrx := sqr(x);
fx := 1;
i := 1;
el := 1;
repeat
el := (el/i) * sqrx;
if (abs(el) < e) then
break;
if odd(i) then
fx := fx - el
else
fx := fx + el;
inc(i);
until false;
writeln(count:5, ' ':3, x:7:en, ' ':3, fx:7, ' ':3, i);
x := x + h;
inc(count);
end;
writeln;
writeln('Готово. Для выхода нажмите любую кнопку...');
readkey;
end.Суть этого вопроса в следующем: По данной программе необходимо провести: 1. Математическая формулировка задачи; 2. Численный метод решения. Для примера выполнения могу привести следующий документ, который можно скачать по ссылке представленной ниже: Пример оформления поставленной задачи
Дата отправки: 13.12.2011, 20:09 Консультирует Andrew Kovalchuk (Профессионал): Здравствуйте, Посетитель - 386678!
Здравствуйте! Прошу помощи в следующем вопросе: Код : uses crt;
const
MaxD = 15;
MaxI = 10;
MaxJ = 15;
var
A: array[1..MaxD, 1..MaxD] of byte;
el, maxij: byte;
I, J, ii, jj: byte;
povtor: char;
label start;
begin
start:
clrscr;
writeln ('Программа предназначена для выполнения траспонирования ');
writeln ('исходной матрицы');
repeat
write ('Введите количество столбцов (I<=10): '); readln(I);
if I>10 then writeln ('I должно быть меньше или равно 10. Повторите ввод! ');
until (I<=10);
repeat
write ('Введите количество строк (J<=15): '); readln(J);
if J>15 then writeln ('J должно быть меньше или равно 15. Повторите ввод! ');
until (J<=15);
writeln('Введите элементы матрицы:');
for jj:=1 to MaxD do
for ii:=1 to MaxD do
A[ii, jj] := 0;
for jj:=1 to J do
for ii:=1 to I do begin
write('Введите ',jj,' - элемент ',ii,' - го столбца: ');
readln (A[ii,jj]);
end;
writeln('Исходная матрица:');
for jj:=1 to J do begin
for ii:=1 to I do begin
write(A[ii, jj]:5);
end;
writeln;
end;
writeln ('Транспонированная матрица:');
if (I>J) then
maxij := I
else
maxij := J;
for jj:=1 to maxij do
for ii:=jj+1 to maxij do begin
el := A[ii, jj];
A[ii, jj] := A[jj, ii];
A[jj, ii] := el;
end;
el := I;
I := J;
J := el;
for jj:=1 to J do begin
for ii:=1 to I do begin
write(A[ii, jj]:5);
end;
writeln;
end;
writeln ('Вы хотите повторить ввод? Да - клавиша "y", нет - клавиша "n" ');
repeat
readln (povtor);
if povtor ='n' then
begin
writeln('Готово. Для выхода нажмите любую кнопку...');
readkey;
end
else if povtor ='y' then goto start;
until (povtor='n')or(povtor='y');
end.Пример оформления похож на примеры в запросах №184779 и №184777 Гарантирую как минимум 100 рублей как материальное вознаграждение за ответы. Сроки поджимают... Пожалуйста помогите с вопросами... Жду ваших ответов.
Дата отправки: 13.12.2011, 23:18 Консультирует Andrew Kovalchuk (Профессионал): Здравствуйте, Посетитель - 386678!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
© 2001-2011, Портал RFPRO.RU, Россия
Авторское право: ООО "Мастер-Эксперт Про" Калашников О.А. | Гладенюк А.Г. Хостинг: Компания "Московский хостер" Версия системы: 2011.6.33 от 10.09.2011 |
| В избранное | ||
