14.01.2010, 23:13 | #1 (permalink) |
Новичок
Регистрация: 14.01.2010
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цикл в Паскале
шагами, если известно, что ан=1,3; ак=2,4; хн=0,1; хк=0,3; m=3; n=2 http://www.tehnari.ru/imagehosting/2...f6bfc356a3.jpg |
14.01.2010, 23:13 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
На нашем форуме нашлись похожие обсуждения Цикл с параметром for Цикл с условием, Паскаль Цикл с условием, Паскаль Программа в Паскале. Задачи на паскале. Вопрос про цикл |
15.01.2010, 10:24 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Пожалуйста. Только значение ан я заменил с 1.3 на 1.2 - иначе некрасиво.
Код:
CONST An=1.2; Ak=2.4; Xn=0.1; Xk=0.3; m=3; n=2; VAR x,a,Hx,Ha:REAL; i,j:INTEGER; Function Z(Xz,Az:REAL):REAL; begin If Sin(Az-Xz)>0.5 then Z:=(SQR(Sin(Xz)/Cos(Xz))+Ln(Az))/(Xz+Az) else Z:=Xz*2+SQRT(SQRT(Az))*3-Exp(Xz*5); end; BEGIN Ha:=(Ak-An)/m; Hx:=(Xk-Xn)/n; Write(' '); For j:=0 to m do Write(' a=',An+Ha*j:3:1); WriteLn; For i:=0 to n do begin Write('x=',Xn+Hx*i:3:1); For j:=0 to m do Write(Z(Xn+Hx*i,An+Ha*j):11:4); WriteLn; end; ReadLn; END. |
15.01.2010, 17:16 | #3 (permalink) |
Новичок
Регистрация: 14.01.2010
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
громадное спасибо
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|