Serjant0007 |
Помогите решить есть наработки Паскаль 21.06.2010, 15:33 |
|
21/06/10 6
|
Цилиндрическая деталь должна иметь длину 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('удовл')
|
|
|
|
|
Serjant0007 |
Re: Помогите решить есть наработки Паскаль 21.06.2010, 19:11 |
|
21/06/10 6
|
Все решил If (L>L0+XL) OR (L<L0-XL) OR (D>D0+XD) OR (D<D0-XD) then Writeln('не удовл') Else Writeln('удовл');
Тема закрыта)))
|
|
|
|
|
|
Страница 1 из 1
|
[ Сообщений: 2 ] |
|
Модераторы: Karan, Toucan, PAV, maxal, Супермодераторы