|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
08.12.2012, 13:31 | #1 (permalink) |
Member
Регистрация: 05.12.2012
Сообщений: 27
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите с программой на паскале
Есть код, но там где-то ошибка. Проверьте пожалуйста, если не затруднит. Заранее благодарен. program opa; uses crt; var x,y,c,c1,A,B,sl,sr:real; begin write('vvedite x: '); readln(x); if (x>0) and (x<2.0) then begin if (x<1.0) then begin c:=1.0-sqrt(1.0-x*x); c1:=sqrt(1.0-(1.0-x)*(1.0-x)); A:=2.0*arctan(c/x); B:=2.0*arctan(c1/(1-x)); sl:=x+0.25*(A-sin(A))-pi/4.0+(B-sin(B)/4.0); sr:=2.0-sl; y:=c+c1; end else if (x>1.0) then begin x:=2.0-x; c:=1-sqrt(1.0-x*x); c1:=sqrt(1.0-(1.0-x)*(1.0-x)); A:=2.0*arctan(c/x); B:=2.0*arctan(c1 / (1 - x)); sr:=(x+0.25*(A-sin(A))-pi/4.0+(B-sin(B))/4.0); sl:=2.0-sr; y:=c+c1; end else begin y := 2.0; sl := 1.0; sr := 2.0 - sl; end; writeln('S_right=', sr:0:2, ' ', 'S_left=', sl:0:2, ' ', 'y=', y:0:2); end else begin if (x=0) then begin sr:=2; sl:=0; y:=0; end else if (x=2) then begin sr:=0; sl:=2; y:=0; end; if (x>2) or (x<0) then writeln('x vne znacheniy') else writeln('S_right=', sr:0:2, ' ', 'S_left=', sl:0:2, ' ', 'y=', y:0:2); end; readln; end. |
08.12.2012, 13:31 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
К вашему вниманию предлагаю аналогичные темы, прочитайте Помогите, пожалуйста, с программой на Паскале Помогите с программой на Паскале Помогите с программой Помогите с программой Помогите с программой на Паскале |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|