Форум
» Назад на решение задач по физике и термеху
Регистрация | Профиль | Войти | Забытый пароль | Присутствующие | Справка | Поиск

» Добро пожаловать, Гость: Войти | Регистрация
    Форум
    Информационные технологии
        Турбо Паскаль. Программирование на Pascal
Отметить все сообщения как прочитанные   [ Помощь ]
» Добро пожаловать на форум "Информационные технологии" «

Переход к теме
<< Назад Вперед >>
Несколько страниц [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 ]
Модераторы: paradise, KMA
  

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)

-----
Gentoo, FreeBSD 7.2, PHP, JavaScript (jQuery), Python, Shell
Помогаю с задачами только на форуме.
Все мои действия четко согласуются с правилами раздела. Поэтому никаких претензий и обид.

Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 3 окт. 2006 19:18 | IP
bekas


Долгожитель

"после запятой" -  может быть после двоеточия?

-----
Из Северодонецка

Всего сообщений: 379 | Присоединился: январь 2006 | Отправлено: 3 окт. 2006 23:02 | IP
KMA



Долгожитель

Ну да, опечатался, спасибо.

-----
Gentoo, FreeBSD 7.2, PHP, JavaScript (jQuery), Python, Shell
Помогаю с задачами только на форуме.
Все мои действия четко согласуются с правилами раздела. Поэтому никаких претензий и обид.

Всего сообщений: 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

Эта тема закрыта, новые ответы не принимаются

Переход к теме
<< Назад Вперед >>
Несколько страниц [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 ]

Форум работает на скрипте © Ikonboard.com