Технический форум

Технический форум (http://www.tehnari.ru/)
-   Помощь студентам (http://www.tehnari.ru/f41/)
-   -   Паскаль. Задача о цилиндрической детали. (http://www.tehnari.ru/f41/t37228/)

Serjant0007 21.06.2010 17:32

Паскаль. Задача о цилиндрической детали.
 
Цилиндрическая деталь должна иметь длину LO и диаметр DO. Допуски равны соответственно XL и XD. Определить одовлетворяет ли норме изготовленная деталь. Помогите хотя бы с условием. Я думаю что такое условие??? Мой вариант: If (LO+Xl)>L {длина изготовителя} then Writeln('не удовл') Else If (DO+XD)>D {диаметр изготовителя} then Writeln('не удовл') Else If (LO+XL)<L then Writeln('не удовл')
Else If (DO+XD)<D then Writeln('не удовл') Else If (LO-XL)>L then Writeln('не удовл')
Else If (DO-XD)>D then Writeln('не удовл') Else If (LO-XL)<L then Writeln('не удовл')
Else If (DO-XD)<D then Writeln('не удовл') Else Writeln('удовл')

Vladimir_S 21.06.2010 20:28

Цитата:

Сообщение от Serjant0007 (Сообщение 350331)
Цилиндрическая деталь должна иметь длину LO и диаметр DO. Допуски равны соответственно XL и XD. Определить одовлетворяет ли норме изготовленная деталь. Помогите хотя бы с условием. Я думаю что такое условие??? Мой вариант: If (LO+Xl)>L {длина изготовителя} then Writeln('не удовл') Else If (DO+XD)>D {диаметр изготовителя} then Writeln('не удовл') Else If (LO+XL)<L then Writeln('не удовл')
Else If (DO+XD)<D then Writeln('не удовл') Else If (LO-XL)>L then Writeln('не удовл')
Else If (DO-XD)>D then Writeln('не удовл') Else If (LO-XL)<L then Writeln('не удовл')
Else If (DO-XD)<D then Writeln('не удовл') Else Writeln('удовл')

Очень долго и скучно. Я бы поставил условие так:

Код:

If (L>L0+XL) OR (L<L0-XL) OR (D>D0+XD) OR (D<D0-XD) then
 Writeln('не удовл')
Else
 Writeln('удовл');

То есть "Не удовлетворяет", если реальная длина детали хотя бы по одному из двух параметров выходит из допусков.
P.S. И одна модераторская реплика:
Не цепляйтесь к чужим, тем более старым, темам! Создавайте свои.

Serjant0007 21.06.2010 21:14

Спасибо большое))) Тема закрыта))


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

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.