Нужно написать программу - Паскаль, Turbo Pascal, PascalABC.NET

pahantut · 19.05.2012, 16:57

Система уравнений y=2,5x^2+2 корень из 5+a^2/2a+b, x<=1
2x+b/ корень из 10.*а+2x^2, 10<x<=20
4x+5ab, 20<x<=30
2,5abx+5, x>30

Mad_Cat · 19.05.2012, 16:58

картинкой выложи лучше

razvedos201 · 20.05.2012, 01:59

помогите с программой пожалуйста,голову сломал.....задание в ворд файле вложенном

razvedos201 · 20.05.2012, 02:00

чёт пытался..но никак
const n=9;pi=3.14; b=90;m=30;h=1;
var
r,sinmin,sinplus,x,xz,xren: real;
a,xex:integer;
begin

a:=m;
xex:=trunc((b-m)/h+1);

sinplus := sin((1+n)*(pi/2-a))/(1+n) ;
sinmin := sin((1-n)*(pi/2-a))/(1-n) ;
r := 3/pi ;
x:= 2*sin(a) ;
xz:= sin(n*(pi/2-a))/n ;

xren:=((r*sinplus) + sinmin) - (x*xz) ;
for a:= 1 to xex do

writeln (xren);
end.

19.05.2012, 16:57	#1
pahantut Регистрация: 19.05.2012 Сообщений: 5	Нужно написать программу Система уравнений y=2,5x^2+2 корень из 5+a^2/2a+b, x<=1 2x+b/ корень из 10.*а+2x^2, 10<x<=20 4x+5ab, 20<x<=30 2,5abx+5, x>30

19.05.2012, 16:58	#2
Mad_Cat Made In USSR! Старожил Регистрация: 01.09.2010 Сообщений: 3,657	картинкой выложи лучше "...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..." (c) Юрий Клинских aka "Хой"

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Нужно написать программу	III-N.	Фриланс	7	15.08.2011 20:08
Нужно написать программу	Alexxxrum	Фриланс	12	06.08.2011 20:29
нужно написать программу	ginreoo	Помощь студентам	0	11.05.2011 15:17
Нужно написать программу	Июнька	Помощь студентам	0	03.04.2011 19:15
Нужно написать программу	Rock'n'rolla	Работа с сетью в Delphi	0	25.01.2010 20:05

20.05.2012, 02:00	#4
razvedos201 Новичок Джуниор Регистрация: 20.05.2012 Сообщений: 2	чёт пытался..но никак const n=9;pi=3.14; b=90;m=30;h=1; var r,sinmin,sinplus,x,xz,xren: real; a,xex:integer; begin a:=m; xex:=trunc((b-m)/h+1); sinplus := sin((1+n)(pi/2-a))/(1+n) ; sinmin := sin((1-n)(pi/2-a))/(1-n) ; r := 3/pi ; x:= 2sin(a) ; xz:= sin(n(pi/2-a))/n ; xren:=((rsinplus) + sinmin) - (xxz) ; for a:= 1 to xex do writeln (xren); end.