|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
19.11.2011, 13:39 | #1 (permalink) |
Member
Регистрация: 10.11.2011
Сообщений: 65
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 9
|
Табулирование функций
program lab1 real a,b,h,x,y integer i,N open(10,file='lab1.txt') a=0 b=(2./3.)*(3.141593) N=31 h=(b-a)/(N-1) do i=1,N x=a+(i-1)*h y=abs(cos(3*x)) print*,x,y write(10,*)x,y end do end |
19.11.2011, 13:39 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Это созданные ранее темы - обязательно прочитайте Табулирование функции, полярные координаты DElphi массивы и табулирование |
19.11.2011, 14:02 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Слушайте, сударь - ну что Вы вцепились, как бульдог, в это N=31? Что за магическое число такое? У Вас явно просто шаг грубоват - ну так увеличьте своё N хоть до 200, и посмотрите, что будет.
Кстати, что за глупость, причем повторяемая во всех программах: N=31 h=(b-a)/(N-1) ??? Почему бы не N=30 h=(b-a)/N ? |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|