amigo
Начинающий
|
    
Смотри на своём ящике.
|
Всего сообщений: 54 | Присоединился: март 2006 | Отправлено: 2 окт. 2006 22:41 | IP
|
|
coolusa
Удален
|
РЕШИТЕ ЕЩЕ ПЛИЗ)))
Составить программу расчета таблицы значений F(x)на интервале a<=x<=b в n равностоящих точках.Границы интервалла a,b и количество точек nввести с клавы)Результаты ввывести на печать!f(x)=cos(4*pi*x)/(1+x*x)
Найдите сумму вычмсленных значений ф-ции f(x),дробная часть которых > 0.5
ЗАРАНИЕ СПАСИБОЧКИ))
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 3 окт. 2006 9:04 | IP
|
|
amigo
Начинающий
|
Program Work1;
Uses crt;
Var
a,b,h,t,y,s:real;
I,n:integer;
Function F(x:real):real;
Begin
F:=cos(4*pi*x)/(1+x*x);
End;
BEGIN
Clrscr;
Write(‘Введите левый конец интервала a=’);
Readln(a);
Write(‘Введите правый конец интервала b=’);
Readln(b);
Write(‘Введите количество точек n=’);
Readln(n);
T:=a;
H:=abs((a-b)/n);
S:=0;
For I:=1 to n do begin
Y:=F(t);
Write(t:40);
Writeln(Y);
y:=y-trunc(y);
If y>0.5 then s:=s+y;
T:=t+h;
End;
Write(‘Сумма значений равна S=’,S);
Readln;
END.
Не внимательно прочитал задачу.
Изменения внёс.(c учётом замечания KMA)
(Сообщение отредактировал amigo 3 окт. 2006 23:10)
|
Всего сообщений: 54 | Присоединился: март 2006 | Отправлено: 3 окт. 2006 17:33 | IP
|
|
KMA 
Долгожитель
|
 
на будующее
Write(t,’ ‘);
Writeln(Y,’ ‘);
лучше заменить на
write (t:40);
writeLn (y);
Где цифры после двоеточия обозначают количество знаков отведенных под данное число (если оно будет меньше, то все остальные окажутся пробелами).
Данная запись удобнее читается и не требует подсчета пробелов. 
(Сообщение отредактировал KMA 4 окт. 2006 17:43)
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 3 окт. 2006 19:18 | IP
|
|
bekas
Долгожитель
|
"после запятой" - может быть после двоеточия?
|
Всего сообщений: 379 | Присоединился: январь 2006 | Отправлено: 3 окт. 2006 23:02 | IP
|
|
KMA
Долгожитель
|
Ну да, опечатался, спасибо.
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 4 окт. 2006 17:42 | IP
|
|
amigo
Начинающий
|
Существуют ли какие-нибудь скоростные алгоритмы
позволяющие найти, все перестановки симметрической
группы?
|
Всего сообщений: 54 | Присоединился: март 2006 | Отправлено: 6 окт. 2006 12:14 | IP
|
|
Kron
Новичок
|
Добрый вечер.
Подскажите алгоритм построения равносторонего треугольника. C || Pascal.
|
Всего сообщений: 37 | Присоединился: октябрь 2006 | Отправлено: 7 окт. 2006 23:39 | IP
|
|
amigo
Начинающий
|
Пусть сторона треугольника равна A.
По разные стороны оси X отложим отрезки длиной B=A/2.
Ось Y проведём через середину отрезка А.
Ввиду того, что медиана в равностороннем треугольнике
является биссектрисой и высотой, то она равна:
M=A*sin(60).
Поэтому отложив на оси Y значение M, мы найдём
координаты третьей точки. Соеденяя все точки строим треугольник.
Таким образом мы имеем следующую зависимость вершин
треугольника от координат:
A1=(-B+c,d)
A2=(B+c,d)
A3=(c,d+M)
где (с,d)- точка начала координат.
|
Всего сообщений: 54 | Присоединился: март 2006 | Отправлено: 8 окт. 2006 11:23 | IP
|
|
Kron
Новичок
|
sin(60) величина вещественная.
В виду этого получается координаты с нецелым значением пикселов. Что недопустимо.
|
Всего сообщений: 37 | Присоединился: октябрь 2006 | Отправлено: 8 окт. 2006 17:47 | IP
|
|
Форум
Турбо Паскаль. Программирование на Pascal
