19.03.2013, 22:04 | #1 (permalink) |
Member
Регистрация: 19.03.2013
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: -131
|
Разработка программы с использованием процедур и функций
|
19.03.2013, 22:04 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Посоветую уделить немного времени прочтению схожих постов Из данной программы сделать программу с использованием процедур и функций Из данных программ сделать программы с использованием процедур и функций Решение двумерных массивов с помощью процедур и функций |
20.03.2013, 09:52 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Const Xmin=11.0; Xmax=13.0; Dx=0.2; Var x,a,b,c:Real; i,N:Byte; Function Y(P,Q,R,z:real):real; begin Y:=P*Exp(z)+Q*Sin(R*z); end; Begin Write('a= '); Readln(a); Write('b= '); Readln(b); Write('c= '); Readln(c); N:=Round((Xmax-Xmin)/Dx); For i:=0 to N do begin x:=Xmin+Dx*i; Writeln(x:3:1,Y(a,b,c,x):15:3); end; Readln End. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|