27.02.2011, 23:13 | #11 (permalink) |
Sparkling
Регистрация: 29.09.2010
Сообщений: 98
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 93
|
Мною программа завершена, если хотите, выложу позднее свой вариант на ваше рассмотрение. =) |
27.02.2011, 23:13 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Поищите информативные ответы в похожих темах Ждущий режим Полноэкранный режим Спящий режим |
10.03.2011, 19:09 | #13 (permalink) |
Sparkling
Регистрация: 29.09.2010
Сообщений: 98
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 93
|
Вот конечный вариант программы - принят на ура))
Основная программа: Код:
uses crt,zad2; var i,r:integer; begin for i := 1 to 100 do begin writeln; writeln('1 - Zadacha №1, 2 - Zadacha №2, 3 - Exit'); read(r); case r of 1:begin zad11(zad2.x); end; 2:begin zad1(zad2.z); writeln; end; 3:exit; end; end; end. Код:
unit zad2; interface var i,n,s,i1,d:integer; x,z:real; p:string; a:array[1..1000] of integer; b:array[1..1000] of integer; Procedure zad1(var x:real); Procedure zad11(var x:real); implementation Procedure zad1(var x:real); begin writeln('vvedite n= '); read(n); x:=0; for i:=1 to n do x:=(-1)/(2*n+1)*n; if n mod 2 = 0 then x:=x*(-1); writeln('x=',x:8:4); end; Procedure zad11(var x:real); var y1,y2,y3,y4,n,h:real; i,x1,x2,r,q:integer; begin x:=0; writeln('vvedite x1,x2,h:'); read(x1,x2,h); writeln(' Shag Argument Otvet'); for i:=1 to 1000 do begin if(x>x2) then break; x:=x1+((i-1)*h); if(x<=0) then p:='Не определена на оси ОХ'; if(x>=0) and (x<=5) then begin p:='Принадлежит оси 0<x<5'; y1:=(3*x*x+2*x)/(2*exp(x)); y2:=(2*y1*cos(x)*cos(x)*cos(x)); z:=y1*y1+y2; z:=z+z; end; if(x>5) then begin p:='Принадлежит оси x>5'; y3:=x+x*cos(x); y4:=(y3*cos(x)*cos(x)); z:=y3*y3+y4; z:=z+z; end; if (x>x2) then writeln ('') else begin if(x<=0) then writeln(' ',x:8:2,' ',p) else writeln(' ',x:8:2,' ',p,' ',z:8:2); end; end; end; end. |
10.03.2011, 22:17 | #15 (permalink) |
Sparkling
Регистрация: 29.09.2010
Сообщений: 98
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 93
|
Сколько бы нам ни было, а жизни нам ещё учиться и учиться...
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
11.03.2011, 09:55 | #16 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|