Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 08.12.2012, 13:31   #1 (permalink)
Kampuchiec
Member
 
Регистрация: 05.12.2012
Сообщений: 27
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите с программой на паскале

Составить алгоритм и написать код программы, вычисляющей длину линии вертикального разреза фигуры y_razrez, значения площадей фигуры слева и справа от линии разреза s_left, s_right, по значениям аргумента x, введенным с консоли:
Есть код, но там где-то ошибка. Проверьте пожалуйста, если не затруднит. Заранее благодарен.

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.
Миниатюры
2012-10-30_155329.png  
Kampuchiec вне форума   Ответить с цитированием

Старый 08.12.2012, 13:31
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

К вашему вниманию предлагаю аналогичные темы, прочитайте

Помогите, пожалуйста, с программой на Паскале
Помогите с программой на Паскале
Помогите с программой
Помогите с программой
Помогите с программой на Паскале

Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 03:17.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.