Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
0 / 0 / 0
Регистрация: 20.02.2013
Сообщений: 10
1

Вычислить длину линии вертикального разреза фигуры

09.03.2013, 11:33. Просмотров 1242. Ответов 2
Метки нет (Все метки)

Вычислить длину линии вертикального разреза фигуры

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


Вот код программы,но считает неправильно,помогите пожалуйста исправить =(

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
program variant_8;
uses CRT;
    const r=1.0;
    var y_razrez, s_right, s_left, x, u :real;
begin
   clrscr;
   write('vvedite X ot 0 do 2');
   readln(x);
      if (x=1.0)
          then begin
               y_razrez:=2.0*r;
               s_left:=2.0*(r*r-(pi*r*r)/4.0);
               s_right:=(pi*r*r)/2.0;
           end;
      if (x>1.0) and (x<=2.0)
          then begin
               y_razrez:=2.0*(sqrt(r*r-(x-1.0)*(x-1.0));
               u:=arctan(y_razrez/2.0/r);
               s_right:=2.0*((0.5 *y_razrez)(2.0-x)+0.5*r*r*(u-sin(u));
               s_left:=2.0*(r*r-pi*r*r/4.0)+pi*r*r/4.0-s_right;
          end;
      if (x>=0) and (x<1.0)
          then begin
               y_razrez:=2.0-2.0*sqrt(r*r-(x-1.0)*(x-1.0));
               u:=arctan(y_razrez/2.0/r);
               s_left:=r*r-(0.5*y_razrez)*(2.0-x)+0.5*r*r*(u-sin(u));
               s_right:=2.0*(r*r-(pi*r*r/4.0))+pi*r*r/4.0-s_right;
          end;
writeln('y_razrez= ', y_razrez:6:4);
writeln('s_left= ', s_left:6:4);
writeln('s_reght= ', s_right:6:4);
readln;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.03.2013, 11:33
Ответы с готовыми решениями:

Вычислить длину линии вертикального разреза фигуры, площади фигуры слева и справа от линии разреза
Составить алгоритм и написать код программы, вычисляющей длину линии вертикального разреза фигуры ...

Вычислить длину линии вертикального разреза фигуры
Задание: Составить алгоритм и написать код программы, вычисляющей длину линии верти-кального...

Написать код программы, вычисляющей длину линии вертикального разреза фигуры...
Составить алгоритм и написать код программы, вычисляющей длину линии вертикального разреза фигуры...

Составить алгоритм, вычисляющей длину линии вертикального разреза фигуры (найти ошибку)
При x=1 и от x 1 до 2 считает правильно, а при значениях от 0 до 1 некорректные значения. ...

2
0 / 0 / 0
Регистрация: 20.02.2013
Сообщений: 10
09.03.2013, 14:38  [ТС] 2
помогите пожалуйста,у меня ничего не получается,не знаю как исправит уже несколько дней с этой задачей мучаюсь
0
5967 / 2094 / 736
Регистрация: 10.12.2010
Сообщений: 5,914
Записей в блоге: 3
09.03.2013, 17:07 3
Приведите нормальную картинку, на которой бы было отмечено длины чего нужно вычислить. И размеры заодно. А то так непонятно.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.03.2013, 17:07

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Написать код программы, вычисляющей длину линии вертикального разреза фигуры y_razrez
Составить алгоритм и написать код программы, вычисляющей длину линии вертикального разреза фигуры ...

Составить алгоритм и написать код программы, вычисляющей длину линии вертикального разреза фигуры
помогите с программой Вот условие: Составить алгоритм и написать код программы, вычисляющей длину...

Длина линии вертикального разреза фигуры
Здравствуйте, помогите пожалуйста разобраться: Необходимо составить алгоритм и написать код...

Расчет площади слева и справа от линии разреза
необходимо рассчитать площадь слева и справа от линии разреза вот наработки (площадь считается...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.